R/utilities.R
factominer_category_map.RdMap FactoMineR category labels to legacy naming patterns
factominer_category_map(X, element = c("quali.var", "quali.sup", "var"))A data.frame with current labels, variable names, levels, and legacy naming patterns.
# \donttest{
if (requireNamespace("FactoMineR", quietly = TRUE)) {
data(poison)
res.mca <- FactoMineR::MCA(poison, quanti.sup = 1:2, quali.sup = 3:4, graph = FALSE)
head(factominer_category_map(res.mca, element = "var"))
}
#> current variable level legacy_dot legacy_underscore
#> 1 Nausea_n Nausea Nausea_n Nausea.Nausea_n Nausea_Nausea_n
#> 2 Nausea_y Nausea Nausea_y Nausea.Nausea_y Nausea_Nausea_y
#> 3 Vomit_n Vomiting Vomit_n Vomiting.Vomit_n Vomiting_Vomit_n
#> 4 Vomit_y Vomiting Vomit_y Vomiting.Vomit_y Vomiting_Vomit_y
#> 5 Abdo_n Abdominals Abdo_n Abdominals.Abdo_n Abdominals_Abdo_n
#> 6 Abdo_y Abdominals Abdo_y Abdominals.Abdo_y Abdominals_Abdo_y
#> legacy_equals legacy_colon legacy_level
#> 1 Nausea=Nausea_n Nausea:Nausea_n Nausea_n
#> 2 Nausea=Nausea_y Nausea:Nausea_y Nausea_y
#> 3 Vomiting=Vomit_n Vomiting:Vomit_n Vomit_n
#> 4 Vomiting=Vomit_y Vomiting:Vomit_y Vomit_y
#> 5 Abdominals=Abdo_n Abdominals:Abdo_n Abdo_n
#> 6 Abdominals=Abdo_y Abdominals:Abdo_y Abdo_y
# }