ggplot2でファセットの右端を削除する

Question

1つのプロットの右端を削除した記事が見つかりましたが、ファセットの右端を削除する方法についての投稿は見つかりませんでした。 たとえば、次のコードで生成されたファセットを考慮すると、各ファセットの右端を削除できますか？

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

私が間違ってる場合を除き、これはprblyあなたが行うことができるようになるだろうがベストです：

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 

私はprbly試してみました彼らが偽の軸と一致するようにティックのサイズを調整する。