在R ggplot2 / factoextra图上删除或隐藏Zeroline

时间:2017-05-07 05:02:12

标签: r ggplot2 themes pca correspondence-analysis

我在R中使用这个factoextra包来做对应分析。

当我打印出结果图时,我找不到隐藏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 theme

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

1 个答案:

答案 0 :(得分:3)

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

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)

enter image description here

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).

enter image description here

按照您的示例选项:

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).

enter image description here

希望它可以帮到你!