将round函数应用于数据框中的每个元素

2019年7月28日 247次阅读

假设我在R中有一个像这样的数据帧

x = c(2, 3.432, 5)
y = c(4.5345, NA, "text")
z = c(8.13451, 3.12451, 6.12341)
A = data.frame(x, y, z)

如何将round函数应用于数据框的相应元素？
基本上我想：

>检查元素是否为数字
>如果没有,请不做任何更改
>如果是数字,则将其四舍五入到小数点后3位

我已经在很多地方读过,在R中尝试循环不是一个好主意

A$y[is.numeric(A$y)] <- round(A$y, digits = 3)

不起作用

最佳答案 我们可以试试lapply

A[] <- lapply(A, function(x) if(is.numeric(x)) round(x, 3) else x)

如果我们需要更改具有字符/因子类列的数字元素的格式

A[] <- lapply(A, function(x) {
           x1 <- type.convert(as.character(x), as.is=TRUE)
    ifelse(grepl("^[0-9.]+$", x1), round(as.numeric(x1), 3), x1)})
点赞