相关疑难解决方法(0)

我试图基于此表将两个ggplot2图合并为一个:

   Type    RatingA  RatingB
1  One     3        36
2  Two     5        53
3  One     5        57
4  One     7        74
5  Three   4        38
6  Three   8        83

我想制作两个散点图,其中y轴的等级平均值,x轴上的类型.

这是我创建每个图形的方式:

p1 <- ggplot(test, aes(x=reorder(Type, RatingA, mean), y=RatingA)) +
        stat_summary(fun.y="mean", geom="point")

p2 <- ggplot(test, aes(x=reorder(Type, RatingB, mean), y=RatingB)) + 
        stat_summary(fun.y="mean", geom="point")

由于p1和p2具有相同的x轴,我希望它们可以垂直排序.我看着facet_align,但我找不到能做到这一点的东西.