五 212007
tapply(unlist(t0),unlist(t0),function(x){names(x)})
Here is a minor shortening of that solution:
tapply(t0, unlist(t0), names)
刘思喆 @ 贝吉塔行星
R 语言，数据挖掘，数据可视化
tapply(unlist(t0),unlist(t0),function(x){names(x)})
Here is a minor shortening of that solution:
tapply(t0, unlist(t0), names)
