Линейный график ggplot по группам и подгруппам без фасета

Question

Мне интересно, смогу ли я построить отдельные линии для двух переменных без использования функции сетки. Я бы предпочел 4 линии на одном графике, чем 2 линии в 2 сетках. Это нормально, если я не могу, но думал, что я бы спросил.

Мои данные таковы:

nd<-data.frame(Machine = c(2,2,3,3,2,2,3,3), 
Source = c("tube", "machine","tube", "machine","tube", "machine","tube", "machine"),
Time=c(0,0,0,0,2,2,2,2), 
Count=c(224000, 107000, 850000, 940000, 610000,116000, 1160000, 1100000))

и этот код дает мне то, что я хочу с аспектом ...

ggplot(data=nd, aes(x=Time, y=Count, group=Machine, color=Machine)) +
 geom_line(aes(group=Machine))+ geom_point()+facet_grid(~Source)

Есть ли альтернатива этому?

PS, хотя Machine является фактор-переменной, почему моя легенда показывает ее как непрерывную?

Answer 1

Одним из быстрых способов является использование функции interaction, которая вставляет две переменные с помощью "."

ggplot(data=nd, aes(x=Time, y=Count, color=interaction(Machine,Source))) +
geom_line() + geom_point() +
scale_color_manual("groups",
values=c("#61d4b3","#fdd365","#fb8d62","#fd2eb3"))