export_ecplor

library(explor)
load("res_mca.rda")

変数マップ

res <- explor::prepare_results(res_mca)
explor::MCA_var_plot(res, xax = 1, yax = 2, var_sup = FALSE, var_sup_choice = ,
    var_lab_min_contrib = 0, col_var = "Variable", symbol_var = NULL, size_var = NULL,
    size_range = c(10, 300), labels_size = 10, point_size = 56, transitions = TRUE,
    labels_positions = NULL, labels_prepend_var = FALSE, xlim = c(-1.35, 1.65),
    ylim = c(-1.25, 1.75))

個体マップ

res <- explor::prepare_results(res_mca)
explor::MCA_ind_plot(res, xax = 1, yax = 2, ind_sup = FALSE, lab_var = NULL,
    ind_lab_min_contrib = 0, col_var = "Type", labels_size = 9, point_opacity = 0.5,
    opacity_var = NULL, point_size = 19, ellipses = FALSE, transitions = TRUE,
    labels_positions = NULL, xlim = c(-1.9, 2.16), ylim = c(-1.95, 2.11))

個体マップ：金融資産楕円

res <- explor::prepare_results(res_mca)
explor::MCA_ind_plot(res, xax = 1, yax = 2, ind_sup = FALSE, lab_var = NULL,
    ind_lab_min_contrib = 0, col_var = "金融資産", labels_size = 9, point_opacity = 0.5,
    opacity_var = NULL, point_size = 64, ellipses = TRUE, transitions = TRUE,
    labels_positions = NULL, xlim = c(-1.62, 2.44), ylim = c(-1.8, 2.26))