1

有没有一种快速的方法来按关键字拆分大型 data.frame

因此,例如,如果我有下面的数据集,是否有一种快速的方法可以在每次出现该source:restaurant行时拆分数据框?对这个问题的另一个看法是,是否有一种基于截止列表(在这种情况下c(3,7,10))为数据框创建因子的快速方法,然后会给我例如factors=c(A,A,A,B,B,B,B,C,C,C)我可以在split(mylist,factors)公式中使用的?谢谢

mylist=structure(list(V1 = structure(c(5L, 3L, 7L, 8L, 6L, 4L, 7L, 2L, 
1L, 7L), .Label = c("cider", "claret", "custard", "krispies", 
"rhubarb", "shreddies", "source:restaurant", "weetabix"), class = "factor"), 
    V2 = c(1L, 5L, NA, 9L, 13L, 17L, NA, 21L, 25L, NA), V3 = c(2L, 
    6L, NA, 10L, 14L, 18L, NA, 22L, 26L, NA), V4 = c(3L, 7L, 
    NA, 11L, 15L, 19L, NA, 23L, 27L, NA), V5 = c(4L, 8L, NA, 
    12L, 16L, 20L, NA, 24L, 28L, NA)), .Names = c("V1", "V2", 
"V3", "V4", "V5"), class = "data.frame", row.names = c(NA, -10L
))

下面是一个非常笨拙的可能解决方案,但我希望有一些更优雅的东西..

temp=NULL
a=which(mylist[,1] == 'source:restaurant')
for(i in seq_along(a)){temp=c(temp,rep(letters[i],(a[i]-length(temp))))}
temp=as.factor(temp)
split(mylist,temp)
4

1 回答 1

3

因素:

factor(cumsum(mylist$V1 == "source:restaurant") + 1)

分裂:

split(mylist, cumsum(mylist$V1 == "source:restaurant"))

更新:您可能restaurant:soure在它标记的每个组的末尾都有 ,为此您可以使用:

factor(cumsum(c(0, head(mylist$V1 == "source:restaurant", -1))) + 1)
split(mylist, cumsum(c(0, head(mylist$V1 == "source:restaurant", -1))))

会更好。

于 2012-11-06T11:18:22.113 回答