因为你的叙述不是很清楚 只知道你有10万个csv, 存在list里 list中nrow不确定, 只知道是5的倍数 然後把资料直转横 解法前面两位都写了, 我只想补充, 如果资料结构是很固定的, 请注意你loop的方向 下面的东西虽然丑, 不过loop是18 不是 nrow(N)/5 要好看的话, 用动态变数缩一缩就可以 #### library(dplyr) data_m <- data.frame(v1=rep("6/1",5), v2=rep("a",5), v3=rep("b",5), v4=c(12:16), v5=rep(1,5), v6=c(2:6), stringsAsFactors=F) data_l <- lapply(1:100000, function(v){data_m}) data2 <- data_l %>% rbind_all() ind <- seq(1,nrow(data2),5) myV1 <- data2[ind,1] myV2 <- data2[ind,2] myV3 <- data2[ind,3] myV4 <- data2[ind,4] myV5 <- data2[ind,5] myV6 <- data2[ind,6] myV7 <- data2[ind+1,4] myV8 <- data2[ind+1,5] myV9 <- data2[ind+1,6] myV10 <- data2[ind+2,4] myV11 <- data2[ind+2,5] myV12 <- data2[ind+2,6] myV13 <- data2[ind+3,4] myV14 <- data2[ind+3,5] myV15 <- data2[ind+3,6] myV16 <- data2[ind+4,4] myV17 <- data2[ind+4,5] myV18 <- data2[ind+4,6] data_out <- data.frame(myV1, myV2, myV3, myV4, myV5, myV6, myV7, myV8, myV9, myV10, myV11, myV12, myV13, myV14, myV15, myV16, myV17, myV18, stringsAsFactors=F) ※ 引述《spiderway (spiderway)》之铭言： : - 问题: 当你想要问问题时，请使用这个类别 : [问题类型]: : 效能谘询(我想让R 跑更快) : [软体熟悉度]: : 入门(写过其他程式，只是对语法不熟悉) : [问题叙述]: : 大家好， : 最近因为需要要处理一些资料，虽然有写出要的东西，但是实在是跑太慢了，感觉要跑个 : 几年= =,一定是我写法不好,想来这问一下各位大大该怎个改才对，并学习一下 : 麻烦各位大大给予小鲁指导，感激不尽!!! : 程式: : 读取了全部CSV(10万多个)存在一个大大的list里面,要做的大概是把每一个list里面的 : 资料都做同一件事,就是每5笔整理成1笔,然後append在一起，如下 : 1 2 3 4 5 6 1 2 3 .... : 1 6/1 a b 12 1 2 1 6/1 a b 12 1 2 13 1 3 14 1 4 15 1 5 16 1 6 : 2 6/1 a b 13 1 3 : 3 6/1 a b 14 1 4 变成1笔>>> : 4 6/1 a b 15 1 5 : 5 6/1 a b 16 1 6 : [程式范例]: : http://pastie.org/10898589 : [版本] : R version 3.3.0 (2016-05-03) : Platform: x86_64-pc-linux-gnu (64-bit) : Running under: Ubuntu 14.04.4 LTS : [关键字]: --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 36.225.14.82 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1467746279.A.F96.html