r - 仅绘制特定轴文本标签

Question

我有以下 数据表 :

require(data.table)
require(ggplot2)

set.seed(1234)
dt = data.table(id = paste0('ID_', 1:2000),
                group = rep(LETTERS[1:5], 400),
                value = as.logical(rbinom(2000, 1, prob = 0.25)))

我想创建一个 ggplot 如下所示，y 轴上只有文本标签，其中变量 value等于 TRUE绘制，而不删除其他数据。此外，如果文本标签不会重叠(如果可能)，则最好使用所有空的 y 轴空间。

# draws all categorical id values
ggplot(dt, aes(y = reorder(id, -value), x = group, fill = value)) +
  geom_tile() +
  theme_bw()

Answer 1

更新:对于前 100 个案例:

dt1 <- dt %>% 
  mutate(ylabel = ifelse(value==TRUE, id, "")) %>% 
  slice(1:100)

ggplot(dt1, aes(y = reorder(id, -value), x = group, fill = value)) +
  geom_tile() +
  scale_y_discrete(
    labels = dt1$ylabel
  ) +
  theme_bw()