可以在 data.frames
中减去两个相同维度的 R
使用
df1 - df2
但我想减去两个不同维度的
data.frames
像df1 <- data.frame(V1=1:5)
df2 <- data.frame(V1=1:5, V2=6:10)
df1-df2
Error in Ops.data.frame(df1, df2) :
‘-’ only defined for equally-sized data frames
这种减法可以使用 for 循环来实现,但我正在寻找任何已经建立的函数。谢谢
已编辑
如果必须减去两个不同维度的data.tables怎么样?
library(data.table)
dt1 <- data.table(V1=1:5)
dt2 <- data.table(V1=1:5, V2=6:10)
dt1-dt2
Error in `[.data.table`(dt1, row(dt2), ) :
i is invalid type (matrix). Perhaps in future a 2 column matrix could return a list of elements of DT (in the spirit of A[B] in FAQ 2.14). Please let datatable-help know if you'd like this, or add your comments to FR #1611.
dt1[row(dt2),]-dt2
最佳答案
我们可以通过使两个数据集具有相同的长度来做到这一点,以便我们可以逐个比较每个数据集的元素。在给出的示例中,'df1' 有 1 列有 5 行,而对于 'df2',它是 2 列有 5 行。这个想法是让'df1'具有10个元素或2列5行以匹配'df2'的尺寸。这可以通过 rep
轻松完成,或者一个方便的函数是 row
。
df1[row(df2),]-df2
只是为了让它更清楚
row(df2)
# [,1] [,2]
#[1,] 1 1
#[2,] 2 2
#[3,] 3 3
#[4,] 4 4
#[5,] 5 5
给出 'df2' 每一行的行索引。通过做
df1[row(df2),]
#[1] 1 2 3 4 5 1 2 3 4 5
我们将每个行元素复制两次。鉴于数据集按列执行此操作,情况如下所示
df1[c(row(df2)[,1],row(df2)[,2]),]
这可以从
df2
中减去 df1[row(df2),]-df2
# V1 V2
#1 0 -5
#2 0 -5
#3 0 -5
#4 0 -5
#5 0 -5
正如@David Arenburg 所提到的,对于具有多列的两个数据集,这都会返回错误的结果。因此,如果您要从多列数据集 ('df2') 中从 'df1'(具有多列)中减去单列,那么选择该列并从 'df2' 中减去可能更通用(感谢@David阿伦堡的代码)
df1$V1-df2
# V1 V2
#1 0 -5
#2 0 -5
#3 0 -5
#4 0 -5
#5 0 -5
它的工作原理是由于回收效应,即'V1'列元素将从'df2'的第一列中减去,然后它将再次从第一个元素开始从'df2'的第二列中开始减去(假设两个数据集具有相同的数量或行)。
对于带有
data.table
('dt1' 的单列)的第二个示例,一个选项是dt1[,rep(names(dt1), ncol(dt2)),with=FALSE]-dt2
# V1 V1
#1: 0 -5
#2: 0 -5
#3: 0 -5
#4: 0 -5
#5: 0 -5
关于r - 减去不同大小的data.frames和data.tables,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/31679032/