改变ggplot2中的facet_grid输出

Question

这是我的数字的当前版本:

    require(MuMIn)
    require(ggplot2)
    data(Cement)
    d <- data.frame(Cement)
    dd <- melt(d,id.var = "y")

ggplot(dd,aes(x = y,y = value, group = variable)) + 
  geom_point(size = 2)  + 
  theme_classic() +
  facet_grid(variable ~ ., scales = "free") + 
  theme(axis.text.x = element_text(angle = 90, hjust = 1)) + 
  xlab("") +
  ylab("") +
  guides(colour = FALSE)

我怎么能够

1)改变该图,使X1,X2,X3和X4标签位于左侧,并且它们读取c("因子x ^ 2","因子x ^ 3","因子x ^ 4","因子x ^ 5"),

2)是否有方法用一个盒子围住每个面板,使它们更容易区分？

Answer 1

试试这个,

library(ggplot2)
library(gtable)

p <- ggplot(mtcars, aes(mpg, cyl))+
  facet_grid(gear~., labeller=label_both) + geom_point() +
  theme(strip.text.y=element_text(angle=90)) + labs(y="")


g <- ggplotGrob(p)

g$layout[g$layout$name == "strip-right",c("l", "r")] <- 2
grid.newpage()
grid.draw(g)