Funkcja do konwersji typu kolumny ramki danych
R często rozumie kolumny ramek danych w „niewłaściwym” formacie lub po prostu musisz zmienić klasę kolumny z factor na znak, aby ją zmodyfikować. Zmieniałem klasę kolumn w następujący sposób:
set.seed(1)
df <- data.frame(x = 1:10,
y = rep(1:2, 5),
k = rnorm(10, 5,2),
z = rep(c(2010, 2012, 2011, 2010, 1999), 2),
j = c(rep(c("a", "b", "c"), 3), "d"))
x <- c("y", "z")
for(i in 1:length(x)){
df[,x[i]] <- factor(df[,x[i]])}
I wróć do liczb:
x <- 1:5
for(i in 1:length(x)){
df[,x[i]] <- as.numeric(as.character(df[,x[i]]))} # Character cannot become numeric
Przyszło mi do głowy, że może jest lepszy sposób na zrobienie tego. znalazłemto pytanie, co jest prawie dokładnie tym, czego potrzebuję:
convert.magic <- function(obj,types){
out <- lapply(1:length(obj),FUN = function(i){FUN1 <-
switch(types[i],
character = as.character,
numeric = as.numeric,
factor = as.factor); FUN1(obj[,i])})
names(out) <- colnames(obj)
as.data.frame(out)
}
Jednak dla tej funkcji typ wektora musi być określony dla każdej kolumny:
convert.magic(df, rep("factor",5))
convert.magic(df, c("character", "factor"))
# Error in FUN(1:5[[1L]], ...) : could not find function "FUN1"
Czy ktoś może mi pomóc i odbudować tę funkcję, aby działała z nazwami i numerami kolumn? Obawiam się, że byłoby to dla mnie zbyt zaawansowane ...
x <- c("y", "z")
convert.magic(df, "character", x)