【R】特定の行の一つ下の行を抽出したい

Question

前提・実現したいこと

お世話になります。

特定の文字が並んだ行を含むデータがあるとき、
Rで、特定の文字が並ぶ行（例ではA、B、C）の一つ下の行のみを抽出（例では２、４、７行目）する方法をご教示いただけないでしょうか。

列1	列2	列3
A	B	C
1	2	3
A	B	C
5	6	7
6	8	9
A	B	C
2	6	9
…	…	…

Answer 1

データフレームやマトリックスから特定の行を抜き出したいときは、dat[c(1,2,3),]のように行番号をベクトルにするか、data[c(F,T,F,T,F,F,F),]のように、要る行と要らない行にそれぞれTrueとFalseを対応付けたベクトルを作り、これを引数に与えてやればよいわけです。

shimikenさんは第2の方法で対処していますが、ここでは行番号の計算（+1)という過程が出てくることを考えて前者でやってみました。

まず、1,2,3列がそれぞれ"A","B","C"であるような行の行番号を抽出することを考えます。

x <- sapply(1:nrow(dat), function(x){return(ifelse(all(dat[x,]==c("A","B","C")), x, NA))})

条件に合致する行番号とNAが混じったベクトルができます。
ここでは「その一つ次の行」が必要なので、上記ベクトルのNAを取り除いて、残りをそれぞれ+1したものを使えばいいわけです。

x <- sapply(1:nrow(dat), function(x){return(ifelse(all(dat[x,]==c("A","B","C")), x, NA))})
dat[x[!is.na(x)]+1, ]

Comments

[shimiken]

勉強になります。

[nik]

こちらも試してみて出来ました。
複数方法があるのですね。ありがとうございます！

Answer 2

簡潔には

dat <- matrix(c("A","B","C",1,2,3,"A","B","C",5,6,7,6,8,9,"A","B","C",2,6,9), nrow=7, ncol=3, byrow=T) 
dat[c(F,(dat[,1]=="A")[-nrow(dat)]),]

（A, A, A）みたいな行が混ざっているなら

dat <- matrix(c("A","B","C",1,2,3,"A","B","C",5,6,7,6,8,9,"A","A","A",2,6,9), nrow=7, ncol=3, byrow=T) 
dat[c(F,((dat[,1]=="A")&(dat[,2]=="B")&(dat[,3]=="C"))[-nrow(dat)]),]

Comments

[nik]

試してみて上手くいきました。
ありがとうございました！！