R: легенда не отображается при использовании ggplot

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

Вот этот участок кода.

ggplot(lm_model, aes(x=year, y=pred_price)) +
  geom_point(color = "red") +
  geom_line(color = "red") +
  geom_line(aes(x=year, y=real_price)) +
  labs(title = "Linear Regression",
       x = "Year",
       y = "Gas Price") +
  scale_color_manual(labels = c("Predicted", "True Value"))

Вот как выглядит вывод с этим кодом (и без легенды, как видите):

r ggplot2 legend

14.12.2020 00:56

Стоит ли изучать PHP в 2023-2024 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Это может работать, но не проверено, так как данные не были переданы. Вам нужно переместить операторы цвета внутрь aes():

library(ggplot2)
#Data
lm_model <- data.frame(year=2010:2020,
                       pred_price=runif (11,0,75),
                       real_price=runif (11,0,75))
#Code
ggplot(lm_model, aes(x=year, y=pred_price)) +
  geom_point(aes(color = "red")) +
  geom_line(aes(color = "red")) +
  geom_line(aes(x=year, y=real_price,color='black')) +
  labs(title = "Linear Regression",
       x = "Year",
       y = "Gas Price") +
  scale_color_manual(labels = c("Predicted", "True Value"),
                     values=c('black','red'))+
  labs(color='Price')

Выход:

Великолепно! Однако название легенды «цвет». Как я могу изменить это на ничто? то есть без названия легенды.

— 14.12.2020 01:03

@Joehat Я обновил код тем, что вы хотите, а также добавил некоторые фиктивные данные. Дай мне знать, если это работает!

— 14.12.2020 01:07

14.12.2020 01:00