r - 如何将数据框中的所有小数乘以常数？

Question

data <- data.frame(id = c("10001", "10002", "10003", "10004"), V1 = c(10,11,15,9.3), V2 = c(5,7,21,30.2), V3 = c(10.3, 11, 19, 12))
> data
    id   V1   V2   V3
1 10001 10.0  5.0 10.3
2 10002 11.0  7.0 11.0
3 10003 15.0 21.0 19.0
4 10004  9.3 30.2 12.0

如何将所有小数乘以 100 并使数据如下所示：

> data
    id    V1   V2     V3
1 10001   10    5   1030
2 10002   11    7     11
3 10003   15   21     19
4 10004  930 3020     12

Answer 1

sapply沿着数字列并用于ifelse将任何元素与小数部分相乘，然后cbind将原始数据的第一列与此相乘：

cbind(data[1],sapply(data[-1],function(x) ifelse(x%%1,x*100,x)))
     id  V1   V2   V3
1 10001  10    5 1030
2 10002  11    7   11
3 10003  15   21   19
4 10004 930 3020   12

Answer 2

这是一种方法：

> index  <- data[, -1] %% 1 != 0
> data[, -1][index] <- data[, -1][index] *100 
> data
     id  V1   V2   V3
1 10001  10    5 1030
2 10002  11    7   11
3 10003  15   21   19
4 10004 930 3020   12

Answer 3

另一种方式：

d.m <- data.matrix(data)
decs <- as.integer(d.m) != d.m
data[decs] <- d.m[decs] * 100
#      id  V1   V2   V3
# 1 10001  10    5 1030
# 2 10002  11    7   11
# 3 10003  15   21   19
# 4 10004 930 3020   12

Answer 4

使用模函数%%查找带有小数部分的条目。

注意浮点逼近错误。

data.frame(lapply(data, function(x) {
    if(is.numeric(x)) {
        x[x %% 1 > 0] <- x[x %% 1 > 0] * 100
        return(x)
    } else return(x)
}))