首页 文章

ggplot2中的次要网格线，具有离散值和构面网格

提问于
浏览 次
0

我有一个使用ggplot2创建的绘图，我试图修改一些次要的网格线 . 这是当前版本：

library(tidyverse)

data(starwars)
starwars = starwars %>% 
  filter(!is.na(homeworld), !is.na(skin_color)) %>%
  mutate(tatooine = factor(if_else(homeworld == "Tatooine", "Tatooine Native", "Other Native")),
         skin_color = factor(skin_color))

ggplot(starwars, aes(birth_year, skin_color)) +
  geom_point(aes(color = gender), size = 4, alpha = 0.7, show.legend = FALSE) +
  facet_grid(tatooine ~ ., scales = "free_y", space = "free_y", switch = "y") +
  theme_minimal() + 
  theme(
    panel.grid.major.x = element_blank(),
    panel.grid.major.y = element_blank(),
    axis.title.x = element_blank(),
    axis.title.y = element_blank(),
    strip.placement = "outside",
    strip.background = element_rect(fill="gray90", color = "white"),
  ) + 
  geom_hline(yintercept = seq(0, length(unique(starwars$skin_color))) + .5, color="gray30")

Y轴是一个因子，使用小平面网格，每个网格中的类别数量不均匀 . 我使用geom_hline添加了一些小的网格线（我的理解是panel.grid.minor不适用于分类数据，即因素） .

我想删除下面以黄色突出显示的行，然后在两个构面网格之间添加一条黑线（即，当前双线以黄色突出显示） .

有什么办法吗？如果数据发生变化，我宁愿避免对任何行的位置进行硬编码 . 谢谢 .

enter image description here

r ggplot2

1 回答

  • 0

    动态删除顶部和底部网格线相对容易 . 您可以根据构面组对数据集中的线位置进行编码，并排除最高和最低值，并在 aes() 语句中使用 xintercept 绘制 geom_hline . 这种方法对于更改数据非常有用（如果您更改数据，请注意此方法有效，请注释掉下面的 # filter(!is.na(birth_year)) 行） .

    library(tidyverse)
library(grid)

data(starwars)
starwars = starwars %>% 
  filter(!is.na(homeworld), !is.na(skin_color)) %>%
  mutate(tatooine = factor(if_else(homeworld == "Tatooine", "Tatooine Native", "Other Native")),
         skin_color = factor(skin_color)) %>% 
  # filter(!is.na(birth_year)) %>% 
  group_by(tatooine) %>% 

  # here we assign the line_positions
  mutate(line_positions = as.numeric(factor(skin_color, levels = unique(skin_color))), 
         line_positions = line_positions + .5,  
         line_positions = ifelse(line_positions == max(line_positions), NA, line_positions)) 


plot_out <- ggplot(starwars, aes(birth_year, skin_color)) +
  geom_point(aes(color = gender), size = 4, alpha = 0.7, show.legend = FALSE) +
  geom_hline(aes(yintercept = line_positions)) + 
  facet_grid(tatooine ~ ., scales = "free_y", space = "free_y", switch = "y") +
  theme_minimal() + 
  theme(
    panel.grid.major.x = element_blank(),
    panel.grid.major.y = element_blank(),
    panel.grid.minor.y = element_line(colour = "black"),
    axis.title.x = element_blank(),
    axis.title.y = element_blank(),
    strip.placement = "outside",
    strip.background = element_rect(fill="gray90", color = "white"), 

  ) 

print(plot_out)

    给

    enter image description here

    然而，在没有任何硬编码的情况下在小平面之间添加实体是困难的 . 有一些可能的方法可以在方面之间添加边框（参见here），但如果我们不愿意听取其他意见 .

    回复于

相关问题