Eu estou esperando para construir alguns gráficos para mostrar as tendências de tiro / eficácia de alguns jogadores e times da NBA. Gostaria de formatar os hexágonos da seguinte forma: o tamanho representará o número de disparos e a cor representará a eficiência relativa (pts / tentativa) desse local.Aqui está um excelente exemplo do que estou procurando, criado por Kirk Goldsberry:

Eu pude usarhexbins ehexTapply para conseguir algo próximo do resultado desejado, mas as formas são círculos. Aqui está o meu código (que inclui dados de amostra):

library(hexbin); library(ggplot2)
df <- read.table(text="xCoord yCoord   pts
11.4     14.9     2
2.6       1.1      0
4.8       4.1      2
-14.4    8.2      2
4.2       0.3      0
0.4       0.0     2
-23.2   -1.1      3", header=TRUE)
h <- hexbin (x=df$xCoord, y = df$yCoord, IDs = TRUE, xbins=50)
pts.binned <- hexTapply (h, df$pts, FUN=mean)

df.binned <- data.frame (xCoord  = h@xcm, 
          yCoord  = h@ycm, FGA = h@count, pts = pts.binned)

chart.player <- ggplot (df.binned, aes (x =xCoord , 
                  y =yCoord , col = pts, size = FGA)) + coord_fixed() + 
geom_point()  + scale_colour_gradient("Points/Attempt", low = "green", high="red")

Outra maneira de pensar nisso seria colorir os hexágonos emplot(h, style="lattice") por pts / tentativa - mas também não sei como fazer isso.

Existe uma maneira de obter esse gráfico com hexágonos em vez de círculos?