与箱线图组摘要点图(Dotplot with boxplot group summaries)

我被两类，第一类基础数据绘制数据：

library(plyr)
library(ggplot2)

d1 <- data.frame(v1 = rnorm(30),
                  x = rep(letters[1:6],  
                          c(6, 3, 8, 3, 4, 6)),
              group = rep(paste("g", 1:3, sep = ""),
                          c(9, 11, 10)))

然后我为了因素

of <- ddply(d1, .(x), function(i) mean(i$v1))
of <- of[order(-of$V1),]
d1$x <- factor(d1$x, levels = of$x)

这提供了以下情节

ggplot(d1) + geom_point(aes( x = v1, y = x)) + 
             facet_grid(group ~ .,
                        scales = "free_y",
                        space = "free_y")

但thne我也想添加一个单独的水平箱线为一组，描绘了相关的分布。我所知道的第一个步骤是提供Y轴的“总计”空间：

d2 <- rbind(d1, 
        data.frame(v1 = NA,
                    x = "Total",
                group = unique(d1$group)))

 ggplot(d2) + geom_point(aes( x = v1, y = x)) + 
              facet_grid(group ~ .,
                         scales = "free_y",
                         space = "free_y")

它提供了以下内容，在这里我被困

我只是想旁边的“总计”轴断裂水平箱线图，总结了各组的数据。

提前致谢。

起点是使两个数据帧- d1作为自己的原始数据帧和d2 ，其中x的值都是Total 。

d2 <- d1
d2$x <- "Total"

然后使用d1做出点和d2 ，使箱线图。下面是示例与在盒状图的垂直取向x值被用于为×。问题是，有水平的箱线图，你必须使用coord_flip() 翻转轴和自由尺度不能一起使用。

ggplot()+geom_point(data=d1,aes(x=x,y=v1))+
  geom_boxplot(data=d2,aes(x=x,y=v1))+
  facet_wrap(~group ,
             scales = "free_x")

解决方法以获得您需要的是使三个独立的地块（每个组），然后把它们连同方向grid.arrange()图书馆gridExtra 。对于第一和第二的情节我删除了x轴的所有蜱，文本和标题。

library(gridExtra)

p1<-ggplot()+geom_point(data=subset(d1,group=="g1"),aes(x=x,y=v1))+
  geom_boxplot(data=subset(d2,group=="g1"),aes(x=x,y=v1))+
  coord_flip()+
  facet_grid(group~.)+
  scale_y_continuous(limits=c(-2,2.5))+
  theme(axis.title.x=element_blank(),
        axis.text.x=element_blank(),
        axis.ticks.x=element_blank())

p2<-ggplot()+geom_point(data=subset(d1,group=="g2"),aes(x=x,y=v1))+
  geom_boxplot(data=subset(d2,group=="g2"),aes(x=x,y=v1))+
  coord_flip()+
  facet_grid(group~.)+
  scale_y_continuous(limits=c(-2,2.5))+
  theme(axis.title.x=element_blank(),
        axis.text.x=element_blank(),
        axis.ticks.x=element_blank())

p3<-ggplot()+geom_point(data=subset(d1,group=="g3"),aes(x=x,y=v1))+
  geom_boxplot(data=subset(d2,group=="g3"),aes(x=x,y=v1))+
  coord_flip()+
  facet_grid(group~.)+
  scale_y_continuous(limits=c(-2,2.5))

grid.arrange(p1,p2,p3)