R-使用百分比强制列出对象（格式表）

Question

我想用percent从formattable包强迫一个数据集％的形式。 原始数据集如下所示：

C1 C2  C3  C4
a  .01 .03 .3
b  .3  .5  .7

预期结果（忽略小数）：

C1 C2  C3  C4
a  1%  3%  30%
b  30% 50% 70%

现在，我尝试了一下（列数可能会有所不同，但只有C1会包含字符）：

DF[, c(2:ncol(DF))] <- percent(DF[, c(2:ncol(DF))])

显示错误：

Error in as_numeric(x) : (list) object cannot be coerced to type 'double'

现在，当我使用循环（ percent(DF[, i]) ）以列方式对其进行尝试时，它可以按预期顺利运行。 似乎百分比无法一次强制转换2D数据。 但是， 我想知道是否有一种方法可以避免循环并提出一个漂亮的解决方案。

提前致谢。

Answer 1

对于这些任务，我真的很喜欢dplyr::mutate_if ：

library(dplyr)
library(formattable)
DF %>% mutate_if(is.numeric, percent)

如果不是所有值都应转换为％（例如，因为值不介于0和1之间），则可以将其扩展为：

DF %>% mutate_if(function(x){all(between(x, 0, 1))}, percent)

Answer 2

我们需要遍历各列

library(formattable)
df1[-1] <- lapply(df1[-1], percent)

---

这可以用base R完成

df1[-1] <- lapply(df1[-1], function(x) paste0(x *100, "%"))