gpt4 book ai didi

r - 每两列对数据框的列应用一个函数,将该函数的结果存储在一个列表中,然后将该列表作为列插入

转载 作者:行者123 更新时间:2023-12-04 07:51:10 25 4
gpt4 key购买 nike

所以我有一个 6 列的数据框,它们都是数字且长度相同。数据框如下所示:

df <- data.frame(var1 = 1:10, var2 = 5:15, var3 = 7:17, var4 = 3:13, var5 = 20:30, var6 = 15:25)
print(df)
我想要做的是取 var1 和 var2 并减去它们(var1 - var2)并从中获得结果在一个新列中,该列将在 var2 之后将自身插入同一数据帧中。然后我想取 var3 和 var4 并减去它们(var3 - var4),然后在一个新列中得到结果,我将在 var4 之后插入该列,依此类推。
有什么建议 ?

最佳答案

.aftermutate来自 dplyr , 可以使用

library(dplyr)
df %>%
mutate(var12 = var1 - var2, .after = var2) %>%
mutate(var34 = var3 - var4, .after = var4)
-输出
#    var1 var2 var12 var3 var4 var34 var5 var6
#1 1 5 -4 7 3 4 20 15
#2 2 6 -4 8 4 4 21 16
#3 3 7 -4 9 5 4 22 17
#4 4 8 -4 10 6 4 23 18
#5 5 9 -4 11 7 4 24 19
#6 6 10 -4 12 8 4 25 20
#7 7 11 -4 13 9 4 26 21
#8 8 12 -4 14 10 4 27 22
#9 9 13 -4 15 11 4 28 23
#10 10 14 -4 16 12 4 29 24
#11 11 15 -4 17 13 4 30 25

如果我们需要在每 2 列之后创建列
library(stringr)
out <- df
for(i in seq(2, ncol(df), by = 2)) {
out <- out %>%
mutate(!! str_c('var', i-1, i) :=
.[[names(df)[i]]] - .[[names(df)[i-1]]],
.after = all_of(names(df)[i]))
}

-输出
out
# var1 var2 var12 var3 var4 var34 var5 var6 var56
#1 1 5 4 7 3 -4 20 15 -5
#2 2 6 4 8 4 -4 21 16 -5
#3 3 7 4 9 5 -4 22 17 -5
#4 4 8 4 10 6 -4 23 18 -5
#5 5 9 4 11 7 -4 24 19 -5
#6 6 10 4 12 8 -4 25 20 -5
#7 7 11 4 13 9 -4 26 21 -5
#8 8 12 4 14 10 -4 27 22 -5
#9 9 13 4 15 11 -4 28 23 -5
#10 10 14 4 16 12 -4 29 24 -5
#11 11 15 4 17 13 -4 30 25 -5


base R ,我们也可以
out1 <- df[c(FALSE, TRUE)] - df[c(TRUE, FALSE)]
names(out1) <- paste0(names(out1), "_", names(df)[c(TRUE, FALSE)])
然后我们 cbind数据集和 order基于列名
out2 <- cbind(df, out1)
out3 <- out2[gtools::mixedorder(names(out2))]
out3
# var1 var2 var2_var1 var3 var4 var4_var3 var5 var6 var6_var5
#1 1 5 4 7 3 -4 20 15 -5
#2 2 6 4 8 4 -4 21 16 -5
#3 3 7 4 9 5 -4 22 17 -5
#4 4 8 4 10 6 -4 23 18 -5
#5 5 9 4 11 7 -4 24 19 -5
#6 6 10 4 12 8 -4 25 20 -5
#7 7 11 4 13 9 -4 26 21 -5
#8 8 12 4 14 10 -4 27 22 -5
#9 9 13 4 15 11 -4 28 23 -5
#10 10 14 4 16 12 -4 29 24 -5
#11 11 15 4 17 13 -4 30 25 -5
数据
df <- structure(list(var1 = 1:11, var2 = 5:15, var3 = 7:17, var4 = 3:13, 
var5 = 20:30, var6 = 15:25), class = "data.frame", row.names = c(NA,
-11L))

关于r - 每两列对数据框的列应用一个函数,将该函数的结果存储在一个列表中,然后将该列表作为列插入,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/66972082/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com