如何将字符串添加到表中的所有项目

Question

我正在从2个向量创建一个表，将值转换为百分比，然后我需要添加＆＃34;％＆＃34;最后的符号。

my.table <- table(vecA, vecB)
my.table <- round(prop.table(my.table, margin = 2) * 100, digits = 2)

我尝试了粘贴命令并使用sep和collapse参数进行了探索，但返回的数据结构不再是一个表，而是一个字符向量。

Answer 1

my.table <- apply(round(prop.table(my.table, margin = 2) * 100, digits = 2), 1, paste0, '%')

或者您可以使用percent包中的预制scales功能

my.table <- apply(prop.table(my.table, margin = 2), 1, scales::percent)

如果你想把它作为一个表而不仅仅是一个矩阵，你可以在结果上使用as.table。