Subset mit dem Namen numerisch in R Fehler

Question

Dieser ist wirklich stumping mich. Ich kann nicht finden, was mit dieser Codezeile falsch ist, und ich benutze es in einer Funktion und es macht die gesamte Funktion fehl.

Dies ist ein Vektor der Klasse ‚Matrix‘, 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 

ich den Mittelwert dieses Vektors berechnen, indem diese Codezeile ausgeführt wird:

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

Das Ergebnis ist ein numerischer Wert ein Wert von -0,062309. Ich möchte die Namen der Spalten erhalten, die größer als der Mittelwert ist, so dass ich diesen Code ausführen:

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

Der Ausgang ist als ich erwarte, ein Zeichen Vektor „TLT“, „GLD“ zurück.

Hier ist das Problem: wenn ich dies mit einer zweiten, fast identischen Matrix result.2 mache, bekomme ich jedes Mal ein NULL Ergebnis, wenn ich das Ergebnis "TLT" bekommen sollte. Hier

ist die Matrix 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 

I berechnen, den Mittelwert der gleichen Methode wie oben (-0,05298) und benennen Sie es mean.momentum.2

Dann laufen diese Linie I:

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

Ich bekomme NULL jedes Mal zurück, wenn ich "TLT" erwarte. Was läuft falsch mit der Art, wie ich mich unterwerfe? Wenn ich die Linie laufen:

result.2 > mean.momentum.2 

ich einen logischen Vektor, bei dem TLT ist TRUE, aber es funktioniert nicht, wenn ich mit dieser Methode der Teilmenge versuchen. Es funktioniert in der ersten Instanz perfekt, aber funktioniert nie in der zweiten Instanz, und da ich NULL zurück bekomme, schlägt meine gesamte Funktion fehl.

Danke ...

Answer 1

Verwenden colnames() und rownames() statt names() wenn sie auf eine Matrix verweisen:

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

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

Beachten Sie auch die Syntax von colnames() oben. Sie geben eine Teilmenge des Vektors colnames(result1) mit which() zurück, um die Elemente des Vektors auszuwählen, für die result.1 größer als mean.momentum.1 ist.

Dies funktioniert für result.2 auch fein:

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

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