Блог

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

Как отобразить легенду для слоя ggsignif в финальном ggplot

#r #ggplot2

#r #ggplot2

Вопрос:

Я совсем новичок в ggplot. Здесь я просто хотел сделать простой график уровня OPG (молекулы) между тремя группами, а именно «RA», «Control» и «OA». Информация о группировке содержится в столбце «Группа». Кроме того, я добавил слой ggsignif, где я использовал аннотацию вместо точного p-значения. Я установил «показать.легенда» должна быть ПРАВДОЙ, но легенда о значении не отображается вместе с легендой группировки. Я не уверен, какую точную команду использовать для отображения легенды для слоя ggsignif. Я приложил свой код и график ниже. Любая помощь будет оценена!

 library(dplyr)
library(ggplot2)
library(ggsignif)

set.seed(5)
control <- data.frame(Group='Control',OPG = rnorm(30,mean=45,sd=10))
OA <- data.frame(Group='OA',OPG = rnorm(30,mean=52,sd=12))
RA <- data.frame(Group='RA',OPG = rnorm(30,mean=62,sd=15))
sampledf <- rbind(control,OA,RA)

ggplot(sampledf,aes(Group,OPG)) 
  geom_boxplot(width=0.5)  
  geom_signif(comparisons = list(c("RA","Control"),
                                 c("OA","RA"),
                                 c('OA','Control')),
              step_increase = 0.1,
              map_signif_level=TRUE,
              show.legend = TRUE)  
  labs(y="Serum OPG Level")  
  theme_light()

``
[![Output][1]][1]


  [1]: https://i.stack.imgur.com/W6OFw.png

Комментарии:

1. Можете ли вы добавить образцы данных? Также вызывайте пакеты, которые нам нужны для запуска вашего кода. Спасибо

2. Насколько я знаю ggplot, он создает легенды только для переменных, которые используются в aes(...) -вызовах. geom_signif кажется, создается только слой аннотаций.

3. @markus Привет, пожалуйста, посмотрите правки, я обновил сообщение с пакетами для вызова и образцом набора данных.