nba <- read.csv("http://datasets.flowingdata.com/ppg2008.csv", sep=",")

next step

nba <- nba[order(nba$PTS),]

step three

row.names(nba) <- nba$Name

step four

nba <- nba[,2:20]

real step four

nba_matrix <- data.matrix(nba)

step five

nba_heatmap <- heatmap(nba_matrix, Rowv=NA, Colv=NA, col = cm.colors(256), scale="column", margins=c(5,10))