Удалить или скрыть Zeroline на графиках R ggplot2/factoextra

Question

Я использую этот пакет factoextra в R для проведения Корреспондентского анализа.

Когда я распечатываю график результатов, я не могу найти опцию, чтобы скрыть x и y zeroline.
Я знаю, что настройка темы основана на ggplot 2. Может кто-нибудь помочь мне понять, как скрыть эти две строки?
Пожалуйста, найдите код ниже.

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 = Н.А.

Вы получите сюжет без линий. Однако из-за этого появляется предупреждающее сообщение о том, что могут отсутствовать значения, но график выглядит нормально.

Строки, от которых вы пытаетесь избавиться, это 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).

Надеюсь, это поможет вам!