将比例表值更改为百分比

Question

我有以下表格代码

weather<-cbind(c(rep("rain",50),rep("sun",70),rep("rain",100),rep("sun",80)))
prop.table(table(weather))

...导致以下输出：

rain  sun 
 0.5  0.5 

如何更改代码以使输出变为：

rain  sun 
 50%  50%

有什么建议吗？

Answer 1

paste0(round(prop.table(table(weather))*100, 1),'%')

此处不需要

round，但如果您的值有很多小数位，那就是。

Answer 2

您可以使用sprintf。在您的示例中，您将执行此操作：

sprintf("%2d%%", prop.table(table(weather))*100)

有关更多数字格式选项，请查看sprintf文档here。