Я пытаюсь построить график, который представляет средние значения некоторых переменных трех разных сайтов WA7, WA8 и WA9 и сравнить их с их соответствующими суммарными значениями, но я хочу сделать их по сезонам. Например, для сайта WA7 с переменной x я хочу сгруппировать значения в переменной x, чтобы они соответствовали сезону зима и лето. Зима простирается от Jun-October, а остальное лето. Затем на том же графике у меня будет график, показывающий общее и пороговое значение. Total - медианное значение переменной x, полученное из данных, а порог - число. Я делаю гистограмму , показывающую это в r для X, Y и Z, имеющих одну и ту же переменную. У меня проблема с созданием переменной сезона, чтобы соответствовать этому коду. Я также буду признателен за любой другой код. На графике ниже показано, что я хочу, но мне нужна еще одна полоска, прикрепленная к каждой группе, и легенда под названием Total. Красная линия поперек - это порог, о котором я говорил. Спасибо,
Manawatu_site %>% right_join(., season, by = "Month" ) %>% group_by(Site) %>%
summarise(pH.med=median(pH)) %>% mutate(Summer = "Total") -> by.site
bind_rows(by.season, by.site) %>% mutate(Season = ordered(Summer, levels = c("Summer",
"Winter", "Total"))) %>% ggplot(aes(x=Season, y=pH.med)) +
geom_bar(stat = "identity", color="darkblue", aes(fill=Site), position = "dodge") +
annotate("segment", x=0.5, xend = 3.5, y=7.2, yend =7.2, color = "red", size = 2)
