R 无法使用ggplot放置图例
我试图用拟合曲线（xm1a、xm1b、xm1c）和趋势线（xm21a、xm21b、xm21c）绘制3个时间序列数据（int1a、int1b、int2c）。我得到了这个图（见附件），但是，我无法在这个图的顶部加上一个图例 代码R 无法使用ggplot放置图例,r,ggplot2,time-series,R,Ggplot2,Time Series,我试图用拟合曲线（xm1a、xm1b、xm1c）和趋势线（xm21a、xm21b、xm21c）绘制3个时间序列数据（int1a、int1b、int2c）。我得到了这个图（见附件），但是，我无法在这个图的顶部加上一个图例 代码 fn_fr1 = data.frame(xs, int1a, xm1a, xm21a, int1b, xm1b, xm21b, int1c, xm1c, xm21c) labs = c("2007","2008","2009","2010","2011","2012
fn_fr1 = data.frame(xs, int1a, xm1a, xm21a, int1b, xm1b, xm21b, int1c, xm1c, xm21c)
labs = c("2007","2008","2009","2010","2011","2012","2013","2014","2015","2016","2017")
ggplot(data=fn_fr1, aes(xs, y = value, color = variable)) +
theme_set(theme_bw()) +
# ------------------ NC --------------
geom_line(aes(y = xm1a), colour="black") +
geom_point(aes(y = int1a), shape =21, colour = "Black", fill="white") +
geom_line(aes(y = xm21a),colour='black', linetype="dashed", size=1.25) +
ylim(200,max(fn_fr1$int1a)) +
theme(plot.title=element_text(vjust=0.75, hjust=1.0)) +
scale_x_continuous(name="year", breaks=seq(0,10,1), labels=labs) +
ylab("CO (ppb)") +
# ------------------ YS --------------
geom_line(aes(y = xm1b), colour="Red") +
geom_point(aes(y = int1b), shape =25, colour = "Red", fill="white") +
geom_line(aes(y = xm21b),colour='Red', linetype="dashed", size=1.25) +
# ------------------ SK --------------
geom_line(aes(y = xm1c), colour="blue") +
geom_point(aes(y = int1c), shape =22, colour = "Blue", fill="white") +
geom_line(aes(y = xm21c),colour='blue', linetype="dashed", size=1.25) +
theme(legend.position = "top", legend.box = "horizontal") +
# scale_fill_identity(name = 'Fitting',values = c(int1a='point', xm1a='solid',xm21a='dashed'), labels = c('Data','Curve','Trend')) +
scale_colour_manual(name = 'Regions',values = c(int1a='black', int1a='red', int1c='blue'), labels = c('NC','YS','SK'))