使用混合值(字符串、日期、数字等)舍入数据帧中的数字

我想还有一个 tibble 解决方案,但我总是对在中选择列等感到困惑 tibbles . 这就是为什么我把它改成了 data.frame .

jnk1 <- as.data.frame(jnk)
numeric_values <- !is.na(apply(jnk1, 2, as.numeric))
jnk1[numeric_values] <- round(as.numeric(jnk1[numeric_values]),1)

ink . 检查哪些值可以解析为数字,然后用舍入值覆盖它们。

因为可能会有警告,所以可以使用此行抑制它们

numeric_values <- suppressWarnings(!is.na(apply(jnk1, 2, as.numeric)))

如果只是为了方便 ,下一行将表中所有看起来像数字的值舍入为2位:

# assume df is your original data frame
suppressWarnings(data.frame(lapply(df, function(y) ifelse(is.na(as.numeric(y)), y, round(as.numeric(y), 2)))))

# result
   X__1   TecM   TerA   GloC   ECis Oil.Selloff
1 Start Mar-00 Sep-01 Nov-07 Jul-11      Jul-14
2   End Mar-01 Sep-01 Mar-09 Sep-11      Dec-14
3   EFM     NA     NA  -0.63  -0.29       -0.11
4   UTH     NA     NA     NA     NA       -0.03
5   PEU   -0.1      0  -0.55  -0.22       -0.03
6   HPX  -0.27  -0.12  -0.55  -0.19        0.05

但在数据框中包含数字/字符串/日期的列仍然是一列字符。