ggplot2 Удалить элементы из легенды - PullRequest
Новая
       102

ggplot2 Удалить элементы из легенды

0 голосов
/ 11 июля 2020

У меня такой сюжет:

введите описание изображения здесь

, который был создан на основе этих данных: 

   days variable    value        sd
1    X1  Control 75.03424  3.857730
2    X2  Control 70.17851  2.913420
3    X3  Control 65.01627  9.188947
4    X4  Control 65.70995 10.882072
5    X5  Control 56.98791  8.070014
6    X6  Control 56.64376  4.827183
7    X1   Stress 75.63113  3.207749
8    X2   Stress 70.56030  5.626266
9    X3   Stress 61.56402  7.078610
10   X4   Stress 48.04541 15.287234
11   X5   Stress 43.54458  8.148382
12   X6   Stress 37.51121  9.494008

С этим кодом: 

significance <- data.frame(days=c("X4","X5","X6"),value=c(82,70,67), variable=NA)

# Plot
library(ggplot2)
library(extrafont)
library(scales)
library(Cairo)

ggplot(my_mean, aes(x=days, y=value, fill=variable)) +
  geom_bar(stat='identity', position='dodge', width = 0.75) +
  geom_errorbar(aes(ymin = value-sd, ymax = value+sd),
                position = position_dodge(0.75),
                width = 0.3) +
  labs(x='\nDAT',y='μg/cm2\n') +
  scale_y_continuous(limits = c(0,90), expand = c(0,0),
                     breaks = seq(from=0,to=90,by=10)) +
  scale_x_discrete(labels = c(0,7,14,21,27,35)) +
  ggtitle('Chlorophyll Content\n') +
  geom_point(data=significance, aes(y=value),shape='*',size=6) +
  scale_color_manual(values = c("Control" = 'gray45', "Stress" = 'gray')) +
  scale_fill_manual(values = c("Control" = 'gray45', "Stress" = 'gray')) +
  theme(panel.border = element_rect(colour = "black", fill=NA, size=0.5),
        panel.background = element_rect(fill = 'white'),
        plot.title = element_text(hjust = 0.5,family = 'Calibri',face='bold'),
        axis.title = element_text(family = 'Calibri',face = 'bold'),
        axis.text = element_text(family = 'Calibri'),
        legend.text = element_text(family = 'Calibri',face = 'bold'),
        legend.position = c(0.92, 0.91),
        legend.key = element_rect(fill = NA,color = NA),
        legend.title = element_blank(),
        legend.background = element_blank()
        )

Обратите внимание, как я сделал фрейм данных для сопоставления моих точек значимости в сюжете. Но почему-то эти точки тоже были добавлены в легенду, и этого не должно происходить. Я подозреваю, что это можно исправить с помощью какой-то функции legend внутри конфигураций theme, но я не смог найти, какую функцию использовать и какие аргументы у нее будут.

Есть предложения? Или, может быть, лучший способ нанести на карту мои значимые «звезды»?

Ответы [ 2 ]

1 голос
/ 11 июля 2020

Если вы не хотите, чтобы звезды появлялись в легенде, попробуйте geom_point(..., show.legend = F). Фактически, show.legend = F является опцией для многих слоев ggplot2.

0 голосов
/ 11 июля 2020

Вы можете попробовать это: 

ggplot(my_mean, aes(x=days, y=value, fill=variable)) +
  geom_bar(stat='identity', position='dodge', width = 0.75) +
  geom_errorbar(aes(ymin = value-sd, ymax = value+sd),
                position = position_dodge(0.75),
                width = 0.3,color='black') +
  labs(x='\nDAT',y='μg/cm2\n') +
  scale_y_continuous(limits = c(0,90), expand = c(0,0),
                     breaks = seq(from=0,to=90,by=10)) +
  scale_x_discrete(labels = c(0,7,14,21,27,35)) +
  ggtitle('Chlorophyll Content\n') +
  geom_point(data=significance, aes(y=value),shape='*',size=6,color='black') +
  scale_color_manual(values = c("Control" = 'gray45', "Stress" = 'gray')) +
  scale_fill_manual(values = c("Control" = 'gray45', "Stress" = 'gray')) +
  guides(fill=guide_legend(override.aes=list(shape=NA)))+
  theme(panel.border = element_rect(colour = "black", fill=NA, size=0.5),
        panel.background = element_rect(fill = 'white'),
        plot.title = element_text(hjust = 0.5,family = 'Calibri',face='bold'),
        axis.title = element_text(family = 'Calibri',face = 'bold'),
        axis.text = element_text(family = 'Calibri'),
        legend.text = element_text(family = 'Calibri',face = 'bold'),
        legend.position = c(0.92, 0.91),
        legend.key = element_rect(fill = NA,color = NA),
        legend.title = element_blank(),
        legend.background = element_blank()
  )

введите описание изображения здесь

...