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

作者: 敢嫁就敢娶
发布时间: 2024-12-19 11:05:16 (1月前)
转自：

3 条回复

0#
回复此人
一腔诗意 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 通过使用 <code> dplyr </code> </p> <pre> <code> df$group=(df$ID-1)%/%3 df%>%group_by(group)%>%dplyr::summarise(ntype=paste0(type,collapse = '')) # A tibble: 9 x 2 group ntype <dbl> <chr> 1 0 huk 2 1 wyb 3 2 nxo 4 3 lyl 5 4 roc 6 5 xgb 7 6 iyx 8 7 sqz 9 8 r </code> </pre> </DIV>

编辑
1#
回复此人
清月 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 的<strong> 1） </强> <code> rollapply </code> 沿输入向量： </p> <pre> <code> library(zoo) rollapply(df$type, 3, by = 3, paste, collapse = "", partial = TRUE, align = "left") </code> </pre> <P> 赠送： </p> <pre> <code> [1] "huk" "wyb" "nxo" "lyl" "roc" "xgb" "iyx" "sqz" "r" </code> </pre> <P> 的<strong> 2） </强> 这种替代方案使用 <code> aggregate </code> 没有包裹。 </p> <pre> <code> n <- nrow(df) aggregate(type ~ gl(n, 3, n), df, paste, collapse = "")[2] </code> </pre> <P> 赠送： </p> <pre> <code> type 1 huk 2 wyb 3 nxo 4 lyl 5 roc 6 xgb 7 iyx 8 sqz 9 r </code> </pre> </DIV>

编辑

登录后才能参与评论