Entfernen Sie den rechten Rand von Facetten in ggplot2

Question

Ich fand Beiträge über das Entfernen der rechten Grenze eines einzelnen Diagramms, konnte aber keine Beiträge über das Entfernen der rechten Grenze von Facetten finden. Betrachten Sie beispielsweise die Facetten, die durch die folgenden Codes erzeugt werden, ist es möglich, den rechten Rand jeder Facette zu entfernen?

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

Wenn ich mich nicht irre, ist dies die beste prbly Sie in der Lage sein zu tun:

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 

Ich würde prbly versuchen um die Tick-Größe zu optimieren, um sicherzustellen, dass sie mit den falschen Achsen übereinstimmen.