R ggplot - 填充顯示與條形圖不同的值的箱線圖

Question

我有一個使用以下代碼生成的箱線圖，在檢查數據集后，這里的所有值都是正確的。

myplot <- inDATA %>% filter(PARAMCD=="param1") %>% 
            ggplot(aes(x=ACTARMCD,y=AVAL,fill=ACTARMCD))+
            geom_boxplot()+
            stat_summary(fun.y=mean,na.rm=TRUE,shape=25,col='black',geom='point')

我想生成第二個箱線圖，通過應用不同的變量作為填充，我將 x 變量分成不同的組。 我使用以下代碼，但圖中顯示的值不正確。

myplot <- inDATA %>% filter(PARAMCD=="param1") %>% 
            group_by(ACTARMCD, RESPFL) %>%  
            ggplot(aes(x=ACTARMCD,y=AVAL))+
            geom_boxplot(aes(fill=RESPFL))

但是，當我使用此代碼生成條形圖時，數字是正確的。

myplot <- inDATA %>%  
            filter(PARAMCD=="param1") %>% 
            group_by(ACTARMCD,RESPFL) %>%
            dplyr::mutate(AVAL = mean(AVAL, na.rm=TRUE)) %>% 
            ggplot(aes(x=ACTARMCD,y=AVAL,fill=RESPFL))+
            geom_bar(stat="identity",position="dodge")

任何人都可以幫助我理解我在第二個箱線圖中做錯了什么嗎？

Answer 1

我最終通過使用 plotly 而不是 ggplot 解決了這個問題。 有效的代碼是：

myplot <- inDATA %>% filter(PARAMCD=="param1") %>% 
plot_ly(x = ~ACTARMCD, y = ~AVAL, color = ~RESPFL, type = "box",boxmean=TRUE) %>% layout(boxmode = "group")