stat_bin2d()를 사용하여 ggplot2에서 카운트 라벨을 계산하는 방법은 무엇입니까?

Question

필자는 ggplots 'stat_bin2d'계층을 사용하여 생성 할 수있는 플로트와 본질적으로 동일한 줄을 만들고 싶지만, 변수에 매핑되는 개수 대신 빈과 관련된 개수를 레이블로 표시하고 싶습니다. 각 빈.

나는 각 빈에 대한 카운트가 명확하게 표시되어 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) 

에서 해당 1D 문제에 대한 다음과 같은 솔루션을 얻었다. 그러나 1D에서 2D로 이동하면이 작업은 수행됩니다.

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

그러나 오류가 발생합니다.

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

실수로 내 질문에 답변했습니다.

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) 

을 그래서 당신이가는 : 난 당신이 텍스트 번호에서 당신이 비닝하는 변수를 변환 할 때 stat_bin2d 그래서, 작동합니다 알아 냈어. 불행히도 binwidth를 ggplot() 외부로 설정해야 이상적인 해결책이되지 않습니다. 변수를 텍스트로 변환 할 때 왜 작동하는지 모르겠지만 거기에 있습니다.

Answer 2

ggplot의 최신 버전에서 이것은 완벽하게 가능하며 오류없이 작동합니다.

stat_bin2d()을 호출 할 때 동일한 인수를 사용해야합니다. 예를 들어, 두 라인 binwidth = 1을 설정

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()