R中的基本矩阵/数据帧算法

Question

我无法在R中执行简单的矩阵算术，这令人感到困惑。这真的不可能吗？ 我想采用1个数据框中的值，并将其子跟踪到另一个数据框中的所有列。 看起来像这样应该很容易，但是我什么也没找到，尽管有一个“心理”程序包可以作为功能，但不能给出预期的结果。 似乎也没有必要。 有小费吗。 非常感激。

> NROW(arData1[c(gsub(" ", ".",portfolio1), "benchmark")])
[1] 51
> NCOL(arData1[c(gsub(" ", ".",portfolio1), "benchmark")])
[1] 4
> NROW(arData1[gsub(" ", ".", treasuries)])
[1] 51
> NCOL(arData1[gsub(" ", ".", treasuries)])
[1] 1

ExRet1 <- arData1[c(gsub(" ", ".",portfolio1), "benchmark")] - arData1[gsub(" ", ".", treasuries)]
Error in Ops.data.frame(arData1[c(gsub(" ", ".", portfolio1), "benchmark")],  : 
  - only defined for equally-sized data frames

Answer 1

问题与您建立索引的方式有关。

df["colname"]

提取列colname 作为数据框 。 如果减去两个数据帧，R会按列和按行进行此操作，因此两个数据帧的列数必须相同。

但是，您可以使用[[提取colname作为矢量 ，如

df[["colname"]]

如果从数据帧中减去一个向量，则会从df每一列中减去该向量。

df <- data.frame(x=1:5,y=11:15,z=21:25,A=31:35)
df[c("x","y","z")] - df["A"]
# Error in Ops.data.frame(df[c("x", "y", "z")], df["A"]) : 
#   - only defined for equally-sized data frames

df[c("x","y","z")] - df[["A"]]
#     x   y   z
# 1 -30 -20 -10
# 2 -30 -20 -10
# 3 -30 -20 -10
# 4 -30 -20 -10
# 5 -30 -20 -10