我的数据集具有一个因子(TypeOfCat)和一个数字(AgeOfCat)。
我制作了下面的箱线图。除了代表每种类型的猫的框之外,我还尝试添加一个代表未分组数据的框(即整个猫群及其年龄)。我所得到的并不完全是我想要的,因为 sum() 当然不会提供创建这样一个图所需的所有信息。任何帮助将非常感激。
数据集和当前代码:
Df1 <- data.frame(TypeOfCat=c("A","B","B","C","C","A","B","C","A","B","A","C"),
AgeOfCat=c(14,2,5,8,4,5,2,6,3,6,12,7))
Df2 <- data.frame(TypeOfCat=c("AllCats"),
AgeOfCat=sum(Df1$AgeOfCat)))
Df1 <- rbind(Df1, Df2)
qplot(Df1$TypeOfCat,Df1$AgeOfCat, geom = "boxplot") + coord_flip()
最佳答案
不需要求和
。只需单独获取 AllCats
的所有值即可:
# Your original code:
library(ggplot2)
Df1 <- data.frame(TypeOfCat=c("A","B","B","C","C","A","B","C","A","B","A","C"),
AgeOfCat=c(14,2,5,8,4,5,2,6,3,6,12,7))
# this is the different part:
Df2 <- data.frame(TypeOfCat=c("AllCats"),
AgeOfCat=Df1$AgeOfCat)
Df1 <- rbind(Df1, Df2)
qplot(Df1$TypeOfCat,Df1$AgeOfCat, geom = "boxplot") + coord_flip()
如果将 geom_point 添加到箱线图中,您可以看到拥有所有观察结果:
ggplot(Df1, aes(TypeOfCat, AgeOfCat)) +
geom_boxplot() +
geom_point(color='red') +
coord_flip()
关于r - boxplot ggplot2::qplot() 在同一图中 R 中未分组和分组的数据,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/46834830/