我正在尝试在输出中附加 % 符号prop.table
用于Sweave
。我尝试的代码如下:
m <- matrix(1:4,2)
dimnames(m) <- list(c("A", "B"), c("C", "D"))
prop.table(m,1)*100
C D
A 25.00000 75.00000
B 33.33333 66.66667
paste(round(prop.table(m,1)*100, 3), "%", sep = "")
[1] "25%" "33.333%" "75%" "66.667%"
paste(sprintf("%.1f", prop.table(m,1)*100), "%", sep = "")
[1] "25.0%" "33.3%" "75.0%" "66.7%"
Using paste
会将类从矩阵更改为字符。如果有人指导我正确的解决方案,我将非常感激。谢谢
另一种解决方案可能是替换矩阵的内容:
m2 <- m
m2[] <- sprintf("%.1f%%",round(prop.table(m,1)*100, 3))
m2
# C D
# A "25.0%" "75.0%"
# B "33.3%" "66.7%"
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)