Sei que para converter uma coluna eu posso fazer df$COLUNA <- as.character(df$COLUNA)
. Mas o meu problema é que preciso converter todas as 80 colunas de 18 dataframes dispostos em uma lista. A ideia de conversão é que pretendo empilhá-los pela bind_rows()
e como não farei operações com as colunas, fica indeferente o formato que eles estarão.
Adicione um comentário
|
2 Respostas
Você pode usar o mutate_all
:
Por exemplo:
library(tidyverse)
#> Warning: package 'tibble' was built under R version 3.5.2
mtcars <- as_tibble(mtcars)
mtcars %>% mutate_all(as.character)
#> # A tibble: 32 x 11
#> mpg cyl disp hp drat wt qsec vs am gear carb
#> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
#> 1 21 6 160 110 3.9 2.62 16.46 0 1 4 4
#> 2 21 6 160 110 3.9 2.875 17.02 0 1 4 4
#> 3 22.8 4 108 93 3.85 2.32 18.61 1 1 4 1
#> 4 21.4 6 258 110 3.08 3.215 19.44 1 0 3 1
#> 5 18.7 8 360 175 3.15 3.44 17.02 0 0 3 2
#> 6 18.1 6 225 105 2.76 3.46 20.22 1 0 3 1
#> 7 14.3 8 360 245 3.21 3.57 15.84 0 0 3 4
#> 8 24.4 4 146.7 62 3.69 3.19 20 1 0 4 2
#> 9 22.8 4 140.8 95 3.92 3.15 22.9 1 0 4 2
#> 10 19.2 6 167.6 123 3.92 3.44 18.3 1 0 4 4
#> # … with 22 more rows
Created on 2019-03-11 by the reprex package (v0.2.1)
Se você tem uma lista, poderá fazer o seguinte:
# Reprodução da lista
for (i in 1:6) {
assign(paste('var', i, sep = '_'),
runif(30, 20, 100))
}
dataset <- cbind.data.frame(mget(ls(pattern = '*var')))
cluster <- kmeans(dataset, centers = 3)
dataset$kmeans <- as.factor(cluster[['cluster']])
mylist <- split(dataset, dataset$kmeans)
names(mylist) <- paste('datasets', seq_along(mylist), sep = '_')
mylist
é o nome da lista com três data.frame
s.
Agora, converta cada variável, de cada data.frame
, em character
:
library(tidyverse)
novo <- mylist %>%
map(~mutate_all(., as.character))
novo
é a lista com as variáveis convertidas em cada data.frame
.
Comprove a coerção com sapply
:
sapply(novo, function(x) {
sapply(x, class)
})
datasets_1 datasets_2 datasets_3
var_1 "character" "character" "character"
var_2 "character" "character" "character"
var_3 "character" "character" "character"
var_4 "character" "character" "character"
var_5 "character" "character" "character"
var_6 "character" "character" "character"
kmeans "character" "character" "character"