小编Jan*_*yer的帖子

我正在 ggplot 中制作一个 tilemap，如下所示。2个问题：

1) 如何扩展 x 轴限制以在 x = 4 处标记我的组？2) 如何自动在组之间放置水平线（即 1 和 2、2 和 3 之间的线，等等），而不是手动指定 y 值？

require(tidyverse)
set.seed(1)
df <- data.frame(ID = as.character(c(1:50)),
                 Group = sample(1:8, 50, replace = T),
                 var1 = sample(c('Y', 'N'), 50, replace = T),
                 var2 = sample(c('Y', 'N'), 50, replace = T),
                 var3 = sample(c('Y', 'N'), 50, replace = T)) %>% 
  gather('var', 'y_n', var1:var3) %>% 
  arrange(-Group) %>% 
  mutate(ID = factor(ID, levels = unique(ID, ordered = T)))

ggplot(df, aes(var, ID, label = …