r - 将百分比格式应用于 ztable

Question

我有一个 ztable，这是我的代码

library(titanic)
library(ztable)
library(dplyr)

ztable(xtabs(Freq ~ Class + Age, data = data.frame(Titanic))) %>% 
makeHeatmap(palette="Blues")

我想把数字变成百分比。我不想将它们转换为总数的百分比。

我只想为每个数字添加百分比格式。所以第一行是：6%、319%。

标签： r

Answer 1

mytable <- xtabs(Freq ~ Class + Age, data = data.frame(Titanic))

formatted_table <- as.data.frame(matrix(
  sprintf("%.0f%%", mytable),
  nrow(mytable),
  dimnames = dimnames(mytable)
))

ztable(formatted_table)

不过，这似乎不适用于makeHeatmap()，这可能是因为它向表中添加了非数字字符）。