R 如何使用MJCA和ggplot2编辑因子标签名称？

我想在使用mjca之后使用ggplot2创建一个图形，该图形在标签中只包含级别名称，而不包含因子：级别。 请参见示例-如何操作这些因子：标高标签

library(ca)
library(ggplot2)

data("wg93")

mj <-mjca(wg93, supcol = 5:7, lambda = "JCA")

summary(mj)

cats = apply(wg93, 2, function(x) nlevels(as.factor(x)))

cats

# eigenvalues
mj$sv^2

# column coordinates
head(mj$colcoord)

# row coordinates
head(mj$rowcoord)

# data frame for ggplot
mca4_vars_df = data.frame(mj$colcoord, Variable = rep(names(cats), cats))
rownames(mca4_vars_df) = mj$levelnames

#plot
ggplot(data =mca4_vars_df, 
       aes(x = X1, y = X2, label = rownames(mca4_vars_df))) +
  geom_hline(yintercept = 0, colour = "gray70") +
  geom_vline(xintercept = 0, colour = "gray70") +
  geom_text(aes(colour = Variable)) +
  ggtitle("MCA plot of variables using R package ca")

库（ca）
图书馆（GG2）
数据（“wg93”）
mj将结肠前的所有内容替换为空白：

ggplot(data =mca4_vars_df, 
       aes(x = X1, y = X2, label = sub('.*:','',rownames(mca4_vars_df)))) +
  geom_hline(yintercept = 0, colour = "gray70") +
  geom_vline(xintercept = 0, colour = "gray70") +
  geom_text(aes(colour = Variable)) +
  ggtitle("MCA plot of variables using R package ca")