Come utilizzare stat_bin2d() per calcolare le etichette dei conteggi in ggplot2?

Question

Desidero costruire un grafico, essenzialmente identico a quello che posso produrre usando il layer ggplot 'stat_bin2d', tuttavia invece dei conteggi che vengono mappati su una variabile, voglio che i conteggi associati al bin siano visualizzati come etichetta per ogni cestino

ho ottenuto il seguente soluzione al problema 1D equivalente da another thread

data <- data.frame(x = rnorm(1000), y = rnorm(1000)) 

ggplot(data, aes(x = x)) + 
    stat_bin() + 
    stat_bin(geom="text", aes(label=..count..), vjust=-1.5) 

I conteggi per ogni bin sono chiaramente etichettati. Tuttavia, passando dal caso 1D al 2D, questo funziona,

ggplot(data, aes(x = x, y = y)) + 
    stat_bin2d() 

Ma questo restituisce un errore.

ggplot(data, aes(x = x, y = y)) + 
    stat_bin2d() + 
    stat_bin2d(geom="text", aes(label=..count..)) 

Error: geom_text requires the following missing aesthetics: x, y 

Answer 1

Ho accidentalmente risposto alla tua domanda scrivendo una mia domanda. Ho capito che stat_bin2d funzionerà quando si converte la variabile che si sta binning a partire dal numero di testo, in modo:

library(ggplot2) 
data <- data.frame(x = rnorm(1000), y = rnorm(1000)) 
x_t<-as.character(round(data$x,.1)) 
y_t<-as.character(round(data$y,.1)) 
x_x<-as.character(seq(-3,3),1) 
y_y<-as.character(seq(-3,3),1) 
data<-cbind(data,x_t,y_t) 



ggplot(data, aes(x = x_t, y = y_t)) + 
    geom_bin2d() + 
    stat_bin2d(geom="text", aes(label=..count..))+ 
    scale_x_discrete(limits =x_x) + 
    scale_y_discrete(limits=y_y) 

Così ci si va. Sfortunatamente devi impostare le larghezze di banda al di fuori di ggplot(), quindi non è una soluzione ideale. Non so perché funzioni quando converti le variabili in testo, ma è così.

Answer 2

Nelle versioni più recenti di ggplot questo è perfettamente possibile e funziona senza errori.

Assicurati di utilizzare gli stessi argomenti sia per chiamare stat_bin2d(). Ad esempio, impostare binwidth = 1 su entrambe le linee:

library(ggplot2) 
data <- data.frame(x = rnorm(1000), y = rnorm(1000)) 

ggplot(data, aes(x = x, y = y)) + 
    geom_bin2d(binwidth = 1) + 
    stat_bin2d(geom = "text", aes(label = ..count..), binwidth = 1) + 
    scale_fill_gradient(low = "white", high = "red") + 
    xlim(-4, 4) + 
    ylim(-4, 4) + 
    coord_equal()