#' función para transformar menciones a columnas
#'
#' Transforma conjuntos de respuesta múltiple que vienen como columnas de orden de mención y las convierte en columnas, una columna por marca
#'
#' @param tabla dataframe
#' @param prefijo character para saber qué nombre compartiran todas las variables
#'
#' @return Un archivo que tiene
# función para transformar matriz de marcas a matriz de menciones y su inversa
w_rm_menciones_a_columnas <- function(tabla,prefijo){
f_crea_dataframe_con_nombres <- function(columnas,casos){
a <- data.frame(nulo = rep(NA,casos))
for(i in columnas){
eval(parse(text = paste0(
'a[,"',i,'"] <- FALSE'
)))
}
a <- a[,-1]
return(a)
}
f_llena_dataframe <- function(resultado,tabla){
resumen <- tabla %>%
unite(.,todo) %>% unlist
resultado_final <- map(names(resultado),str_detect,string = resumen) %>% data.frame %>% setNames(names(resultado))
return(resultado_final)
}
columnas <- map(tabla,levels) %>% unlist %>% unique
resultado <- f_crea_dataframe_con_nombres(columnas,nrow(tabla)) %>%
f_llena_dataframe(.,tabla)
names(resultado) <- paste0(prefijo,'_',names(resultado))
return(resultado)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.