Question

考虑以下示例：

tab <- table(mtcars$vs, mtcars$cyl, dnn = c("vs", "cylinder"))
prop.table(tab)
#    cylinder
# vs        4       6       8
#   0 0.03125 0.09375 0.43750
#   1 0.31250 0.12500 0.00000

round(prop.table(tab)*100, 1)
#    cylinder
# vs     4    6    8
#   0  3.1  9.4 43.8
#   1 31.2 12.5  0.0

期望的输出：

#    cylinder
# vs      4     6     8
#   0  3.1%  9.4% 43.8%
#   1 31.2% 12.5%  0.0%

scales::percent(round(prop.table(tab))) 无效，因为plyr::round_any()没有适用于类table对象的适用方法。

我知道我错过了一个简单的解决方法。或许对plyr::round_any()的简单包装或拉取请求可能会为每个人解决这个问题？

Answer 1

pt <- percent(c(round(prop.table(tab), 3)))
dim(pt) <- dim(tab)
dimnames(pt) <- dimnames(tab)

这应该有效。这里使用c来表示将表或矩阵转换为向量的属性。

替代使用sprintf：

pt <- sprintf("%0.1f%%", prop.table(tab) * 100)
dim(pt) <- dim(tab)
dimnames(pt) <- dimnames(tab)

如果您希望表格没有引号，那么您可以使用例如：

print(pt, quote = FALSE, right = TRUE)

Answer 2

prop <- round(prop.table(tab)*100, 1)
x <- paste(prop, "%", sep="")
print(matrix(x, nrow = 2, ncol = 3), quote = FALSE)

#      [,1]  [,2]  [,3] 
# [1,] 3.1%  9.4%  43.8%
# [2,] 31.2% 12.5% 0%

如何将scale :: percent或scales :: percent_format（）应用于R中的prop.table，以将数字格式化为百分比

2 个答案: