R语言学习（1）绘制简单的折线图

折线图通常用来对两个连续变量之间的相互依存关系进行可视化。x轴可以是连续型变量，也可以是离散型变量。生物学中，通常用来表示不同药物剂量下实验对象的变化，或者是基因在不同类型组织或细胞中的表达模式。

今天画了一张简单的折线图，为方便后续查阅，特将代码整理发布。

读取数据：

###从粘贴板读取数据，并保留表头，也可以直接通过读取数据表读取数据
data<-read.table('clipboard',header=T)

使用ggplot绘制绘制简单的折线图

###绘制图片并添加x、y轴标签
p1<-ggplot(data , mapping = aes(x = time, y = rate)) + geom_line() + xlab('诱变时长 Mutation time(s)')+ylab('存活率Survival rate(%)')

p1

将刻度线放里面

p2<-p1+theme(axis.ticks.length.x = unit(-0.1,"cm"),axis.text.x = element_text(margin = unit(c(0.5, 0.5, 0.5, 0.5), 'cm')))+theme(axis.ticks.length.y = unit(-0.1,"cm"),axis.text.y = element_text(margin = unit(c(0.5, 0.5, 0.5, 0.5), 'cm')))

p2

去掉阴影更改刻度并美化

#去阴影
p3=p2+theme_bw() +
    theme(panel.grid.major=element_line(colour=NA),
            panel.background = element_rect(fill = "transparent",colour = NA),
            plot.background = element_rect(fill = "transparent",colour = NA),
            panel.grid.minor = element_blank())
###更改线条颜色及添加点            
p4=p3+geom_point(pch=20,cex=5,color='red')+geom_line(cex=1,color='blue')

p4

####修改坐标轴刻度
p5=p4+scale_x_continuous(breaks = c(0, 10, 20, 30, 40, 50,60,70,80))+scale_y_continuous(breaks = c(0, 0.10, 0.20, 0.30, 0.40, 0.50,0.60,0.70,0.80,0.90,1.0))

p5

最终图