Как убрать серый фон из facet_grid() (ggplot2)

Question

У меня есть следующий сюжет:

получается путем выполнения:

ggplot() + 
  stat_summary( data = test_data1, aes(x=x, y=(1-value) , colour = as.factor(1) , lty = as.factor(1) ) , fun.y=mean, geom="line" ,  size=1 ) +
  stat_summary( data = test_data1, aes(x=x, y=(1-value) , colour = as.factor(1), shape=as.factor(1) ) , fun.y=mean, geom="point" ,  size=3, pch=21, fill="white" ) +
  stat_summary( data = test_data2, aes(x=x, y=(1-value) , colour = as.factor(2), lty = as.factor(2) ) , fun.y=mean, geom="line", size=1 ) +
  stat_summary( data = test_data2, aes(x=x, y=(1-value) , colour = as.factor(2), shape=as.factor(2)) , fun.y=mean, geom="point", size=3, pch=21, fill="white" ) +
  theme_bw(base_size = 14, base_family = "Palatino") + 
  theme(legend.key = element_blank() ) +
  expand_limits(x=c(0), y=c(0)) +
  facet_grid(distance ~ . ) 

Как избавиться от серого фона, появляющегося за 100 а также 200,

Я бы хотел, чтобы это было белым, не меняя остальную тему, которую я использую в данный момент.

Answer 1

Пройдя еще немного, я нашел этот пост, в котором объясняются различные манипуляции, которые можно применить к facet,

Оказывается, мой вопрос можно решить, выполнив:

theme(legend.key = element_blank(), strip.background = element_rect(colour="red", fill="#CCCCFF") ) 

С помощью strip.background = element_rect(colour="red", fill="#CCCCFF") внутри theme() делает работу