Как вручную добавить легенду

Question

У меня есть данные, которые выглядят следующим образом:

test1 <- tibble(Freq=c(79,170,126),
               Seconds=1:3,
               Task = "Task1")

Которые я строю следующим образом:

ggplot(test1, aes(x=Seconds, y=Freq)) +
  geom_histogram(stat="identity", fill="red", alpha=0.5, width=1, color="black")+
  ylim(0,180) +
  labs(title="Task 1", x="Number of Seconds Inside Island", y = "Count")

Но на графике нет легенды. В идеале мне нужна легенда с заголовком «Задача» и красным полем с именем «Задача 1».

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

Любая помощь очень ценится.

Answer 1

Вы должны явно указать столбец в aes, если хотите, чтобы он был в легенде. В этом примере вы просто помещаете постоянный столбец

test1$col <- "Task 1"
ggplot(test1, aes(x=Seconds, y=Freq, fill=col)) +
    geom_histogram(stat="identity", alpha=0.5, width=1, color="black")+
    ylim(0,180) +
    labs(title="Task 1", x="Number of Seconds Inside Island", y = "Count", fill = "Task")

Answer 2

ggtitle (label) # для основного заголовка xlab (label) # для ярлыка оси x ylab (label) # для ярлыков оси y labs (...) # для основного заголовка, подписей оси и заголовков легенды