After cbind
or rbind
-ing 一个表对象(例如,添加总和的余量或类似的东西),暗名称的名称会丢失(请参阅y
)。我找到了这个“解决方法”,但想知道是否有一个现成的解决方案,看起来不那么老套。也许可以即时完成一些事情?我想保留班级的对象table
.
> (x <- table(1:3, sample(1:3), dnn = c("rows", "cols")))
cols
rows 1 2 3
1 1 0 0
2 0 0 1
3 0 1 0
> (y <- cbind(x, "4" = 4:6)) # "rows" and "cols" get lost
1 2 3 4
1 1 0 0 4
2 0 0 1 5
3 0 1 0 6
> names(dimnames(y)) <- names(dimnames(x))
> y
cols
rows 1 2 3 4
1 1 0 0 4
2 0 0 1 5
3 0 1 0 6
怎么样addmargins
?它默认计算总和,但您可以插入任何自定义函数。例如:
> addmargins(x, margin=c(2,2), FUN=list('sum', 'mean'))
Margins computed over dimensions
in the following order:
1: cols
2: cols
cols
rows 1 2 3 sum mean
1 0.0 1.0 0.0 1.0 0.5
2 0.0 0.0 1.0 1.0 0.5
3 1.0 0.0 0.0 1.0 0.5
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)