r - 在 data.frame R 中的数值旁边包括 % 或任何其他符号

Question

我想在 data.frame 中包含符号 %，以便稍后将 data.frame 打印为 print(xtable(data.frame. ...)) 在 Values in % 列的每一行中的 data2 数值旁边带有 % 符号。

数据示例:

data1 <- rnorm(5,10,2)
data2 <- round(rexp(5,2),1)
frameData <- data.frame(data1,data2)
colnames(frameData) <- c("Measurement","Values in %")

我尝试过这样的事情:

data1 <- rnorm(5,10,2)
data2 <- round(rexp(5,2),1)
data3 <- rep("%",5)
frameData <- data.frame(data1,data2,data3)
colnames(frameData) <- c("Measurement","Values in %","")

但我无法让标志足够近，后来 print(xtable(frameData....)) 距离放大了。

Answer 1

@AnandaMahto 使用 base R 给出了一个很好的答案。

如果您愿意使用库，还有一种更简单的方法。 scales 库有一堆用于格式化数字的函数:

library(scales)
> percent(seq(10)/10)
 [1] "10%"  "20%"  "30%"  "40%"  "50%"  "60%"  "70%"  "80%"  "90%"  "100%"

最后，因为数字类型不能保存 % 值，你可以在 data.frame 中添加一个属性，然后在打印时使用它:

attr(frameData,"pctCols") <- c(2)
printPct <- function(x) { require(taRifx); japply(x,attr(x,"pctCols"),percent) }
> printPct(frameData)
  Measurement Values in %
1   11.992833        160%
2   12.556494        NaN%
3   10.837724        200%
4    9.141887        200%
5    8.056046        100%