ggplot分组折线图
2021-08-27 本文已影响0人
yingyonghui
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)。