R-Funktion Excel-ähnlichen index-match

Ich bin sicher, es ist ein ziemlich straight-forward Lösung für mein problem. Aber, meine beschränkt, die R-Kenntnisse lassen mich im Stich und ich kam nicht über eine geeignete Lösung.

Ich habe eine matrix A suchen, wie:

     Year SIC       alpha  
[1,] 1990  13 -0.08610973 
[2,] 1990  15 -0.02270707  
[3,] 1990  20  0.01273243
[4,] 1990  25 -0.25173402 
[5,] 1991  26 -0.02625965 
[6,] 1991  27 -0.02685330 
....

Und eine matrix B, die aussieht wie

      46   27   13   37   20   ...
1989  NA   NA   NA   NA   NA
1990  NA   NA   NA   NA   NA
1991  NA   NA   NA   NA   NA

Möchte ich führen eine Art zwei-dimensionale lookup. Ich möchte einfügen der Werte aus der matrix A die Spalte "alpha" in matrix B, deren Zeilen-Namen von B entsprechen A$Year und die Namen der Spalten von B entsprechen A$SIC. Also im Grunde ähnlich wie Excel Index-match-Funktionen.

Wäre das Ergebnis wie folgt Aussehen:

      46   27             13           37   20   ...
1989  NA   NA             NA           NA   NA
1990  NA   NA            -0.08610973   NA   0.01273243
1991  NA   -0.02685330    NA           NA   NA

Ich hoffe jemand kann mir helfen.

Vielen Dank im Voraus!

Würde es helfen, wenn du deinen Beispiel reproduzierbar; z.B. Bereitstellung von kleinen Beispielen, die zwei Matrizen mit dput().
Danke! Werde ich im Hinterkopf behalten für die nächste Zeit. Rolands Lösung funktionierte gut

InformationsquelleAutor user3665702 | 2014-05-22

  1. 2
    #reproduce data
A <- read.table(text="Year SIC       alpha  
1990  13 -0.08610973 
1990  15 -0.02270707  
1990  20  0.01273243
1990  25 -0.25173402 
1991  26 -0.02625965 
1991  27 -0.02685330", header=TRUE)

B <- read.table(text="      46   27   13   37   20  
1989  NA   NA   NA   NA   NA
1990  NA   NA   NA   NA   NA
1991  NA   NA   NA   NA   NA", header=TRUE, check.names=FALSE)

A <- as.matrix(A)
B <- as.matrix(B)

#reshape to long format
Bm <- stack(as.data.frame(B))
Bm$ind <- as.character(Bm$ind)
Bm$year <- rownames(B)

#merge
C <- merge(Bm[, c("ind", "year")], 
           as.data.frame(A), 
           by.x=c("ind", "year"), 
           by.y=c("SIC", "Year"), 
           all.x=TRUE)

#reshape to wide format
library(reshape2)
dcast(C, year~ind)

#  year          13         20         27 37 46
#1 1989          NA         NA         NA NA NA
#2 1990 -0.08610973 0.01273243         NA NA NA
#3 1991          NA         NA -0.0268533 NA NA
    Vielen Dank. Das half!

    InformationsquelleAutor Roland

Schreibe einen Kommentar