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

Remove or hide zeroline on R ggplot2/factoextra plots

我在 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())})

其他参考link请看这里:ggplot2 theme

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

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

axes.linetype=NA

你会得到没有台词的情节。但是,这会显示一条警告消息,说明可能存在缺失值,但情节似乎没问题。

您要删除的行是由函数添加的 geom_hline 和 geom_vline:

.fviz_finish(p, X, 轴, 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).

希望对您有所帮助!