R语言折线图

#以一二组为不同颜色组——进而绘制不同组折线图，关键代码：color=dat1[,2])

p_line=ggplot(dat1)+

geom_line(aes(x=dat1[,1],y=dat1[,3],color=dat1[,2]),size=1.2)+

scale_color_manual(values = c("blue","red"))+

#坐标间距调整

scale_x_continuous(breaks = seq(0, max(dat[,1])+5000, 5000))+

scale_y_continuous(breaks = seq(-1, 1, 0.1))+

#标注坐标名称、legend图例名称

labs(x="Gene position",y="Similarity",color="Group")+

#改图片其他参数

theme(

legend.title = element_text(size = 15,face = "bold"),

legend.text = element_text(size = 15, face = "bold"),

legend.position = 'right',