R语言作图——Line plot with colored ba

原创：黄小仙

看我今天给大家带来了什么？

美貌与智慧并存的折线图

这个图看起来很简单哈，但是画起来稍微有点繁琐，小仙马上又要开始唠叨模式，希望对大家能有所帮助。

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"就能画出另外一张粉色图形啦

（公众号：生信了）