Создание легенды на ggplot2

Question

Как добавить легенду к этому коду?

Спасибо!

ggplot()+ 
    geom_point(data=avg_harv_df, aes(x=samp_per, y=ndvi), size=3, color='red') + 
    geom_point(data=avg_sjer_df, aes(x=samp_per, y=ndvi), size=3, color='blue') + 
    ylab("NDVI")+ 
    xlab("Sampling period") 

Answer 1

Вариант 1:

ggplot()+ 
    geom_point(data=avg_harv_df, aes(x=samp_per, y=ndvi, col = "a"), size=3) + 
    geom_point(data=avg_sjer_df, aes(x=samp_per, y=ndvi, col = "b"), size=3) + 
    ylab("NDVI")+ 
    xlab("Sampling period") 

Вариант 2:

combined <- dplyr::bind_rows(avg_harv_df, avg_sjer_df, .id = 'col') 
ggplot(combined, aes(x=samp_per, y=ndvi, col = col))+ 
    geom_point(size=3) + 
    ylab("NDVI")+ 
    xlab("Sampling period") 

Я почти всегда предпочитаю вариант 2.