R错误中名为数字的子集

Question

这个真的把我难住了。我找不到这行代码有什么问题，我在一个函数中使用它，它使整个函数失败。

这是“矩阵”类的向量，result.1：

SPY    TLT  VGK   EEM   BIV   RWX   IYR   EWJ   DBC    GLD   PCY   LQD   TIP
-0.08 0.09 -0.07 -0.07 -0.09 -0.07 -0.07 -0.07 -0.066 -0.04 -0.08 -0.08 -0.08

我通过运行这行代码来计算这个向量的平均值：

mean.momentum.1 <- mean(result.1)

结果是一个值为 -0.062309 的数字。我想获取大于平均值的列的名称，所以我运行以下代码：

names(result.1[,(result.1 > mean.momentum.1)])

输出如我所料，返回一个字符向量“TLT”、“GLD”。

这是问题所在：当我使用第二个几乎相同的矩阵 result.2 执行此操作时，我每次都会得到 NULL 结果，而我应该得到结果“TLT”。

这里是矩阵result.2：

SPY    TLT  VGK   EEM   BIV    RWX   IYR   EWJ   DBC   GLD   TIP   PCY   LQD
-0.08 0.15 -0.07 -0.06 -0.054 -0.07 -0.07 -0.07 -0.06 -0.06 -0.07 -0.07 -0.06

我使用与上述相同的方法（-0.05298）计算平均值并将其命名为mean.momentum.2

然后，我运行这一行：

names(result.2[,(result.2 > mean.momentum.2)])

每当我期待“TLT”时，我都会收到NULL。我的子集化方式出了什么问题？如果我运行这条线：

result.2 > mean.momentum.2

我得到一个逻辑向量，其中 TLT 是 TRUE，但是当我尝试使用此方法进行子集化时它不起作用。它在第一个实例中完美运行，但在第二个实例中永远无法运行，并且由于我得到 ​​NULL 回来，我的整个函数都失败了。

谢谢...

Answer 1

引用矩阵时使用colnames() 和rownames() 而不是names()：

mean.momentum.1 <- mean(result.1)

colnames(result.1)[which(result.1 > mean.momentum.1)]
## [1] "TLT" "GLD"

还要注意上面colnames() 的语法。您正在返回向量 colnames(result1) 的子集，使用 which() 选择向量中 result.1 大于 mean.momentum.1 的元素。

这也适用于result.2：

mean.momentum.2 <- mean(result.2)

colnames(result.2)[which(result.2 > mean.momentum.2)]
## [1] "TLT"