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

1 つのアプローチを次に示します。

> 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