ggplot2 создает две легенды вместо одной

Question

Я пытаюсь сделать простой зарегистрированный ggplot, показывающий изменение плотности деревьев и кустарников с течением времени (возраст участка).виды деревьев делятся на родные / экзотические.

Я также скачал пакет viridis, чтобы включить тип окраски для легенды + линии + точки + заполнение доверительного интервала.

Проблемакогда я делаю заговор с использованием кода viridis, я получаю две отдельные легенды, которые мне не нужны.Я не могу понять, как сохранить легенду viridis и удалить другую легенду.

Я бы с удовольствием предоставил изображение своего вывода, но не могу понять, как добавить его в этот шаблон вопроса....

это код, который я использовал:

attach(data.df4)
base <- ggplot(data.df4, aes(age, total_trees))

base + 
  theme_classic(base_size = 10, base_family = "times") + 
  scale_y_log10() +
  geom_point(aes(color = status)) +
  geom_smooth(aes(color = status, fill = status), method = "lm", se = TRUE) +
  scale_colour_viridis(discrete = TRUE, option = "D")+
  scale_fill_viridis(discrete = TRUE, option = "D") +
  labs(title = "changes in planted canopy and subcanopy tree and shrub density over time", 
       x = "planting age", 
       y = "density (plot-level)") 

Answer 1

Не видя ваших данных или скриншота, трудно понять, что нужно изменить. Вы можете удалить ненужные легенды двумя способами

• отключить легенду заполнения ggplot() + guides(fill = FALSE)
• указать, чтобы не создавать легенду внутри слоя geom_smooth(..., show.legend = FALSE)

Эта статья может показать вам, как разместить пример данных: https://reprex.tidyverse.org/articles/articles/datapasta-reprex.html