0

私は次のようにRに行列を持っています：

                     YITEMREVENUE    XCARTADD XCARTUNIQADD XCARTADDTOTALRS
YITEMREVENUE         1.0000000000 -0.02630016 -0.01811156    0.0008988723      
XCARTADD            -0.0263001551  1.00000000   0.02955307   -0.0438881639   
XCARTUNIQADD        -0.0181115638  0.02955307   1.00000000    0.0917359285  
XCARTADDTOTALRS      0.0008988723 -0.04388816   0.09173593    1.0000000000

負の値のみで列の名前をリストしたいのですが、出力は次のようになります。

YITEMREVENUE -  XCARTADD XCARTUNIQADD  
XCARTADD     -  YITEMREVENUE XCARTADDTOTALRS  
XCARTUNIQADD -  YITEMREVENUE   
XCARTADDTOTALRS - XCARTADD

Rで可能ですか？

4

2 に答える 2

1

最初にマトリックスをdata.frameにキャストします。コードでは、次のようになります。

# Some example data
dat = matrix(runif(9) - 0.5, 3, 3)
dimnames(dat) = list(LETTERS[1:3], LETTERS[1:3])
> dat
           A          B           C
A  0.1216529  0.3501861  0.47473598
B -0.4720577  0.4887181 -0.41118597
C  0.4406510 -0.2516563  0.02344829

# Cast to data.frame
library(reshape)
df = melt(dat)
df
 X1 X2       value
1  A  A  0.12165293
2  B  A -0.47205771
3  C  A  0.44065104
4  A  B  0.35018605
5  B  B  0.48871810
6  C  B -0.25165634
7  A  C  0.47473598
8  B  C -0.41118597
9  C  C  0.02344829

# And find the combinations of row-columns which have < 0
df[df$value < 0, c("X1","X2")]
  X1 X2
2  B  A
6  C  B
8  B  C
于 2013-03-19T07:00:30.400 に答える
1

データが というデータ フレームにあるm場合は、次を使用できます。

lapply(m, function(v) {rownames(m)[v<0]})

データが m という行列にある場合は、次を使用できます。

apply(m, 2,function(v) {rownames(m)[v<0]})

どちらの場合も、次のようなリストが表示されます。

$YITEMREVENUE
[1] "XCARTADD"     "XCARTUNIQADD"

$XCARTADD
[1] "YITEMREVENUE"    "XCARTADDTOTALRS"

$XCARTUNIQADD
[1] "YITEMREVENUE"

$XCARTADDTOTALRS
[1] "XCARTADD"
于 2013-03-19T06:55:40.840 に答える