R语言读取csv文件的数据并使用dplyr包的data.frame函数,指定行名称筛选某一行数据

  1. 处理源数据  如图:     

    红框位置得得ID如果不存在就手动加上,后面需要用到ID做筛选

  2. R代码

    library("dplyr") #导入dplyr 包  如果未安装dplyr ,请使用install.packages("dplyr") 进行安装
    data <- read.csv("TCGA11111.csv",header = T) #导入数据文件
    data <- data.frame(data) #调用data.frame 方法 处理数据
    #指定要提取的行名称
    get1 <- data %>% filter( ID == 'SRF'|ID == "NR3C1"|ID == "NF1"|ID == "TBP"|ID == "RXRA"|ID == "WT1"|ID == "ETV4"|ID == "PAX5"|ID == "TP53"|ID == "FOXA1"|ID == "FOXP3"|ID == "MYB"|ID == "IRF1"|ID == "LEF1"|ID == "IKZF1"|ID == "STAT1"|ID == "NFYA"|ID == "EBF1"|ID == "E2F1"|ID == "ELK1"|ID == "POU2F1"|ID == "NR2F1")
    write.csv(get1,"newName.csv") #把筛选出来的数据保存到文件newName.csv文件
    
  3. 最后导出的结果

     

 

  • 2
    点赞
  • 16
    收藏
    觉得还不错? 一键收藏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值