在R中使用行聚合创建新数据

发布时间：2020-12-14 04:48:26 所属栏目：百科来源：网络整理

导读：我有的数据框包含两个列：ID和类型(字符).见下文： set.seed(123)ID - seq(1,25)type - sample(letters[1:26],25,replace=TRUE)df - data.frame(ID,type) 我需要创建一个只包含一列的新数据框.第一次观察将是第一次列类型中的三个字母,第二个观察是第二个三

我有的数据框包含两个列：ID和类型(字符).见下文：

set.seed(123)
ID <- seq(1,25)
type <- sample(letters[1:26],25,replace=TRUE)

df <- data.frame(ID,type)

我需要创建一个只包含一列的新数据框.第一次观察将是第一次
列类型中的三个字母,第二个观察是第二个三个字母,很快就开始了.

新数据看起来像

ndf <- data.frame(ntype=c("huk","wyb","nxo","lyl","roc","xgb","iyx","sqz","r"))

解决方法

我们使用gl创建一个分组变量,然后使用tapply将元素粘贴在一起

n <- 3 
ndf <- data.frame(ntype = with(df,unname(tapply(type,as.integer(gl(nrow(df),n,nrow(df))),FUN =paste,collapse=""))),stringsAsFactors= FALSE)
ndf$ntype
#[1] "huk" "wyb" "nxo" "lyl" "roc" "xgb" "iyx" "sqz" "r"

或者另一种选择是将整个列粘贴在一起然后拆分

strsplit(paste(df$type,collapse=""),"(?<=.{3})",perl = TRUE)[[1]]
#[1] "huk" "wyb" "nxo" "lyl" "roc" "xgb" "iyx" "sqz" "r"

或者另一个选项是带有粘贴的子串

substring(paste(df$type,seq(1,nrow(df),by = 3),c(seq(3,nrow(df)))
#[1] "huk" "wyb" "nxo" "lyl" "roc" "xgb" "iyx" "sqz" "r"

注意：以上所有都是基本R解决方案

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!