Блог

Главная - Вопросы по программированию - Как добавить компактные буквы на графики, используя две разные переменные по оси x

Как добавить компактные буквы на графики, используя две разные переменные по оси x

#r #ggplot2 #facet-wrap #letter

Вопрос:

Можно ли отобразить значимые группы, используя компактные буквы поверх линейчатой диаграммы и квадратной диаграммы? Я не могу найти решение для двух разных переменных по оси x (например, оплодотворение и год). Если в пробе 1 и пробе 2 есть только один фактор, у меня нет проблем с добавлением букв, поэтому я думаю, что проблема заключается в иерархии определения (пробная версия 1/оплодотворение: добавьте эти буквы, пробная версия 1/год; добавьте эти буквы, пробная версия 2/оплодотворение; добавьте эти буквы и т. Д.). Я добавил пример с добавленными буквами, сделанными путем импорта изображения в PP и добавления букв вручную (дерьмовая альтернатива, если все остальное не удастся) введите описание изображения здесь

GGPLOT2 — для участков GGH4X — для вложенных участков с переносом граней — объединение участков

Код:

     d1 <- IOSDV1 %>% 
      select(x = SISTEM, Sr, Rb, Br, POSKUS, ORDER) %>% 
      mutate(name = "SISTEM", name = factor(name, levels = c("SISTEM", "Leto")))
    
    d2 <- IOSDV1 %>% 
      select(x = Leto, Sr, Rb, Br, POSKUS, ORDER) %>% 
      mutate(name = "Leto", name = factor(name, levels = c("SISTEM", "Leto")))
    
    base <- ggplot(mapping = aes(x = fct_reorder(x, ORDER), y = Sr))  
    stat_summary(data = d1, fun.data = mean_cl_normal, show.legend = FALSE, color = "black", size = 0.5,  shape=21, position=position_dodge(0.95),geom="errorbar", width = 0.2)   
     stat_summary(data = d1, fun.y = mean, position=position_dodge(width=0.95), geom="bar", show.legend = FALSE, color = "black", size = 0.5, fill="lightgoldenrodyellow")  
    geom_boxplot(data = d2, fill="lightgoldenrodyellow", outlier.size = 0.2)    
    stat_summary(data = d2, fun = mean, geom="crossbar", show.legend = FALSE, color = "red", size=0.3, width=0.75)  
      labs(x = NULL, y = "Sr (u03BCg/100 g)")   
      #theme_classic(base_family = "Palatino Linotype")  
      theme_classic()  
      theme(axis.text = element_text(colour = "black", size = 8), 
            axis.title = element_text(colour = "black", size = 8, face = "bold"), 
            axis.text.x = element_text(angle = 60, vjust = 1, hjust = 1))  
      theme(strip.background = element_blank())
    
    a <- base   facet_nested_wrap(~POSKUS name, nrow = 2, scales = "free_x", labeller = function(d) list(as.character(d$POSKUS)))


(a | d)   plot_annotation(tag_levels = c('A', '1')) amp; theme(text = element_text('Palatino Linotype'))
ggsave(filename = "question.png", width=6, height=4, dpi = 600, type = "cairo")
Метки: ,