r - R ワイルドカード、sapply および as.factor

Question

名前が特定のパターンに一致するデータ フレーム内のすべての変数の型を factor に変更したいと考えています。

したがって、ここでは、データフレーム内の名前がnamestubで始まるすべての変数の型を factor に変更しようとしていますdf。

attach(df)    
sapply(grep(glob2rx("namestub*"), names(df)), as.factor)

しかし、これは機能しません

> levels(df$namestub1)
NULL

Answer 1

## Make a reproducible example
df <- data.frame(namestubA = letters[1:5], B = letters[5:1], 
                 namestubC = LETTERS[1:5], stringsAsFactors=FALSE)

## Get indices of columns to convert
ii <- grep(glob2rx("namestub*"), names(df))

## Convert and replace the indicated columns
df[ii] <- lapply(df[ii], as.factor)