问题描述
我尝试绘制一个条形图分组图,但是我不能,我的错误是,
“ position_jitterdodge()
至少需要一种美学来躲避。”谁能帮我?这是我的数据示例,也是我尝试绘制条形码的示例。我的预期输出如下图所示。
library(ggpubr)
d<-data.frame(Average=c(3,1.5,4,6,2,5.4,3.1,0.9,4.6,3.3,2.8,1.9,2.1,3.7,4.4,5.2),Size=c("1750","1750","2000","2500","3000","3000"),Group=c("P1","P1","S1","P2","S2","S2"))
ggbarplot(
d,x = "Size",y = "Average",add = c("mean_sd","jitter"),add.params = list(shape = "supp"),fill= "Group",palette = c("#807F7F","#BF504D"),position = position_dodge(0.8)
)
解决方法
您的代码有几个问题:
-
group
有4个值,仅分配了2种颜色。 - 变量“ supp”在您的数据中不存在。
否则,您的代码应该可以工作:
library(ggpubr)
#> Loading required package: ggplot2
d<-data.frame(Average=c(3,1.5,4,6,2,5.4,3.1,0.9,4.6,3.3,2.8,1.9,2.1,3.7,4.4,5.2),Size=c("1750","1750","2000","2500","3000","3000"),Group=c("P","P","S","S")
)
ggbarplot(
d,x = "Size",y = "Average",add = c("mean_sd","jitter"),add.params = list(shape = "Group"),fill= "Group",palette = c("#807F7F","#BF504D"),position = position_dodge(0.8)
)
由reprex package(v0.3.0)于2020-10-02创建