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