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

data<-read.csv(“your file path”, header = T)

library(ggplot2)

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