R ggplot2 画折线图

如何从本地导入文件并画出数据对应的折线图。

如以下代码，可实现指定数据画出折线图

library(ggplot2)
 #设计数据集，
df <- data.frame(sex = rep(c("Female", "Male"), each=3),
                 time=c("breakfeast", "Lunch", "Dinner"),
                 bill=c(10, 30, 15, 13, 40, 17) )
#画数据
ggplot(data=df,mapping=aes(x=time,y=bill,group=sex))+
  geom_line()+
  geom_point()

运行结果如下： 

将本地txt文件显示成折线图：

library(ggplot2)

#获得Liver_20200520_AI1数据
#从桌面导入文件夹
getLiver_20200520_AI1Data<-read.table("C:\\Users\\LYP\\Desktop\\summary\\summary\\Liver_20200520_AI1.sequenceSaturation.tsv") 
#显示导入的数据
getLiver_20200520_AI1Data
#显示数据的第一行
getLiver_20200520_AI1Data$V1
#显示数据的第三行
getLiver_20200520_AI1Data$V3


#获得Liver_20200520_AI5数据
getLiver_20200520_AI5Data<-read.table("C:\\Users\\LYP\\Desktop\\summary\\summary\\Liver_20200520_AI5.sequenceSaturation.tsv") 

getLiver_20200520_AI5Data

getLiver_20200520_AI5Data$V1

getLiver_20200520_AI5Data$V3

 

#打印折现类型
type <- rep(c('Liver_20200520_AI1','Liver_20200520_AI5'),each = 13)
#Y轴数据
yData=c(getLiver_20200520_AI1Data$V3,
        getLiver_20200520_AI5Data$V3)
#设计x轴数据
xData=c(0.010, 0.025 ,0.050, 0.100, 0.200, 0.300 ,0.400 ,0.500 ,0.600,
        0.700 ,0.800,0.900, 1.000)

sample<-xData

bar_y1<-yData

#将X轴，y轴和数据类型形成数据集
df <- data.frame(type,sample,bar_y1)
#画图
ggplot(df, aes(x=sample, y=bar_y1,colour=type,group=type))+
  geom_line(size=1)+geom_point(size=4)+
  labs(title ="Liver")

 运行结果如下：

其中，数据格式如下：

csdn无法上传文件，因此显示两个txt文件的数据格式，可自己创建文件并保存，然后修改程序路径即可。