R ggplot2 画折线图

川长思鸟来 2022-12-02 15:06 151阅读 0赞

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

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

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()

运行结果如下：

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80MTc5MjE2Mg_size_16_color_FFFFFF_t_70][]

将本地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")

运行结果如下：

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80MTc5MjE2Mg_size_16_color_FFFFFF_t_70 1][]

其中，数据格式如下：

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80MTc5MjE2Mg_size_16_color_FFFFFF_t_70 2][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80MTc5MjE2Mg_size_16_color_FFFFFF_t_70 3][]

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

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80MTc5MjE2Mg_size_16_color_FFFFFF_t_70]: /images/20221123/6ff9ccb1ecbd41f8822ed41ea21c17a1.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80MTc5MjE2Mg_size_16_color_FFFFFF_t_70 1]: /images/20221123/4b9428e9bec74a068f2a2d1a26a69075.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80MTc5MjE2Mg_size_16_color_FFFFFF_t_70 2]: /images/20221123/1daa27486ec246b78ab26faa9b10c613.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80MTc5MjE2Mg_size_16_color_FFFFFF_t_70 3]: /images/20221123/33c1540321e74d5b98f17704098062af.png