ggplot2 - 删除面板顶部边框

Question

我只想删除图表的顶部。 我在这里和这里找到了一些方向。 但是，它们会删除所有边框或顶部和左侧。 我知道我可能应该将参数panel.border与element_blank()或element_rect()但我找不到定义它的正确方法。

我在找这个：

library(tidyverse)

mtcars %>% 
  ggplot(aes(factor(cyl), disp)) + 
  geom_boxplot() + 
  jtools::theme_apa() + 
  theme(
    panel.border = element_blank())

将导致：

Answer 1

另一种选择是大量作弊...使用theme_classic并添加一个片段

library(tidyverse)

mtcars %>% 
  ggplot(aes(factor(cyl), disp)) + 
  geom_boxplot() + 
  #jtools::theme_apa() + 
  theme_classic() +
  annotate(geom = 'segment', x= Inf, xend = Inf, y = -Inf, yend = Inf)

^{由reprex 包(v0.3.0) 于 2020 年 1 月 20 日创建}

Answer 2

还有一个选择（来自 Tjebo 的一些建议）

library(tidyverse)

mtcars %>% 
  ggplot(aes(factor(cyl), disp)) + 
  geom_boxplot() + 
  scale_y_continuous(sec.axis = sec_axis(~ .))+
  jtools::theme_apa() +
  theme(
    axis.line.x.bottom = element_line(color = 'black'),
    axis.line.y.left   = element_line(color = 'black'),
    axis.line.y.right  = element_line(color = 'black'),
    axis.text.y.right  = element_blank(),
    axis.ticks.y.right = element_blank(),
    panel.border       = element_blank())

Answer 3

使用您发布的参考资料之一，您最终会使用此脚本（感谢 Rudolf Cardinal 和 Alex Holcombe）。 您可以使用函数theme_border()来绘制您想要的边框。 为此，只需下载链接中提供的脚本，将其放入您的工作目录并执行以下代码：

library(tidyverse)
library(grid)
source("rnc_ggplot2_border_themes_2013_01.r")
mtcars %>% 
  ggplot(aes(factor(cyl), disp)) + 
  geom_boxplot() + 
  jtools::theme_apa() + 
  theme(
    panel.border = theme_border(type = c("bottom","right","left")))

希望这可以帮助！