與ggplot2 geom_bar分組的條形圖是繪制比例而不是計數

Question

我正在嘗試繪制一個分組條形圖（x，y由另一個變量），但我得到一個比例圖形（0-1）而不是計數，所有條形都變為1.我很困惑，因為代碼似乎是正確的（使用統計身份和位置閃避）

我已經嘗試過對變量進行分解，但是不起作用。 數據框格很長。

ggplot(supra.long, aes(condition, measurement, fill = MODE)) +
  geom_bar(position = 'dodge', stat = "identity") 

當我繪制這一小部分數據時，得到了相同的結果：

 A tibble: 6 x 3

condition measurement MODE 
  <chr>           <dbl> <chr>

INTACT              1 US   
INTACT              0 US   
INTACT              1 US   
FT                  0 MRI  
FT                  1 MRI  
FT                  0 MRI 

我期待y軸上的計數圖，但是比例尺上的條都是1。

Answer 1

我可能要么在繪制數據之前總結數據並使用“身份”統計數據。

library(dplyr)
condition <- c("INTACT","INTACT","INTACT","FT","FT","FT")
measurement <- c(1,0,1,0,1,0)
MODE <- c("US","US","US","MRI","MRI","MRI")
supra.long <- data.frame(condition, measurement, MODE) %>%
  group_by(condition, MODE) %>%
  summarise(count = sum(measurement))

ggplot(supra.long) +
  geom_bar(aes(x=condition, y=count, fill = MODE), position = 'dodge', stat = "identity") 

或者我會過濾掉零並使用“計數”統計信息。

supra.long <- data.frame(condition, measurement, MODE) %>% filter(measurement > 0)
ggplot(supra.long) +
  geom_bar(aes(x=condition,fill = MODE), position = 'dodge', stat = "count") 

希望有所幫助。