複数の列を一度に分割するR

Question

354（a1-a354）列のデータフレームを分割しようとしています。 例：しかしとして、（私はカラム名について気にしない）私は一度に1列にそれを使用する場合これは完璧に動作

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

：現在、私は次のコードを使用してい

a1 a2 
1 aa aa 
2 bb bb 
3 cc cc 

私は354列を持って、私はそれをループしようとしています。これまでは、関数化してみたので、lapplyで使うことができました。私もfor-loopを試しました。私はいつも エラーを取得：データソースは、辞書

でなければなりませんが、私は次のことをしようとしている：私が試した

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

他の事は私の方法のいずれもが機能していない

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

あり、明らかに何か間違っている。 ご協力いただければ幸いです。

Answer 1

いくつかのオプションがあります。一つの方法は、一緒にpasteに行ことgsubを使用して区切り文字を作成し、read.table/read.csv

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

---

それとも私たちがこんにちは列をループでstrsplitに分割され、その後、rbind

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