Próbuję utworzyć okrągłą mapę cieplną z ggplot2, dzięki czemu mogę użyć większej liczby etykiet na obwodzie okręgu. Chciałbym, żeby wyglądał bardziej jak pączek z pustą dziurą w środku, ale jednocześnie nie tracił żadnych rzędów (musiałyby zostać skompresowane).

Kod tego, co mam, znajduje się poniżej.

library(reshape)
library(ggplot2)

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

nba$Name <- with(nba, reorder(Name, PTS))
nba.m <- melt(nba)
nba.m <- ddply(nba.m, .(variable), transform, value = scale(value))


p = ggplot(nba.m, aes(Name,variable)) + geom_tile(aes(fill = value), colour = "white") +           scale_fill_gradient(low = "white", high = "steelblue") 
p<-p+opts(
panel.background=theme_blank(),
axis.title.x=theme_blank(),
axis.title.y=theme_blank(),
panel.grid.major=theme_blank(),
panel.grid.minor=theme_blank(),  
axis.text.x=theme_blank(),
axis.ticks=theme_blank()
)


p = p + coord_polar() 
plot(p)