原创:黄小仙
看我今天给大家带来了什么?
美貌与智慧并存的折线图
这个图看起来很简单哈,但是画起来稍微有点繁琐,小仙马上又要开始唠叨模式,希望对大家能有所帮助。
Step1. 绘图数据的准备
首先还是要把你想要绘图的数据调整成R语言可以识别的格式excel中保存成csv格式。
数据的格式如下图:
Step2. 绘图数据的读取
data<-read.csv(“your file path”, header = T)
Step3.绘图所需package的调用
library(ggplot2)
Step4.绘图
上图完整代码
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 = "