我有以下示例代码：
tmp <- data.frame(
  "channel_topic" = rep(LETTERS[seq(1:16)],9),
  "p1_age_cat_complete" = rep(1:9, each = 16),
  "n" = sample(100, size = 144, replace = TRUE)) |>
  group_by(channel_topic) |>
  mutate(n_group = sum(n))|>
  group_by(n_group) |>
  mutate(group_id = abs(cur_group_id()-17)) |>
  ungroup() |>
  mutate(group_id = ifelse(str_detect(channel_topic, "N"),
                           99,
                           ifelse(str_detect(channel_topic, "O"),
                                  100,
                                  ifelse(str_detect(channel_topic, "P"),
                                         101,
                                         group_id)))) |>
  mutate(facets = ifelse(group_id < 99,"1","2"),
         facets_2 = ifelse(p1_age_cat_complete == "9", "2","1"))
  
ggplot(tmp) +
  facet_grid(
    cols = vars(facets_2),
    rows = vars(facets),
    scales = "free_y",
    space = "free_y",
  ) +
  geom_tile(
    aes(
      x = p1_age_cat_complete,
      y = reorder(channel_topic, -group_id),
      fill = n
    )
  ) + theme(
    axis.text.x = element_text(angle = 90)
  ) +
  labs(
    x = "Alter",
    y = "Channel Topic",
    fill = "Anzahl",
    subtitle = paste("N = ", sum(tmp$n), sep = "")
  ) + theme(
    panel.background = element_rect(fill = "white",
                                    colour = "white"),
    panel.grid.major = element_line(colour = "gray90"),
    panel.grid.minor = element_line(colour = "grey95"),
    plot.subtitle = element_text(hjust = 1),
    axis.text.x = element_text(angle = 90),
    strip.background = element_blank(),
    strip.text = element_blank()
  ) +
  scale_x_discrete(limits = 1:9)

<details>
<summary>英文:</summary>
I have the following example code:

The output looks like this:
[![enter image description here][1]][1]
How can I get rid of the *9* column on the left side of the plot and of all other column exept *9* on the right side of the plot. Basically I want to suppress the empty columns and have only a little space like on the y-axis.
Thank you in advance.
Best,
Aaron
[1]: https://i.stack.imgur.com/Iu9Fx.png
[2]: https://i.stack.imgur.com/aJSTs.png
</details>
# 答案1
**得分**: 1
这是您正在寻找的吗？
1. `p1_age_cat_complete` 被转化为一个因子
2. 为x轴设置了`scales`和`space`的自由度，除了y轴
3. 删除了 `scale_x_discrete`
_edit_ 我忘记注明我在 `labs()` 之后删除了第一个 `theme(axis.text.x...` 的调用，因为它在那之后重复了。
``` r
library(tidyverse)
tmp &lt;- data.frame(
&quot;channel_topic&quot; = rep(LETTERS[seq(1:16)],9),
&quot;p1_age_cat_complete&quot; = rep(1:9, each = 16),
&quot;n&quot; = sample(100, size = 144, replace = TRUE)) |&gt;
group_by(channel_topic) |&gt;
mutate(n_group = sum(n))|&gt;
group_by(n_group) |&gt;
mutate(group_id = abs(cur_group_id()-17)) |&gt;
ungroup() |&gt;
mutate(group_id = ifelse(str_detect(channel_topic, &quot;N&quot;),
99,
ifelse(str_detect(channel_topic, &quot;O&quot;),
100,
ifelse(str_detect(channel_topic, &quot;P&quot;),
101,
group_id)))) |&gt;
mutate(facets = ifelse(group_id &lt; 99,&quot;1&quot;,&quot;2&quot;),
facets_2 = ifelse(p1_age_cat_complete == &quot;9&quot;, &quot;2&quot;,&quot;1&quot;),
p1_age_cat_complete = factor(p1_age_cat_complete))
tmp %&gt;% 
ggplot() +
facet_grid(
cols = vars(facets_2),
rows = vars(facets),
scales = &quot;free&quot;,
space = &quot;free&quot;
) +
geom_tile(
aes(
x = p1_age_cat_complete,
y = reorder(channel_topic, -group_id),
fill = n
)
) +
labs(
x = &quot;Alter&quot;,
y = &quot;Channel Topic&quot;,
fill = &quot;Anzahl&quot;,
subtitle = paste(&quot;N = &quot;, sum(tmp$n), sep = &quot;&quot;)
) + theme(
panel.background = element_rect(fill = &quot;white&quot;,
colour = &quot;white&quot;),
panel.grid.major = element_line(colour = &quot;gray90&quot;),
panel.grid.minor = element_line(colour = &quot;grey95&quot;),
plot.subtitle = element_text(hjust = 1),
axis.text.x = element_text(angle = 90),
strip.background = element_blank(),
strip.text = element_blank()
) 

p <- ggplot(tmp) +
  geom_tile(
    aes(
      x = p1_age_cat_complete,
      y = reorder(channel_topic, -group_id),
      fill = n
    )
  ) + theme(
    axis.text.x = element_text(angle = 90)
  ) +
  labs(
    x = "Alter",
    y = "Channel Topic",
    fill = "Anzahl",
    subtitle = paste("N = ", sum(tmp$n), sep = "")
  ) + theme(
    panel.background = element_rect(fill = "white",
                                    colour = "white"),
    panel.grid.major = element_line(colour = "gray90"),
    panel.grid.minor = element_line(colour = "grey95"),
    plot.subtitle = element_text(hjust = 1),
    axis.text.x = element_text(angle = 90),
    strip.background = element_blank(),
    strip.text = element_blank()
  ) +
  scale_x_discrete(limits = 1:9)
p + facet_wrap(~facets_2 * ~facets)