我有两个数据帧（df1和df2），并且只想减去两个数据帧之间的数字列[(df2-df1)/df2]并确定百分比差异并使用 R 创建输出数据帧 = df3。非数字列将被保留。
df1并df2具有相同的结构和相同的列名。
df1：
colA colB colC ... colZ
mean 10 20 stringA
count 30 50 stringB
df2：
colA colB colC ... colZ
mean 5 25 stringA
count 60 50 stringB
df3：
colA colB colC ... colZ
mean -100 20 stringA
count 50 0 stringB
我试过这个，但没有用：
df2[,2:3] = (df2[,2:3] - df1[,2:3])/df2[,2:3]
有人可以帮忙吗？
我们可以对数字列进行子集化，然后执行操作
num_cols <- c("colB", "colC")
df3 <- (df2[num_cols] - df1[num_cols])/df2[num_cols] * 100
df3
# colB colC
#1 -100 20
#2 50 0
要获得其他非数字列，我们可以使用setdiff然后cbind
cbind(df1[setdiff(names(df1), num_cols)], df3)
# colA colZ colB colC
#1 mean stringA -100 20
#2 count stringB 50 0
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句