Mehrere Spalten gleichzeitig teilen in R

Question

Ich versuche, meinen Datenrahmen zu teilen, der 354 (a1-a354) Spalten hat. Beispiel:

a1 a2 
1 aa aa 
2 bb bb 
3 cc cc 

Derzeit bin ich mit dem folgenden Code:

df1<- extract(df1,1, c("D","M"), "(.)(.)",convert=TRUE) 

Das perfekt funktioniert, wenn ich es auf einer Spalte zu einer Zeit (i dont care über Spaltennamen), aber als Ich habe 354 Spalten, ich versuche, es zu loopen. Bis jetzt habe ich versucht, eine Funktion zu machen, damit ich sie mit lapply benutzen kann. Ich habe auch for-Schleife versucht. Ich bekomme immer die Fehler: Datenquelle

Ich habe versucht, die folgenden ein Wörterbuch sein muss:

colseparator <- function(x) { 
df1<- extract(df1,x, c("D","M"), "(.)(.)",convert=TRUE) 
} 

Andere Sache, die ich versucht ist

for (x in c(7,9,11)){ 
     df1<- extract(df1,x, c("D","M"), "(.)(.)",convert=TRUE) 
    } 

Keiner meiner Methoden arbeiten, offensichtlich mache ich etwas falsch. Jede Hilfe wird sehr geschätzt.

Answer 1

Es gibt einige Optionen. Eine Möglichkeit wäre es, die Reihen paste zusammen, erstellen Sie ein Trennzeichen gsub mit und lesen mit read.table/read.csv

read.table(text=gsub('(?<=[a-z])(?=[a-z])', ',', do.call(paste, df1), 
      perl = TRUE), header = FALSE, stringsAsFactors=FALSE, sep=',') 

---

Oder wir könnten geteilt mit strsplit um über den Spalten Looping und dann rbind

do.call(rbind, lapply(df1, function(x) do.call(rbind, strsplit(x, "(?<=.)", perl = TRUE))))