我有一个数据集,按照嵌套的要点组织成子类别和子子类别:
-1
-1a
-1ai
-1aii
-1b
-1bi
...等等。
我想使用 ggplot2 制作一个点图,其中显示1的所有数据,然后仅显示1a的数据,然后仅显示1ai的数据,依此类推。
示例数据集:
x <- data.frame(cat=1, subA=letters[rep(1:5,each=10)],
subB=as.character(as.roman(rep(1:5,5,each=2))),value=rnorm(50,20,7))
> head(x)
cat subA subB value
1 1 a I 26.75573
2 1 a I 12.52218
3 1 a II 24.53499
4 1 a II 23.21012
5 1 a III 11.18173
6 1 a III 25.01914
我想最终得到一个看起来像这样的图表:
我能够通过做大量子集和 rbinding 来制作这个图,以制作大量冗余的衍生数据框,但这似乎是做错事的一个明显例子。
x2 <- with(x,rbind(cbind(key="1",x),
cbind(key="1 a",x[paste(cat,subA) == "1 a",]),
cbind(key="1 a I",x[paste(cat,subA,subB) == "1 a I",]),
cbind(key="1 a II",x[paste(cat,subA,subB) == "1 a II",])))
library(ggplot2)
library(plyr)
ggplot(x2,aes(x=reorder(key,desc(key)),y=value))
+ geom_point(position=position_jitter(width=0.1,height=0))
+ coord_flip() + scale_x_discrete("Category")
有没有更好的方法来做到这一点?一个相关的问题是,如果每个值总是添加相同数量的抖动,无论它是针对“1”还是“1 a”或“1 a II”绘制的,那会很好,但我什至没有确定从哪里开始。