Die Auswahl mehrere gerade oder ungerade Spalten/Zeilen für dataframe

Gibt es eine Möglichkeit in R zu wählen, viele nicht-konsekutiven, d.h. gerade oder ungerade Zeilen/Spalten?

Bin ich Plotten die Belastungen für meine Prinzipal-Komponenten-Analyse. Ich habe 84 Reihen geordneten Daten wie diese: x_1 y_1 x_2..... x_42 y_42

Und im moment bin ich der Schaffung des dataframes für die x-und y-loadings zahlen wie diese:

data.pc = princomp(as.matrix(data))

x.loadings <- data.frame(x=data.pc$loadings[c(1, 3, 5, 7, 9, 11, 13 ,15, 17, 19, 
21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41), 1])

yloadings <- data.frame(y=data.pc$loadings[c(2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 
22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42), 1])

Sicherlich gibt es einen einfacheren Weg, dies zu tun?

InformationsquelleAutor der Frage dmt | 2014-06-26

  1. 23

    Können Sie erzeugen immer Sequenzen, die mit seq:

    even_indexes<-seq(2,42,2)
odd_indexes<-seq(1,41,2)

    Dann,

      x.loadings <- data.frame(x=data.pc$loadings[odd_indexes,1])

    InformationsquelleAutor der Antwort Mali Remorker

  2. 49

    Wenn logische Vektoren werden für die Indexierung verwendet, die recycelt werden, so bekommt Sie ungerade Spalten oder ungerade Zeilen

     calld[ c(TRUE,FALSE), ]  # rows
 calld[ , c(TRUE,FALSE) ] #columns

    Sogar Zeilen oder Spalten:

     calld[ !c(TRUE,FALSE), ]  # rows
 calld[ , !c(TRUE,FALSE) ] #columns

    Jeder Dritte Spalte:

      calld[ , c(TRUE,FALSE, FALSE) ]   #columns 1,4,7 , ....

    InformationsquelleAutor der Antwort 42-

  3. 3

    Möchte ich hinzufügen das tidyverse Stil Ansatz für dieses problem, mit der %% Betreiber.

    library(dplyr)
df <- data_frame(V1 = seq(1, 26), V2 = letters)
df %>% dplyr::filter(row_number() %% 2 == 0) ## Select even rows
df %>% dplyr::filter(row_number() %% 2 == 1) ## Select odd rows
df %>% dplyr::filter(row_number() %% 3 == 1) 
## Select every 3rd row starting from first row

    Können Sie die gleiche Idee zu löschen jeder n-TEN Zeile, natürlich. Sehen hier.

    InformationsquelleAutor der Antwort Kim

  4. 2

    Verwenden %% in Kombination mit seq_len zu erstellen Vektor für die Indizierung Ihrer Daten-frame zu finden, selbst und Verschiedenheit Spalten/Zeilen

    Probieren Sie etwas wie dieses:

    even <- seq_len(ncol(data.pc)) %% 2   # index
x.loadings <- data.frame(x=data.pc$loadings[even, ])
y.loadings <- data.frame(x=data.pc$loadings[!even, ] )

    InformationsquelleAutor der Antwort Jilber Urbina

Schreibe einen Kommentar