向每个facet_grid图添加y轴标签

Question

I have a plot that you can simply reproduce with

library(dplyr)
library(ggplot2)

tibble(x = sample.int(3, 1000, replace = T),
       y = sample(letters[1:3], 1000, replace = T),
       k = sample(LETTERS[4:6], 1000, replace = T)) %>%
  count(x,y,k) %>%
  ggplot(aes(k, n)) +
  geom_bar(stat = "identity") +
  coord_flip() +
  facet_grid(x ~ y)

which gives something like the plot below (depends on random sampling):

I want to add y labels to each axis, but still be able to use facet_grid layout. Mostly beacause I need labels for each row of plots and not above them. In this case it might sound weird but in my data I have a 5x6 grid of plots and there are 10 labels on y axis. This would simplify readability of the whole plot.

I want to achieve plot like this:

Answer 1

You can achieve it using facet_wrap , but it changes the layout.

library(dplyr)
library(ggplot2)

tibble(x = sample.int(3, 1000, replace = T),
       y = sample(letters[1:3], 1000, replace = T),
       k = sample(LETTERS[4:6], 1000, replace = T)) %>%
  count(x,y,k) %>%
  ggplot(aes(k, n)) +
  geom_bar(stat = "identity") +
  coord_flip() +
  facet_wrap(~ interaction(x, y), scales = "free_y")