43 lines
964 B
R
43 lines
964 B
R
|
|
#
|
|
# Load data
|
|
#
|
|
|
|
players <- read.csv("data/nba-top50scorers-2022-23.csv")
|
|
head(players)
|
|
|
|
play20 <- players[1:20,]
|
|
|
|
#
|
|
# Heatmap
|
|
#
|
|
|
|
# Four columns
|
|
heatmap(as.matrix(play20[,c("MP", "FG", "FGpct", "PTS")]),
|
|
scale = "column",
|
|
Rowv = NA, Colv = NA)
|
|
|
|
# Names
|
|
heatmap(as.matrix(play20[,c("MP", "FG", "FGpct", "PTS")]),
|
|
scale = "column",
|
|
labRow = play20$Player,
|
|
Rowv = NA, Colv = NA)
|
|
|
|
# Change order
|
|
playrev <- play20[order(play20$PTS, decreasing = FALSE),]
|
|
heatmap(as.matrix(playrev[,c("MP", "FG", "FGpct", "PTS")]),
|
|
scale = "column",
|
|
labRow = playrev$Player,
|
|
Rowv = NA, Colv = NA)
|
|
|
|
|
|
# Color
|
|
playrev <- play20[order(play20$PTS, decreasing = FALSE),]
|
|
heatmap(as.matrix(playrev[,c("MP", "FG", "FGpct", "X2Ppct", "X3Ppct", "FTpct", "PTS")]),
|
|
scale = "column",
|
|
labRow = playrev$Player,
|
|
cexCol = 1,
|
|
col = rev(hcl.colors(20, palette = "Blues 3")),
|
|
Rowv = NA, Colv = NA)
|
|
|