Есть ли способ заполнить полосы фасетов, созданных facet_wrap, на основе переменной, поставляемой с фреймом данных?
Пример данных:
MYdata <- data.frame(fruit = rep(c("apple", "orange", "plum", "banana", "pear", "grape")), farm = rep(c(0,1,3,6,9,12), each=6), weight = rnorm(36, 10000, 2500), size=rep(c("small", "large")))
Пример графика:
p1 = ggplot(data = MYdata, aes(x = farm, y = weight)) + geom_jitter(position = position_jitter(width = 0.3), aes(color = factor(farm)), size = 2.5, alpha = 1) + facet_wrap(~fruit)
Я знаю, как изменить цвет фона полос (например, оранжевый):
p1 + theme(strip.background = element_rect(fill="orange"))
Есть ли способ передать значения в переменной size
в MYdata
параметру fill
в element_rect
?
В принципе, вместо 1 цвета для всех полосок я хотел бы, чтобы цвет фона полосы мелких фруктов (яблоко, слива, груша) был зеленым, а цвет фона больших фруктов (оранжевый, банановый, виноградный) был красным.