Rで複数列をまとめて同じ名前列に移動させたい

Question

発生している問題・エラーメッセージ

Rで現在元のcsvファイルを整理しています。複数列をまとめて同じ名前列に移動させる方法がわかりません。

データフレームに「文字列、文字列、数列、数列」の４列が横に連なっている状態です。以下の表のようになっていて、行、列ともに同じようにほかのデータが続いています。

subject	ｑ	Ｈ	Ｖ	Ｃ	ｑ	Ｈ	Ｖ	Ｃ	ｑ	Ｈ	Ｖ	Ｃ
IE	bright	7.5R	9	10	clear	5R	6	8	vulgar	2.5R	9	6
AY	bright	5R	9	4	clear	5G	6	12	vulgar	2.5P	3	2

これを以下のように変えたいです。

subject	ｑ	Ｈ	Ｖ	Ｃ
IE	bright	7.5R	9	10
IE	clear	5R	6	8
IE	vulgar	2.5R	9	6
AY	bright	5R	9	4
AY	clear	5G	6	12
AY	vulgar	2.5P	3	2

補足情報（FW/ツールのバージョンなど）

Rstudio使用。
同じ文字をread.csvで読めないようで、以下のようになっています
|subject|ｑ|Ｈ|Ｖ|Ｃ|ｑ.1|Ｈ.1|Ｖ.1|Ｃ.1|ｑ.2|Ｈ.2|Ｖ.2|Ｃ.2|
|:--|:--:|--:|

Answer 1

データフレームとは、「列データを束ねたリスト」です。

まずはq, q.1, q.2列のデータをつないだベクトル、H, H.1, H.2列を繋いだベクトルなど、4つの中間ベクトルを作ることを考えます。この中間ベクトルを最後に束ねれば目的のデータフレームができるはずです。

対象データフレームをここではdf1とすると、「q, q.1, q.2列をつないだもの」すなわちdf1の2,6,10列目、すなわちseq(2, ncol(df1), 4)列目のデータを抜き出して一つのベクトルに連結したものを作ればよいということです。

ここではひと工夫してapply系の関数を使います。

sapply(seq(2, ncol(df1), 4), function(x){df1[,x]})

sapply()の第1引数にベクトルを指定すると、その要素をひとつづつ取り出して第2引数で指定した関数を実行し、結果を配列で返します。

> sapply(seq(2, ncol(df1), 4), function(x){df1[,x]})
     [,1]     [,2]    [,3]    
[1,] "bright" "clear" "vulgar"
[2,] "bright" "clear" "vulgar"

行列の実体はDIM要素を付加したベクトルです。これを素のベクトルとして解釈すればすなわち目的のベクトルとなります。

とりあえずqとHについて同じような処理をして、新しいデータフレームにまとめてみます。

> data.frame(
q=as.vector(sapply(seq(2, ncol(df1), 4), function(x){df1[,x]})), 
H=as.vector(sapply(seq(3, ncol(df1), 4), function(x){df1[,x]})))
       q    H
1 bright 7.5R
2 bright   5R
3  clear   5R
4  clear   5G
5 vulgar 2.5R
6 vulgar 2.5P

こんな感じで、部分の処理をまず考えて、少しづつ一般化していけばいいでしょう。