A data.table
新手问题.我想将一组列转换成一列,并将其转换成一个新的列。data.table
通过对它们应用一个数学公式。这组列必须排除总列数中的1个或多个列。
在 data.frame
条款我会做。
data(iris)
head(iris)
Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1 5.1 3.5 1.4 0.2 setosa
2 4.9 3.0 1.4 0.2 setosa
3 4.7 3.2 1.3 0.2 setosa
4 4.6 3.1 1.5 0.2 setosa
5 5.0 3.6 1.4 0.2 setosa
6 5.4 3.9 1.7 0.4 setosa
iris[, -5] <- iris[, -5] * 1e3
head(iris)
Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1 5100 3500 1400 200 setosa
2 4900 3000 1400 200 setosa
3 4700 3200 1300 200 setosa
4 4600 3100 1500 200 setosa
5 5000 3600 1400 200 setosa
6 5400 3900 1700 400 setosa
我知道如何选择 多列 在...中 data.table
:
iris.dt <- data.table(iris)
head(iris.dt[, -5, with = FALSE])
甚至。
head(iris.dt[, !"Species", with = FALSE])
如何实际转换这些选定的列,利用: data.table
通过参考?
如何使用 .SDCols
参数以及通过引用赋值(:=
):
DT <- data.table(iris)
DT[, c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width")
:=lapply(.SD, function(x) x*1000), .SDcols=1:4]
# Alternatively you can grab the names the usual way:
# DT[, names(DT)[1:4] := lapply(.SD, function(x) x*1000), .SDcols=1:4]
DT
# Sepal.Length Sepal.Width Petal.Length Petal.Width Species
# 1: 5100 3500 1400 200 setosa
# 2: 4900 3000 1400 200 setosa
# 3: 4700 3200 1300 200 setosa
# 4: 4600 3100 1500 200 setosa
# 5: 5000 3600 1400 200 setosa
# ---
# 146: 6700 3000 5200 2300 virginica
# 147: 6300 2500 5000 1900 virginica
# 148: 6500 3000 5200 2000 virginica
# 149: 6200 3400 5400 2300 virginica
# 150: 5900 3000 5100 1800 virginica
.SDcols
是正确的方法,但你可以用一个向量来指定列名。
DT <- data.table(iris)
colnms <- c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width")
DT[, (colnms) := lapply(.SD, function(x) x*1000), .SDcols = colnms]
请注意,你需要在 :=
阻止 data.table
解释 colnms
作为一个列的名称。