Konwertuj wsadowo kolumny na typ numeryczny

Question

Mam ramkę danych z grupą kolumn, które muszę przekonwertować na typ liczbowy. Napisałem poniższy kod, aby spróbować to zrobić, ale mówi się, że zamiennik ma 0 wierszy.

instanceconvert <- colnames(regmodel[7:262]) 

for (i in instanceconvert) 
{ 
    regmodel$i <- as.numeric(regmodel$i) 
} 

Każda pomoc zostanie doceniona.

Answer 1

Można użyć sapply na to:

dat <- sapply(dat, as.numeric) 

Jeśli nie każda kolumna potrzebuje konwersji:

library(taRifx) 
dat <- japply(dat, which(sapply(dat, class)=="character"), as.numeric) 

Answer 2

Jak SenorO wskazał, powodem oryginalny kod nie działa jest to, że $i nie będzie oceń i, aby dowiedzieć się, jaka jest obecna wartość. Należy zamiast dostępu i przypisać do kolumny za pomocą podwójne wsporniki, które pracują kiedy i to nazwa lub indeks numer:

for (i in instanceconvert) 
{ 
    regmodel[[i]] <- as.numeric(regmodel[[i]]) 
} 

następujące podejście Ariego, można pozbyć się pętli:

regmodel[,instanceconvert] <- 
    lapply(regmodel[,instanceconvert,drop=FALSE],as.numeric) 

Możesz to również zrobić z zasięgiem 7: 262, zamiast "instanceconvert", ponieważ możesz uzyskać dostęp/przypisać według nazwy lub numeru kolumny.

Answer 3

Szybki, brudny sposób na zrobienie tego, zwłaszcza jeśli masz zmienne, które wymagają konwersji, co oznaczałoby, że dużo kodu konwersji jest zapisanie pliku i ponowne wczytanie go za pomocą czegoś takiego jak write.csv /read.csv

write.csv(regmodel, file="regmodel.csv") 
read.csv(file="regmodel.csv") 

Answer 4

Oto szybkie rozwiązanie z innym pytaniem:

df[] <- lapply(df, function(x) as.numeric(as.character(x)))

referencyjny: Change all columns from factor to numeric in R

Answer 5

Wystarczy przejść kolumny, które mają jako ramki danych d się, co następuje:

data.frame(apply(d, 2, as.numeric)) 

To idzie kolumna po kolumnie i konwertuje każdy w numerycznej. Następnie zmień odpowiednio nazwy wierszy i nazwy kolumn.