长data变窄data

最新推荐文章于 2022-08-02 19:08:24 发布

2018每天打卡

最新推荐文章于 2022-08-02 19:08:24 发布

阅读量935

点赞数

分类专栏： R

本文链接：https://blog.csdn.net/jqm299299/article/details/81583689

版权

R 专栏收录该内容

25 篇文章 0 订阅

订阅专栏

注重基础函数的应用，用了两个比较常用的package

library(plyr)
library(rlist)
A <- data.frame(a = c(rep("A",3),
                      rep("B",3),
                      rep("C",4)),
                b = c(1,2,3,4,5,6,7,8,9,0))
da  <- dlply(A, .(a),c)
da1 <- list.flatten(da)
da2 <- da1[laply(da1, is.numeric)]
re <- NULL
for(i in 1:length(da2))
{
  re <- c(re,paste(da2[[i]],sep = "", 
                   collapse = ""))
}
data.frame(name = unique(A$a), result = re)