客官可以执行如下代码,观察结果
do.call("cbind", lapply(split(PlantGrowth, f = PlantGrowth$group), subset, select = "weight"))
#> weight weight weight
#> 1 4.17 4.81 6.31
#> 2 5.58 4.17 5.12
#> 3 5.18 4.41 5.54
#> 4 6.11 3.59 5.50
#> 5 4.50 5.87 5.37
#> 6 4.61 3.83 5.29
#> 7 5.17 6.03 4.92
#> 8 4.53 4.89 6.15
#> 9 5.33 4.32 5.80
#> 10 5.14 4.69 5.26
<sup>Created on 2019-12-12 by the reprex package (v0.3.0)</sup>
如果把上面的结果保存为 dat,则 class(dat)
返回 data.frame
,而查看帮助 ?data.frame
可以看到,数据框的列名要保持唯一的,我是不是发现了什么冲突的地方?