无法使用粘贴功能（R）设置小数点后的位数

Question

我正在尝试将小数点后的位数设置为1。 我做了这个计算：

options(digits = 3)
DT<-data.table(x=c("a","b","c",NA,"b","e"),v=rnorm(6))
ans<-DT[,lapply(.SD,function(x) length(which(is.na(x)))/length(x)*100)]

现在，ans给出了一列中NAs的百分比：

  x v
  16.7 0

但是当我尝试将百分号符号“％”添加到：

时

ans[,lapply(.SD, function(x) paste(x,"%",sep = ''))]

小数位回到那里：

                    x   v
1: 16.6666666666667% 0%

我做错了什么？我怎样才能得到这个输出？：

 x v
 16.7% 0%

谢谢。

Answer 1

我们可以使用sprintf将其转换为两位小数并与%连接

DT[, lapply(.SD, function(x) sprintf("%0.1f%%", 100*sum(is.na(x))/.N))]

或者我们可以使用format

DT[, lapply(.SD, function(x) paste0(format(100*sum(is.na(x))/.N, digits = 3), "%"))]
#      x  v
#1: 16.7% 0%

Answer 2

您可以使用round并执行：

paste0(round(ans,1),"%")

给出了

[1] "16.7%" "0%"   

或将OP的代码更改为：

ans[,lapply(.SD, function(x) paste(round(x,1),"%",sep = ''))]