删除ggplot2中方面的右边界

Question

我找到了关于删除单个绘图右边框的帖子，但找不到关于删除小平面右边框的帖子。例如考虑以下代码生成的切面，是否可以删除每个切面的右边框？

    library(reshape2)
    library(ggplot2)
    sp <- ggplot(tips, aes(x=total_bill, y=tip/total_bill)) + geom_point(shape=1)
    sp + facet_wrap( ~ day, ncol=2) + theme_bw() +
    theme(strip.text = element_text(size=12,colour="black"),
    strip.background = element_rect(colour="white", fill="white"))

Answer 1

除非我弄错了，否则这可能是您能做的最好的事情了：

library(reshape2)
library(ggplot2)

sp <- ggplot(tips, aes(x=total_bill, y=tip/total_bill)) 
sp <- sp + geom_point(shape=1)
sp <- sp + geom_hline(yintercept=0)
sp <- sp + geom_vline(xintercept=0)
sp <- sp + scale_x_continuous(expand=c(0,0))
sp <- sp + scale_y_continuous(expand=c(0,0))
sp <- sp + facet_wrap(~day, ncol=2)
sp <- sp + theme_bw()
sp <- sp + theme(panel.border=element_blank(),
                 strip.text=element_text(size=12, colour="black"),
                 strip.background=element_rect(colour="white", 
                                               fill="white"))
sp

我可能会尝试调整刻度大小以确保它们与人造轴匹配。

删除ggplot2中方面的右边界

Remove right border of facets in ggplot2

r

border

ggplot2

facets