Adding Legend in R using Column names

# add legend to the graph
 legend("topright", legend = c(headerNames[2:length(headerNames)]),
        col=2:length(rsm), pch=20, lty=1,
        lwd=0.75, bty="n", cex=0.75)