r - theme_bw()将所有颜色从ggplot中剥离

library(tidyverse)
ggplot(mtcars, aes(cyl, mpg)) +
  geom_point() +
  theme_bw() +
  geom_hline(aes(yintercept = 20), color = "red")

上面的代码是漂亮的黑白主题，带有红色水平线。下面的代码也应该是黑色和白色主题，这次有一条红色的垂直线。但是情节根本没有任何色彩。为什么theme_bw()从下面的图中去除所有颜色？

library(tidyverse)
library(lubridate)

df <-
  tibble(
    date = as.Date(41000:42000, origin = "1899-12-30"),
    value = c(rnorm(500, 5), rnorm(501, 10))
  ) %>%
  mutate(year = as.factor(year(date)))

ggplot(df, aes(date, value)) +
  geom_line() +
  geom_vline(
    xintercept = as.numeric(df$date[yday(df$date) == 1]), color = "red"
  ) +
  scale_x_date(
    date_labels = "%b", breaks = scales::pretty_breaks(), expand = c(0, 0)
  ) +
  facet_grid(.~ year, space = 'free_x', scales = 'free_x', switch = 'x') +
  labs(x = "") +
  theme_bw(base_size = 14, base_family = 'mono') +
  theme(panel.grid.minor.x = element_blank()) +
  theme(panel.spacing.x = unit(0, "line")) +
  theme(strip.placement = 'outside', strip.background.x = element_blank())

最佳答案

您可以使用panel.border = element_blank()内的theme删除构面面板的边框

ggplot(df, aes(date, value)) +
  geom_line() +
  geom_vline(
    xintercept = as.numeric(df$date[yday(df$date) == 1]), color = "red") +
  scale_x_date(
    date_labels = "%b", breaks = scales::pretty_breaks(), expand = c(0, 0)) +
  facet_grid(.~ year, space = 'free_x', scales = 'free_x', switch = 'x') +
  labs(x = "") +
  theme_bw(base_size = 14, base_family = 'mono') +
  theme(
      panel.grid.minor.x = element_blank(),
      panel.spacing.x = unit(0, "line"),
      panel.border = element_blank(),
      strip.placement = 'outside',
      strip.background.x = element_blank())

更新资料

要使用构面并使红线不与构面边界重叠，这是一种“hacky”解决方案:

首先，绘制无面板边框

gg <- ggplot(df, aes(date, value)) +
      geom_line() +
      geom_vline(
        xintercept = as.numeric(df$date[yday(df$date) == 1]), color = "red") +
      scale_x_date(
        date_labels = "%b", breaks = scales::pretty_breaks(), expand = c(0, 0)) +
      facet_grid(.~ year, space = 'free_x', scales = 'free_x', switch = 'x') +
      labs(x = "") +
      theme_bw(base_size = 14, base_family = 'mono') +
      theme(
          panel.grid.minor.x = element_blank(),
          panel.spacing.x = unit(0, "line"),
          panel.border = element_blank(),
          strip.placement = 'outside',
          strip.background.x = element_blank())

然后，我们提取面板的y轴范围，并添加geom_rect以手动绘制面板边框

ylim <- ggplot_build(gg)$layout$panel_params[[1]]$y.range
gg <- gg +
    geom_rect(
        xmin = min(df$date), xmax = max(df$date),
        ymin = ylim[1], ymax = ylim[2],
        fill = NA, colour = "black")

这有点麻烦，因为您需要将绘图分成两个步骤才能提取面板的y轴范围。

关于r - theme_bw()将所有颜色从ggplot中剥离，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/52609119/