这是来自Extract multiple data.frames from one with selection criteria的后续问题。
假设数据与上例中的数据相同
df <- data.frame(x1 = runif(1000), x2 = runif(1000), x3 = runif(1000),
split = sample( c('SPLITMEHERE', 'OBS'), 1000, replace=TRUE, prob=c(0.1, 0.9) ))
基本上，我需要比引用示例中的解决方案更通用的解决方案。
即，某些月份的某些县（每月是一个.txt文件）只有一个表，因此只有一个'SPLITMEHERE'。
例如，第四个县只包含一个表，这意味着该县的组应该在第一个SPLITMEHERE结束，而不是第二个。此外，最后一个县由三个表组成，但这并不重要，因为它在最后，所以我可以轻松合并最后一组。
问题是，它并不总是第四个由一个表组成的县，有时还有其他的。
假设我们从上面的数据集中得到了这个：
x1 x2 x3 split
1 0.591940061 0.635445182 0.304498259 SPLITMEHERE
2 0.510158838 0.170956885 0.881018211 OBS
3 0.938369076 0.495642515 0.171227120 OBS
4 0.366153042 0.464698494 0.550931566 OBS
5 0.051998873 0.222881187 0.934175135 OBS
6 0.706940809 0.735885367 0.666272118 SPLITMEHERE
7 0.244219533 0.340480033 0.144009797 OBS
8 0.546891246 0.024010211 0.151338479 OBS
9 0.032659978 0.174774606 0.576820824 OBS
10 0.641988559 0.575596526 0.911188682 OBS
11 0.111024861 0.969227957 0.643551420 OBS
12 0.179469011 0.052698538 0.199299193 OBS
13 0.199203707 0.429210222 0.525920379 SPLITMEHERE
14 0.837223042 0.556442838 0.881305105 OBS
15 0.628854814 0.874139058 0.199226364 OBS
16 0.618989684 0.784011205 0.038021599 OBS
17 0.421893407 0.394786134 0.519100402 OBS
18 0.126453054 0.926114653 0.687669218 OBS
19 0.739393898 0.938428464 0.110824400 OBS
20 0.582882966 0.198520021 0.942501112 OBS
21 0.143852453 0.963329219 0.993098109 OBS
22 0.249366828 0.242881240 0.486960755 OBS
23 0.060602695 0.797436479 0.432171847 SPLITMEHERE
24 0.013947914 0.028245990 0.489656647 OBS
25 0.795170730 0.541771474 0.122952446 OBS
26 0.786673408 0.284252650 0.305914856 OBS
27 0.591369056 0.321041728 0.285482027 OBS
28 0.899577535 0.468031873 0.588038383 SPLITMEHERE
29 0.955853329 0.552076328 0.825239050 OBS
30 0.634738808 0.050917396 0.730090024 OBS
假设打印输出中有三个县，我想要三个数据帧如下：
df1
1 0.510158838 0.170956885 0.881018211 OBS
2 0.938369076 0.495642515 0.171227120 OBS
3 0.366153042 0.464698494 0.550931566 OBS
4 0.051998873 0.222881187 0.934175135 OBS
5 0.244219533 0.340480033 0.144009797 OBS
6 0.546891246 0.024010211 0.151338479 OBS
7 0.032659978 0.174774606 0.576820824 OBS
8 0.641988559 0.575596526 0.911188682 OBS
9 0.111024861 0.969227957 0.643551420 OBS
10 0.179469011 0.052698538 0.199299193 OBS
df2
1 0.837223042 0.556442838 0.881305105 OBS
2 0.628854814 0.874139058 0.199226364 OBS
3 0.618989684 0.784011205 0.038021599 OBS
4 0.421893407 0.394786134 0.519100402 OBS
5 0.126453054 0.926114653 0.687669218 OBS
6 0.739393898 0.938428464 0.110824400 OBS
7 0.582882966 0.198520021 0.942501112 OBS
8 0.143852453 0.963329219 0.993098109 OBS
9 0.249366828 0.242881240 0.486960755 OBS
df3
1 0.013947914 0.028245990 0.489656647 OBS
2 0.795170730 0.541771474 0.122952446 OBS
3 0.786673408 0.284252650 0.305914856 OBS
4 0.591369056 0.321041728 0.285482027 OBS
5 0.955853329 0.552076328 0.825239050 OBS
6 0.634738808 0.050917396 0.730090024 OBS
有什么想法吗？