Riclassifica colonne selezionate nella tabella dati

Question

Desidero modificare la classe delle variabili selezionate in una tabella di dati, utilizzando un'operazione vettoriale. Sono nuovo della sintassi data.table e sto cercando di imparare il più possibile. Ora la domanda è di base, ma mi aiuterà a capire meglio il modo di pensare della tabella dati!

Una domanda simile è stata posta here! Tuttavia, la soluzione sembra riguardare sia la riclassificazione di una sola colonna o di tutte le colonne. La mia domanda è unica per alcune colonne selezionate.

### Load package 
require(data.table) 

### Create pseudo data 
data <- data.table(id  = 1:10, 
        height = rnorm(10, mean = 182, sd = 20), 
        weight = rnorm(10, mean = 160, sd = 10), 
        color = rep(c('blue', 'gold'), times = 5)) 

### Reclass all columns 
data <- data[, lapply(.SD, as.character)] 

### Search for columns to be reclassed 
index <- grep('(id)|(height)|(weight)', names(data)) 

### data frame method 
df <- data.frame(data) 
df[, index] <- lapply(df[, index], as.numeric) 

### Failed attempt to reclass columns used the data.table method 
data <- data[, lapply(index, as.character), with = F] 

Qualsiasi aiuto sarebbe apprezzato. I miei dati sono grandi e quindi è necessario utilizzare espressioni regolari per creare un vettore di numeri di colonne da riclassificare.

Grazie per il vostro tempo.

Answer 1

penso che @ SimonO101 fatto la maggior parte del lavoro

data[, names(data)[index] := lapply(.SD, as.character) , .SDcols = index ] 

si può semplicemente utilizzare il := magia

Answer 2

Hai solo bisogno di utilizzare .SDcols con il vettore indice (ho imparato che oggi!), Ma che sarà solo restituire una tabella di dati con le colonne Reclassed. La risposta di @dickoa è ciò che stai cercando.

data <- data[, lapply(.SD, as.character) , .SDcols = index ] 
sapply(data , class) 
     id  height  weight 
"character" "character" "character" 

Answer 3

Si potrebbe evitare il sovraccarico della costruzione di .SD all'interno j utilizzando set

for(j in index) set(data, j =j ,value = as.character(data[[j]]))