最初の行の単語で列全体を選択

Question

Excelシートからデータフレーム（df）を取得しました。日付フレームの最初の行では常に「正しい」または「間違っている」、他の行はデータで埋められます。 今、関数applyを使用して、最初の行が「正しい」と言われるすべての列を選択したいとします。

私が試した：

apply(df,2,function(df) grepl ("correct",df)) 

答えがTRUEとFALSEとだけデータフレームです。他の行のデータを失うことなく列を選択するにはどうすればよいですか？

Answer 1

i <- sapply(df, function(x) x[1] =='correct') 

df[,i] 

Answer 2

ループは必要ありません。次は動作するはずです

df[,df[1,] == 'correct']