看我今天给大家带来了什么?
美貌与智慧并存的折线图
这个图看起来很简单哈,
但是画起来稍微有点繁琐,
小仙马上又要开始唠叨模式,
希望对大家能有所帮助。
Step 01
绘图数据的准备
首先还是要把你想要绘图的数据调整成R语言直接可以识别的格式,
在excel中保存成csv
Step 02
绘图数据读取
data<-read.csv(“your file path”, header = T)
Step 03
绘图所需package的调用
library(ggplot2)
Step 04
绘图
上图完整代码
p <- ggplot(data,aes(x = Time, y = Gene.expression, color = Type)) + geom_rect(aes(xmin = 8, xmax = 32, ymin = -Inf, ymax = Inf), fill = "skyblue", color = "white", alpha = 0.03) + geom_line(aes(x = Time, y = Gene.expression, group = Type, color = Type), size = 1) + geom_point(size = 2, shape = 15) + scale_color_manual(values = c("darkgray", "skyblue")) + xlab("Time(min)") + ylab("Expression") + theme(panel.background = element_blank(), panel.border = element_rect(colour = "gray", fill = NA))
p
分步解析
首先画出分组的折线图
然后画出填充矩形
调整图层顺序,降低矩形透明度
调整背景
隐藏矩形边框
最后,
把上面代码中的颜色"skyblue" 换成"pink"就能画出另外一张粉色图形啦
结束语
小仙偶然发现自己写的教程排版实在太丑,有点配不上画的这么好看的图(敝帚自珍)。
今天痛下决心学习了一下文章的排版,不幸有点翻车(留点进步空间)。
继续加油呀!