R 在绘图中隐藏轴

我有一张图表 我需要把轴藏在那里。 我已经拿到了

res.mca <- MCA(df)

但它又回来了

error in coord.var[, 1]

所有代码：

library(FactoMineR)
df <- read.table("tasks_correspondence_t.txt", header = TRUE)
row.names(df) = df$id
df = df[,-1]
for (i in 1:ncol(df)) df[,i]=as.factor(df[,i])
res.mca <- MCA(df)

---

不修改

MCA（）

或

plot.MCA（）

的内容是不可能的，因为轴标签是硬编码的。后者在

graph=TRUE

的情况下从

MCA（）

调用，但即使保存对象然后调用

plot（）

也不会有帮助，因为问题出在

plot.MCA（）

上

plot.MCA（）

中的相关代码为

  lab.x <- paste("Dim ", axes[1], " (", format(res.mca$eig[axes[1], 
                                                           2], nsmall = 2, digits = 2), "%)", sep = "")
  lab.y <- paste("Dim ", axes[2], " (", format(res.mca$eig[axes[2], 
                                                           2], nsmall = 2, digits = 2), "%)", sep = "")

lab.x做一个简单的测试，帮助会越来越多。
            a   b   c   d   e
1mbank.ru   0   0   0   0   0
akbars.ru   0   0   0   0   0
alfabank.ru 1   0   0   1   0
avangard.ru 0   0   0   0   0
bank-hlynov.ru  0   0   0   0   0

  lab.x <- paste("Dim ", axes[1], " (", format(res.mca$eig[axes[1], 
                                                           2], nsmall = 2, digits = 2), "%)", sep = "")
  lab.y <- paste("Dim ", axes[2], " (", format(res.mca$eig[axes[2], 
                                                           2], nsmall = 2, digits = 2), "%)", sep = "")

lab.x <- ""
lab.y <- ""