2

2行の階層に列名を持つクロス集計で構成されるcsvファイルをインポートしています。Rでテーブルを取得すると、結果は次のようになります。

   alpha  X.1  X.2 beta  X.1  X.2  X.3 gamma  X.1
    var1 var2 var3 var1 var2 var3 var4  var1 var4
1     21   50    5   22   48    6    8    25    8 
2     27   50    5   24   48    6    8    33    8 
3     26   50    5   28   48    6    8    33    8 
4     25   50    5   28   48    6    8    20    8

ここで、alpha 、、、およびbetaはgammaすべて階層の1つのレベルであり、、、、、およびは2番目のレベルです。var1var2var3var4

私がやりたいのは、次のような出力を取得することです。ここでは、行名が連結されていますが、データの構造も考慮されています。

   alpha_var1  alpha_var2  alpha_var3 beta_var1  beta_var2  beta_var3  beta_var4 gamma_var1  gamma_var4
1          21          50           5        22         48          6          8         25           8 
2          27          50           5        24         48          6          8         33           8 
3          26          50           5        28         48          6          8         33           8 
4          25          50           5        28         48          6          8         20           8

ここに何かアイデアはありますか？この問題に対処するための何かを見つけることができませんでした。前もって感謝します。

4

1 に答える 1

1

これはうまくいくようですがxts、関数の使用は少し手間がかかるようですna.locf()が、それが機能し、頻繁に使用することはわかっているので、それを使用しました。

library(xts)
#Read in data without headers
x <- read.delim("Book1.txt", skip = 2, header = FALSE)
#Read in header files transposing them into columns
headers <- data.frame(t(read.delim("Book1.txt", nrows = 2, header = FALSE)), stringsAsFactors = FALSE)

#Create a now column with the value of alpha, beta, gama or NA
headers$vals <- with(headers, ifelse(grepl("[abg]", X1), X1, NA))
#Fill down the values above
headers$vals <- na.locf(headers$vals)
#Paste column names together
colnames(x) <- with(headers, paste(vals, X2, sep = "_"))
#Resulting object
x



 alpha_var1 alpha_var2 alpha_var3 beta_var1 beta_var2 beta_var3 beta_var4 gamma_ var1 gamma_var4
1         21         50          5        22        48         6         8          25          8
2         27         50          5        24        48         6         8          33          8
3         26         50          5        28        48         6         8          33          8
4         25         50          5        28        48         6         8          20          8
于 2012-04-03T23:35:50.720 に答える