So ändern Sie die Höhe des Streifens auf Facetten mit 2 Zeilen

Question

Ich habe den folgenden Code verwendet, um die Höhe des Streifenhintergrunds auf Facetten zu ändern. Aber es schien nicht effizient für die zweite Reihe.

library(reshape2) 
library(grid) 
library(gtable) 
library(ggplot2) 

gp <- ggplot(data = tips, aes(x = total_bill, y = tip/total_bill)) + geom_point() + facet_wrap(~ day, ncol = 2) 

g <- ggplotGrob(gp) 
g$heights[[3]] = unit(0.3, 'in') 
g$grobs[[6]]$heights <- g$grobs[[7]]$heights <- g$grobs[[8]]$heights <- g$grobs[[9]]$heights <- unit(1, 'native') 
grid.draw(g) 

Obtained result

Expected result

Answer 1

g$heights[c(3,7)] <- unit(0.3, 'in')