R data.table-如何按变量降序指定？

是否可以按变量降序指定

e、 g.按“cyl”和“mpg”降序排列mtcars数据。然后标记每个“共青团”的第一次行动

---

dt我们可以先对数据进行
排序
然后根据需要分配标志

library(data.table)

dt <- mtcars 
setDT(dt)
dt[, temp := 1]
dt1 <- dt[order(cyl,-mpg)]
dt1[, first_cyl := seq_len(.N) == which.max(temp), cyl]

#     mpg cyl  disp  hp drat    wt  qsec vs am gear carb temp first_cyl
# 1: 33.9   4  71.1  65 4.22 1.835 19.90  1  1    4    1    1      TRUE
# 2: 32.4   4  78.7  66 4.08 2.200 19.47  1  1    4    1    1     FALSE
# 3: 30.4   4  75.7  52 4.93 1.615 18.52  1  1    4    2    1     FALSE
# 4: 30.4   4  95.1 113 3.77 1.513 16.90  1  1    5    2    1     FALSE
# 5: 27.3   4  79.0  66 4.08 1.935 18.90  1  1    4    1    1     FALSE
# 6: 26.0   4 120.3  91 4.43 2.140 16.70  0  1    5    2    1     FALSE
# 7: 24.4   4 146.7  62 3.69 3.190 20.00  1  0    4    2    1     FALSE
# 8: 22.8   4 108.0  93 3.85 2.320 18.61  1  1    4    1    1     FALSE
# 9: 22.8   4 140.8  95 3.92 3.150 22.90  1  0    4    2    1     FALSE
#10: 21.5   4 120.1  97 3.70 2.465 20.01  1  0    3    1    1     FALSE
#11: 21.4   4 121.0 109 4.11 2.780 18.60  1  1    4    2    1     FALSE
#12: 21.4   6 258.0 110 3.08 3.215 19.44  1  0    3    1    1      TRUE
#13: 21.0   6 160.0 110 3.90 2.620 16.46  0  1    4    4    1     FALSE
#....
#....

库（data.table）
dt我们可以先对数据进行排序，然后根据需要分配标志

library(data.table)

dt <- mtcars 
setDT(dt)
dt[, temp := 1]
dt1 <- dt[order(cyl,-mpg)]
dt1[, first_cyl := seq_len(.N) == which.max(temp), cyl]

#     mpg cyl  disp  hp drat    wt  qsec vs am gear carb temp first_cyl
# 1: 33.9   4  71.1  65 4.22 1.835 19.90  1  1    4    1    1      TRUE
# 2: 32.4   4  78.7  66 4.08 2.200 19.47  1  1    4    1    1     FALSE
# 3: 30.4   4  75.7  52 4.93 1.615 18.52  1  1    4    2    1     FALSE
# 4: 30.4   4  95.1 113 3.77 1.513 16.90  1  1    5    2    1     FALSE
# 5: 27.3   4  79.0  66 4.08 1.935 18.90  1  1    4    1    1     FALSE
# 6: 26.0   4 120.3  91 4.43 2.140 16.70  0  1    5    2    1     FALSE
# 7: 24.4   4 146.7  62 3.69 3.190 20.00  1  0    4    2    1     FALSE
# 8: 22.8   4 108.0  93 3.85 2.320 18.61  1  1    4    1    1     FALSE
# 9: 22.8   4 140.8  95 3.92 3.150 22.90  1  0    4    2    1     FALSE
#10: 21.5   4 120.1  97 3.70 2.465 20.01  1  0    3    1    1     FALSE
#11: 21.4   4 121.0 109 4.11 2.780 18.60  1  1    4    2    1     FALSE
#12: 21.4   6 258.0 110 3.08 3.215 19.44  1  0    3    1    1      TRUE
#13: 21.0   6 160.0 110 3.90 2.620 16.46  0  1    4    4    1     FALSE
#....
#....

库（data.table）
dt另一个选项是在
i
中排序，使用
by
分组，然后在
j
中通过引用分配（
：=
）：

DT <- as.data.table(mtcars)
DT[order(cyl, -mpg, am), first_cyl := c(1L, rep(0L, .N - 1L)), .(cyl, mpg, am)]

DT另一个选项是在
i
中排序，使用
by
分组，然后在
j
中通过引用分配（
：=
）：

DT <- as.data.table(mtcars)
DT[order(cyl, -mpg, am), first_cyl := c(1L, rep(0L, .N - 1L)), .(cyl, mpg, am)]

DT您能否包含您正在尝试执行的操作的一个示例并基于此显示预期输出？刚才使用mtcars示例编辑了上面的内容？您能否包含您正在尝试执行的操作的一个示例并基于此显示预期输出？刚才使用mtcars示例编辑了上面的内容谢谢，我需要指定10个变量作为BY变量，第二个变量需要降序。data.table不允许按语句降序是有原因的。@R007如果您想按语句对数据进行排序，我不认为按语句降序是正确的。AFAIK
by
用于包括要分组的列名。R007，
by=
参数用于分组，而不是排序。在您的用例中，如果您有
myDT[，mycalcs，by=c（cyl，gear）]
（使用差异变量进行演示），那么您要说的是对
cyl
和
gear
的每个分组执行
mycalcs
，总共有八个组：
cyl=4，gear=3
（1行），
cyl=4，gear=4
（8行），等等，
mycalcs
是在没有其他组数据的情况下计算的。例如，如果您将
看作.data.table（mtcars）[，（n=.n），by=（cyl，gear）][]
或者甚至将
看作.data.table（mtcars）[，（m=max（disp）），by=（cyl，gear）][]
，您可能会更好地理解Ronak的意思。谢谢，我需要指定10个变量作为by变量，第二个变量需要降序。data.table不允许按语句降序是有原因的。@R007如果您想按语句对数据进行排序，我不认为按语句降序是正确的。AFAIK
by
用于包括要分组的列名。R007，
by=
参数用于分组，而不是排序。在您的用例中，如果您有
myDT[，mycalcs，by=c（cyl，gear）]
（使用差异变量进行演示），那么您要说的是对
cyl
和
gear
的每个分组执行
mycalcs
，总共有八个组：
cyl=4，gear=3
（1行），
cyl=4，gear=4
（8行），等等，
mycalcs
是在没有其他组数据的情况下计算的。例如，如果您将
as.data.table（mtcars）[，（n=.n），by=（cyl，gear）][]
或甚至
as.data.table（mtcars）[，（m=max（disp）），by=（cyl，gear）][]
，您可能会更好地理解Ronak所说的。