可以在 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/

10-12 20:41