R语言|根据列名提取/筛选列的两种方法

本文介绍了在R语言中根据列名筛选列的三种方法:1) 使用grepl,适用于列较少的情况;2) 利用%in%判断列名是否存在;3) 直接通过列索引进行提取或删除。提醒读者在使用grepl时注意代码要在同一行内,并检查筛选后的列数是否正确。
摘要由CSDN通过智能技术生成

R根据列名提取/筛选列

A little thought

刚入行的生信小白,还有很多R语使用不熟练。打算把常用的有用的记录在blog,以后就不用再重新百度谷歌了。也希望可以帮助到正在寻找答案的uu们

当列太多想进行筛选的时候用index不是很方便,根据列名会更方便一点

1. grepl

df= read.csv('~/PD/normalization/ne/ne_0922.csv') #导入文件

df2<- df[,grepl("UserID|NEFL|CCL27|GPNMB|GGT5|DPEP1", colnames(df))
  • 31
    点赞
  • 130
    收藏
    觉得还不错? 一键收藏
  • 3
    评论
### 回答1: 可以使用 readxl 包来读取 excel 文件,然后使用 col_types 参数只读取指定,示例代码如下:library(readxl) data <- read_excel("filename.xlsx", col_types = c("numeric", "numeric", "numeric", "numeric")) ### 回答2: 要使用R语言提取60个excel表格里的数据,可以按照以下步骤进行编写代码: 1. 首先,需要加载`readxl`库,这是一个R语言里用于处理Excel的库。可以使用以下命令进行加载: ```R install.packages("readxl") # 安装readxl库 library(readxl) # 加载readxl库 ``` 2. 接下来,可以利用`read_excel()`函数读取每个excel表格,并提取所需的数据。假设要提取为"A"。可以使用以下代码: ```R for (i in 1:60) { file_path <- paste("path/to/excel/", i, ".xlsx", sep="") # 替换为实际的excel文件路径 data <- read_excel(file_path) # 读取excel文件 column_a <- data$A # 提取"A"的数据到变量column_a # 在此处可以对提取的数据进行进一步处理,如保存到另一个文件或进行统计分析等 } ``` 上述代码将会逐个读取60个excel表格,并将每个表格"A"的数据存储到变量`column_a`。你可以根据实际需求对提取的数据进行进一步的处理和分析。 请注意,在代码,你需要将`"path/to/excel/"`替换为实际的excel文件所在路径,并确保文件命名为"1.xlsx"、"2.xlsx"、"3.xlsx"等,依次递增。此外,你还可能需要根据实际情况修改提取列名称,以及对提取的数据进行所需的操作。 ### 回答3: 要使用R语言提取60个excel表格数据,可以按照以下步骤编写代码: 1. 首先,加载所需的R包。使用`readxl`包来读取excel表格数据。 ```R library(readxl) ``` 2. 创建一个空的数据框或表,用于存储提取数据。 ```R extracted_data <- data.frame() # 或者 extracted_data <- list() ``` 3. 使用循环来遍历每个excel表格。假设这些表格位于同一个文件夹下,并且表格名称存储在一个字符向量 `file_names` 。 ```R file_names <- list.files("路径/到/文件夹") # 替换为实际的文件夹路径 for (file_name in file_names) { full_file_path <- paste("路径/到/文件夹", file_name, sep = "/") # 替换为实际的文件夹路径 ``` 4. 使用 `read_excel` 函数读取每个excel表格。 ```R data <- read_excel(full_file_path) ``` 5. 提取指定的数据并将其添加到之前创建的数据框或。假设要提取列名称为 `column_name`。 ```R extracted_column <- data$column_name extracted_data <- rbind(extracted_data, extracted_column) # 如果用表存储,则使用 extracted_data <- c(extracted_data, extracted_column) ``` 6. 循环结束后,提取数据将保存在 `extracted_data` 。 完整代码示例: ```R library(readxl) extracted_data <- data.frame() # 或者 extracted_data <- list() file_names <- list.files("路径/到/文件夹") # 替换为实际的文件夹路径 for (file_name in file_names) { full_file_path <- paste("路径/到/文件夹", file_name, sep = "/") # 替换为实际的文件夹路径 data <- read_excel(full_file_path) extracted_column <- data$column_name extracted_data <- rbind(extracted_data, extracted_column) # 如果用表存储,则使用 extracted_data <- c(extracted_data, extracted_column) } extracted_data ``` 请注意,上述代码的路径需要根据实际情况进行替换,并且需要确保所需的excel表格位于指定的文件夹。同时,`column_name`也需要根据目标的名称进行替换。
评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值