Umbenennen von Zeilen und Spalten in R

Bin ich mit dem folgenden Skript: 

cause = c(1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 2); 
time =  c(1, 1, 2, 3, 3, 2, 2, 1, 1, 2, 2); 
table(cause, time)

Und ich bekomme die folgende:

    time
cause 1 2 3
    1 2 2 2
    2 2 3 0

Was ich will, ist dieses:

      time
cause     1 2 3
Maltreat  2 2 2
Non-Maltr 2 3 0

So, meine Frage ist: wie benennen wir die Zeilen einer Tabelle in R?

In die gleiche Richtung, wie würden Sie Sie benennen Sie die Spalten einer Tabelle?

InformationsquelleAutor user5243421 | 2009-09-28

  1. 4

    Einen Weg, es zu tun ist die Verwendung von Faktoren oder Listen von Zeichenfolgen anstelle von Indizes. Also:

    cause1 <- c("Maltreat", "Non-malt")[cause]

> print(cause1)
 [1] "Maltreat" "Maltreat" "Maltreat" "Maltreat" "Maltreat" "Non-malt"
 [7] "Maltreat" "Non-malt" "Non-malt" "Non-malt" "Non-malt"

> table(cause1, time)
          time
cause1     1 2 3
  Maltreat 2 2 2
  Non-malt 2 3 0

    Werden und im Falle, Sie sind besorgt über das Gedächtnis oder die Geschwindigkeit-R ist ziemlich gut für diese Art der Sache effizient intern, nur mit einer einzigen Instanz der gesamte string gespeichert, und der rest fertig mit Indizes.

    Übrigens, Sie werden glücklicher auf lange Sicht mit Daten-frames:

    > df <- data.frame(cause=as.factor(c("Maltreat", "Non-malt")[cause]), time=time)
> summary(df)
      cause        time      
 Maltreat:6   Min.   :1.000  
 Non-malt:5   1st Qu.:1.000  
              Median :2.000  
              Mean   :1.818  
              3rd Qu.:2.000  
              Max.   :3.000  
> table(df)
          time
cause      1 2 3
  Maltreat 2 2 2
  Non-malt 2 3 0

    InformationsquelleAutor Harlan

  2. 5

    Es gibt zwei einfache Möglichkeiten, dies zu tun:

    z <- table(cause, time)

    Verwenden Sie die colnames/rownames Funktionen:

    > colnames(z)
[1] "1" "2" "3"
> rownames(z)
[1] "1" "2"

    Oder verwenden Sie dimnames:

    > dimnames(z)
$cause
[1] "1" "2"
$time
[1] "1" "2" "3"
> dimnames(z)$cause
[1] "1" "2"

    In jedem Fall, wählen Sie Ihren Namen als einen Vektor, und ordnen Sie Sie:

    > dimnames(z)$cause <- c("Maltreat","Non-malt")
> z
          time
cause      1 2 3
  Maltreat 2 2 2
  Non-malt 2 3 0

    InformationsquelleAutor Shane

  3. 1

    Vergessen Sie nicht plyr ist wunderbar "aufwerten" und "umbenennen" - Befehl!

    InformationsquelleAutor d_a_c321

Schreibe einen Kommentar