r - 删除或隐藏 R ggplot2/factoextra 图上的零线

Question

我在 R 中使用这个 factoextra 包进行通讯分析。

当我打印出结果图时，我找不到隐藏 x 和 y 零线的选项。
我知道主题设置是基于ggplot2的。谁能帮我弄清楚如何隐藏这两行？
请在下面找到代码。

fviz_ca_biplot(gen_show_ns.ca,
               geom =c( "text", "point"),
               col.col = "#FF6600",
               col.row = "#336699",
               MAP = "symbiplot",
               labelsize = 5,
               repel = TRUE,
               title = " "
) +
  theme(axis.line=element_blank(),
        axis.text.x=element_blank(),
        axis.text.y=element_blank(),
        axis.ticks=element_blank(),
        axis.title.x=element_blank(),
        axis.title.y=element_blank(),
        legend.position="none",
        panel.background=element_blank(),
        panel.border=element_blank(),
        panel.grid.major=element_blank(),
        panel.grid.minor=element_blank(),
        plot.background=element_blank())})

其他参考链接请看这里：ggplot2 主题

任何建议都有帮助！非常感谢

Answer 1

到目前为止我发现的唯一方法是添加选项

axes.linetype=NA

你会得到没有线条的情节。但是，这会显示一条警告消息，指出可能存在缺失值，但情节似乎还可以。

您试图摆脱的行是函数添加的 geom_hline 和 geom_vline ：

.fviz_finish(p, X, axes, axes.linetype, ...)

您正在使用的人在某个时候调用。

我使用以下代码和数据来生成示例：

library(ggplot2)
library(factoextra)
library(FactoMineR)

res.ca<-CA(housetasks,graph = FALSE)
fviz_ca_biplot(res.ca,axes.linetype=NA)

fviz_ca_biplot(res.ca,axes.linetype=NA)

## Warning: Removed 1 rows containing missing values (geom_segment).
## Warning: Removed 1 rows containing missing values (geom_segment).
## Warning: Removed 1 rows containing missing values (geom_segment).
## Warning: Removed 1 rows containing missing values (geom_segment).

按照您的示例的选项：

fviz_ca_biplot(res.ca,
               geom =c( "text", "point"),
               col.col = "#FF6600",
               col.row = "#336699",
               MAP = "symbiplot",
               labelsize = 5,
               repel = TRUE,
               title = " ",
               axes.linetype=NA
) +
  theme(axis.line=element_blank(),
        axis.text.x=element_blank(),
        axis.text.y=element_blank(),
        axis.ticks=element_blank(),
        axis.title.x=element_blank(),
        axis.title.y=element_blank(),
        legend.position="none",
        panel.background=element_blank(),
        panel.border=element_blank(),
        panel.grid.major=element_blank(),
        panel.grid.minor=element_blank(),
        plot.background=element_blank())

## Warning: Removed 1 rows containing missing values (geom_segment).
## Warning: Removed 1 rows containing missing values (geom_segment).
## Warning: Removed 1 rows containing missing values (geom_segment).
## Warning: Removed 1 rows containing missing values (geom_segment).

希望对你有帮助！