R语言模糊匹配列名后转换为长数据

最新推荐文章于 2025-03-25 20:05:32 发布

原创最新推荐文章于 2025-03-25 20:05:32 发布 · 387 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#r语言 #开发语言

收录于

R语言专栏收录该内容

14 篇文章

订阅专栏

文章展示了如何利用R语言的data.table和tidyverse包来处理宽数据，特别是提取含有特定关键字的列名。通过编写函数select_col，根据给定的关键字（如悟空，八戒，沙僧）从数据集中选择列，并将结果整合到一个新的数据表中。最后，对数据进行了一些特定的过滤和清理操作，如设置标志列并删除特定值。

很多数据，是典型的宽数据，包含很多列，有共同属性的列的列名有相同的关键字。
利用R语言的data.table和tidyverse包，处理方法如下

library(tidyverse)
library(data.table)
setDT(fl)
# 提取数据的列名
(nm <- names(fl))
# 定义一个函数，提取包含相同关键字的列名，如悟空
select_col <- function(m){
  fp <- nm[str_detect(nm,m)]
  fp <- c("唐僧",fp)
  return(fp)
}
# 列出所有需要提取列的关键字
lname <- c('悟空','八戒','沙僧')
# 定义一个存放结果的数据结构
dt <- data.table()
# 开始
for(i in 1:3){
  tmp_col <- select_col(lname[i])
  tp <- fl[,.SD,.SDcols=(tmp_col)]
  names(tp) <- tt
  dt <- rbind(dt,tp)
}
dt <- dt %>% unique()
dt[,flag:=`悟空固定电话`== `悟空移动电话`]
dt[flag==TRUE,`悟空固定电话`:='']
dt[`悟空固定电话`=='[NULL]',`悟空固定电话`:='']
write.csv(dt,"dt.csv")