五 212007
tapply(unlist(t0),unlist(t0),function(x){names(x)})
Here is a minor shortening of that solution:
tapply(t0, unlist(t0), names)
R 语言，数据挖掘，数据可视化
许可协议
| © 2010 刘思喆 @ 贝吉塔行星 | Suffusion WordPress theme by Sayontan Sinha |
tapply(unlist(t0),unlist(t0),function(x){names(x)})
Here is a minor shortening of that solution:
tapply(t0, unlist(t0), names)
| © 2010 刘思喆 @ 贝吉塔行星 | Suffusion WordPress theme by Sayontan Sinha |