更改ggplot facets

Question

我正在尝试使用facet_grid()绘制多个绘图，我希望每个面都有一个不同因子水平的子集，以手动顺序沿X轴绘制。

基本上我想在每个X轴上绘制前5个国家（手动定义），我可以使用grid.arrange()的替代解决方案（参见示例），但我想用{{1或facet_grid()保持与我的其他情节相同的美学。

我可以通过因子级别找到一些排序方面的答案，我尝试使用顺序审美，但没有成功，所以我想知道是否有办法做这样的事情，即使我知道这个方面在ggplot中，并没有考虑修改轴。我很欣赏这方面的一些建议。

以下是我想要的可重复示例（在X轴上手动定义的顺序）。

facet_wrap()

以下是情节的例子：

Answer 1

令人反感的黑客怎么样？

这会将您的子集合并为一个新的dataframe。然后，它会添加一个将设置编号与变量连接起来的列，以使每个变量都是唯一的。问题是，这会影响您的x轴名称，因为它们是连接的名称。为了解决这个问题，我遵循了这个hack R: Reorder facet_wrapped x-axis with free_x in ggplot2来删除轴名称并改为使用geom_text。

mtcars_melt <- melt(mtcars)

# Subset data
set1 <- subset(mtcars_melt, variable == "mpg" | variable == "wt" | variable == "qsec")
set2 <- subset(mtcars_melt, variable == "gear" | variable == "cyl" | variable == "mpg")
set3 <- subset(mtcars_melt, variable == "drat" | variable == "vs" | variable == "mpg")

# Order factors
set1$variable <- factor(set1$variable, levels = c("mpg", "wt", "qsec"))
set2$variable <- factor(set2$variable, levels = c("mpg", "gear", "cyl"))
set3$variable <- factor(set3$variable, levels = c("vs", "mpg", "drat"))


names(set1)[2]<-"set1"
names(set2)[2]<-"set2"
names(set3)[2]<-"set3"


mset1<-melt(set1)
mset2<-melt(set2)
mset3<-melt(set3)

library(data.table)
new<-as.data.frame(rbindlist(list(mset1,mset2,mset3)))
names(new)[2]<-'setno'

new$lvl <- with(new,paste(variable,setno,sep="."))
new$lvl<-as.factor(new$lvl)
new$lvl<-factor(new$lvl,levels=c("mpg.set1","wt.set1","qsec.set1","mpg.set2","gear.set2","cyl.set2", "vs.set3" , "mpg.set3","drat.set3" ))


plot1 <- ggplot(new, aes(x = lvl, y = value)) + ylim(0, 35) + geom_boxplot()+
  facet_wrap(~setno,scales="free_x")+
  ylim(-2,NA)+
  geom_text(aes(y=-1,label=variable),angle=45,size=5,hjust=1)+
  theme(axis.text.x = element_blank(),
        axis.title.x = element_blank(),
        axis.line.x = element_blank(),
        axis.ticks.x = element_blank())+
  geom_hline(aes(yintercept=0))