ggplot分组折线图

ggplot分组折线图

# 示例数据
set.seed(1234)
year <- rep(2010:2014, times=2)
type <- rep(c('A','B'), each = 5)
value <- c(runif(5), runif(5, min=1, max=1.5))
df <- data.frame(year=year, type=type, value=value)
df

WX20210827-151015@2x.png

# 示例程序
ggplot(data = df, mapping = aes(x=year, y=value, 
linetype=type, colour=type, shape=type, fill=type)) + 
geom_line() + 
geom_point() + #绘制线图和点图
scale_linetype_manual(values=c(1,2)) + #自定义线条类型
scale_color_manual(values=c('steelblue','darkred')) + #自定义颜色
scale_shape_manual(values=c(21,23)) + #自定义点形状
scale_fill_manual(values=c('red','black')) #自定义点的填充色

如果横坐标（year）为离散变量，必须还得加上‘group=year’的参数，或设置x=as.numeric(year)。