1.用ggplot2绘制折线图
ggplot(data=data_name, aes(x=colname_1, y=colname_2), col="color_name") + geom_line()
ggplot() + geom_line(data=data_name, aes(x=colname_1, y=colname_2), col="color_name")
- 用参数
group来对折线进行分组
> aa <- p3$mids[1:10]
> bb <- p3$counts[1:10]
> kk <- as.data.frame(list(aa, bb))
> colnames(kk) <- c("aa", "bb")
> kk
aa bb
1 1027.5 9
2 1032.5 34
3 1037.5 32
4 1042.5 41
5 1047.5 37
6 1052.5 36
7 1057.5 41
8 1062.5 41
9 1067.5 27
10 1072.5 31
> gg <- kk
> gg$aa <- gg$aa-100
> gg$bb <- gg$bb+20
> colnames(gg) <- c("dd", "ee")
> gg
dd ee
1 927.5 29
2 932.5 54
3 937.5 52
4 942.5 61
5 947.5 57
6 952.5 56
7 957.5 61
8 962.5 61
9 967.5 47
10 972.5 51
> ggplot() + geom_line(data=kk, aes(x=aa, y=bb), col="red") + geom_line(data=gg, aes(x=dd, y=ee), col="blue") '#将两条或者多条折线画在同一图中
image.png
在一图内绘制多条折线时，所用的数据可以随意更换
2. 当x轴不是数字时，进行折线图绘制
geom_line(aes(x=, y=), group=1)其中
group=1是关键；x轴的顺序通过因子的顺序来进行控制
pp <- as.data.frame(list(aa=paste0("kk_",1:10), bb=(1:10)^2))
pp$aa <- ordered(pp$aa, level=paste0("kk_",1:10))
ggplot()+geom_line(data = pp, aes(x=aa, y=bb), group=1)
3. 绘制平滑曲线
https://www.jianshu.com/p/01941917b488
需要的包：
ggalt
ggplot()+geom_xspline(data=, aes(x=,y=))
Note:当 X轴 不是数字时，采用如下语法
ggplot()+geom_xspline(data=, aes(x=,y=, group=1))
