Я имею в виду раздел 12.2.4, упражнение 1 в книге Хэдли Уикхэм ggplot2 .
В упражнении предоставляется следующий код:
fwd <- subset(mpg, drv == "f")
rwd <- subset(mpg, drv == "r")
ggplot(fwd, aes(displ, hwy, colour = class)) + geom_point()
ggplot(rwd, aes(displ, hwy, colour = class)) + geom_point()
Что дает следующий результат:
The following task is given: Modify the code so that the legend and axes match, without using facetting!
I am able to modify so that the axes match:
ggplot(fwd, aes(displ, hwy, colour = class)) + geom_point() + xlim(c(0, 7)) + ylim(c(0, 45))
ggplot(rwd, aes(displ, hwy, colour = class)) + geom_point() + xlim(c(0, 7)) + ylim(c(0, 45))
yielding:
два
Но я не могу сопоставить легенды. Этот вопрос возникает перед объяснением scale_colour_manual(), поэтому я не думаю, что мы должны его использовать.
Есть идеи о том, как сопоставить легенды?
Спасибо!