Я строю некоторые данные, собранные на графиках в разных отсеках. Следовательно, у каждой точки данных есть цвет (график) и форма (отсек). В легенде я хотел бы показать символы для отсеков в черном, но я не хочу показывать цветную легенду.
Как Я только добавил scale_shape_manual(values = c(3:8)), а не scale_colour_manual, я надеялся, что он не появится, но он появляется.
Я пробовал кое-что с guides(colour = guide_legend(override.aes = ...)), но не могу найти способ удалить его .
Пример кода:
library(ggplot2)
pred_X <- c(10, 20, 25, 8, 12, 20, 18, 30, 40)
obs_X <- c(9, 18, 27, 10, 15, 19, 16, 32, 40)
afdeling <- rep(c("A", "B", "C"), each=3)
plot <- rep(c("plot 1", "plot 2", "plot 3"), times=3)
output <- data.frame(pred_X, obs_X, afdeling, plot)
ggplot(aes(x = pred_X, y = obs_X), data=output) +
geom_point(aes(shape=afdeling, colour=plot)) +
scale_shape_manual(values = c(1:3)) +
#guides(colour = guide_legend(override.aes = NULL)) +
scale_x_continuous(expand = c(0,0), limits = c(0,60)) +
scale_y_continuous(expand = c(0,0), limits = c(0,60)) +
geom_smooth(method='lm', colour="black", se=F, lwd=0.7)