ggplot: legend mixes 2 discree variables

Question

Я пытаюсь построить временные ряды (y = NDVI) вместе с флагами качества (QF) в виде цветных точек при y = 0. Я хочу, чтобы временные ряды были индивидуально сгруппированы и окрашены сайтом наблюдения (ID). Проблема заключается в том, что я получаю одну единственную легенду смесительную сайты и коды QF данных

в https://dl.dropboxusercontent.com/u/3180464/VN2014m.rda

attach("VN2014m.rda") 
head(VN2014m) 
str(VN2014m) 

С либо QF или ID результат хороший (я опускаю оси укладки и т.д.):

ggplot(data=VN2014m) + 
    geom_point(aes(x=Date,y=NDVI)) + 
    geom_point(aes(x=Date,y=QF0,group=QF,col=QF)) 

ggplot(data=VN2014m) + 
    geom_point(aes(x=Date,y=NDVI)) + 
    geom_line(aes(x=Date,y=NDVI,group=ID,col=ID)) 

Но как с ID и QF я одна смешанная легенда

ggplot(data=VN2014m) + 
    geom_point(aes(x=Date,y=NDVI)) + 
    geom_line(aes(x=Date,y=NDVI,group=ID,col=ID)) + 
    geom_point(aes(x=Date,y=QF0,group=QF,col=QF)) 

Почему? Как я могу получить две отдельные легенды, ID и QF?

Answer 1

Как насчет использования shape=QF?

ggplot(data=VN2014m) + 
    geom_point(aes(x=Date,y=NDVI)) + 
    geom_line(aes(x=Date,y=NDVI,group=ID,col=ID)) + 
    geom_jitter(aes(x=Date,y=QF0,group=QF,shape=QF), 
       size=3,position = position_jitter(height = .1))