如何申请鳞::百分比或秤:: percent_format（）中的R到prop.table格式化数字为百分比

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) 

这应该有效。这里使用的是其将表格或矩阵转换为矢量的属性。

替代使用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%