原创：黄小仙
看我今天给大家带来了什么？
美貌与智慧并存的折线图
这个图看起来很简单哈，但是画起来稍微有点繁琐，小仙马上又要开始唠叨模式，希望对大家能有所帮助。
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 = "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"就能画出另外一张粉色图形啦
（公众号：生信了）
