保留 ggplot 中 facet_grid 后的 Scale_x_discrete 刻度标签

huangapple
go评论112阅读模式
英文:

Keeping the Scale_x_discrete tick labels in ggplot after facet_grid

问题

我试图在facet_grid之后添加一个新的x轴刻度标签，但似乎不像我希望的那样工作。希望这里有人经历过类似情况并知道解决方法。

为了使代码可复制，我正在使用mpg数据集，希望每个人都能理解问题。

使用下面的代码，我正在将刻度轴标签更改为每个类别的汽车总数：

  1. library(tidyverse)
  2. library(ggpubr)
  4. p3 <- mpg %>%
  5.   filter(class == c("compact", "subcompact")) %>%
  6.   filter(displ == c(2, 2.5)) %>%
  7.   ggplot(aes(x = class, y = hwy, col = class)) +
  8.   geom_violin() +
  9.   geom_point() +
  10.   #facet_grid(cols = vars(displ))+
  11.   stat_compare_means(method = "t.test", comparisons = list(c("compact", "subcompact")), label = after_stat("p.signf")) +  # Add statistical comparisons
  12.   theme_bw() +
  13.   scale_x_discrete(labels = function(x) {
  14.     num_cars <- mpg %>%
  15.       filter(class == c("compact", "subcompact")) %>%
  16.       filter(displ == c(2, 2.5)) %>%
  17.       filter(class %in% x) %>%
  18.       group_by(class) %>%
  19.       summarise(total_cars = n()) %>%
  20.       mutate(label = total_cars)
  21.     num_cars$label
  22.   })
  23. p3

这将创建以下图表：

保留 ggplot 中 facet_grid 后的 Scale_x_discrete 刻度标签

当我将图表分开以便按displ分组时，x轴不再起作用，尽管统计数据仍然有效。

  1. p3 <- mpg %>%
  2.   filter(class == c("compact", "subcompact")) %>%
  3.   filter(displ == c(2, 2.5)) %>%
  4.   ggplot(aes(x = class, y = hwy, col = class)) +
  5.   geom_violin() +
  6.   geom_point() +
  7.   facet_grid(cols = vars(displ)) +
  8.   stat_compare_means(method = "t.test", comparisons = list(c("compact", "subcompact")), label = after_stat("p.signf")) +  # Add statistical comparisons
  9.   theme_bw() +
  10.   scale_x_discrete(labels = function(x) {
  11.     num_cars <- mpg %>%
  12.       filter(class == c("compact", "subcompact")) %>%
  13.       filter(displ == c(2, 2.5)) %>%
  14.       filter(class %in% x) %>%
  15.       group_by(class) %>%
  16.       summarise(total_cars = n()) %>%
  17.       mutate(label = total_cars)
  18.     num_cars$label
  19.   })
  20. p3

结果如下：

保留 ggplot 中 facet_grid 后的 Scale_x_discrete 刻度标签

但我希望刻度标签为2、3、2、2。

希望有人能对此有一个简单的答案（我确信这很简单）。

干杯！

英文:

I am trying to add a new x tick label after facet_grid and it does not seem to work as I wished. Hopefully someone here has gone through the same and knows the trick.

To make the code reproducible I am using the mpg dataset and hopefully everyone can understand the question.

With the code below I am changing the tick axis label to the total number of cars per category:

  1. library(tidyverse)
  2. library(ggpubr)
  4. p3 &lt;- mpg %&gt;%
  5.   filter(class == c(&quot;compact&quot;, &quot;subcompact&quot;)) %&gt;%
  6.   filter(displ == c(2,2.5)) %&gt;%
  7.   ggplot(aes(x=class, y=hwy, col=class))+
  8.   geom_violin()+
  9.   geom_point()+
  10.   #facet_grid(cols = vars(displ))+
  11.   stat_compare_means(method = &quot;t.test&quot;, comparisons = list(c(&quot;compact&quot;, &quot;subcompact&quot;)), label = after_stat(&quot;p.signf&quot;)) +  # Add statistical comparisons
  12.   theme_bw()+
  13.   scale_x_discrete(labels = function(x) {
  14.     num_cars &lt;- mpg %&gt;%
  15.       filter(class == c(&quot;compact&quot;, &quot;subcompact&quot;)) %&gt;%
  16.       filter(displ == c(2,2.5)) %&gt;%
  17.       filter(class %in% x) %&gt;%
  18.       group_by(class) %&gt;%
  19.       summarise(total_cars = n())%&gt;%
  20.       mutate(label = total_cars)
  21.     num_cars$label
  22.   })
  23. p3

This creates the following graph:

保留 ggplot 中 facet_grid 后的 Scale_x_discrete 刻度标签

When I facet the graph to separate it by displ, the x axis do not work anymore although the stats are working.

  1. p3 &lt;- mpg %&gt;%
  2.   filter(class == c(&quot;compact&quot;, &quot;subcompact&quot;)) %&gt;%
  3.   filter(displ == c(2,2.5)) %&gt;%
  4.   ggplot(aes(x=class, y=hwy, col=class))+
  5.   geom_violin()+
  6.   geom_point()+
  7.   facet_grid(cols = vars(displ))+
  8.   stat_compare_means(method = &quot;t.test&quot;, comparisons = list(c(&quot;compact&quot;, &quot;subcompact&quot;)), label = after_stat(&quot;p.signf&quot;)) +  # Add statistical comparisons
  9.   theme_bw()+
  10.   scale_x_discrete(labels = function(x) {
  11.     num_cars &lt;- mpg %&gt;%
  12.       filter(class == c(&quot;compact&quot;, &quot;subcompact&quot;)) %&gt;%
  13.       filter(displ == c(2,2.5)) %&gt;%
  14.       filter(class %in% x) %&gt;%
  15.       group_by(class) %&gt;%
  16.       summarise(total_cars = n())%&gt;%
  17.       mutate(label = total_cars)
  18.     num_cars$label
  19.   })
  20. p3

Makes this:

保留 ggplot 中 facet_grid 后的 Scale_x_discrete 刻度标签

When I wanted the tick labels to be 2, 3, 2, 2.

Hopefully someone has an easy answer for this (I am sure it is easy).

Cheers

答案1

得分: 3

  1. 一种选项是为每个面板单独设置标签，同时在使用 `stat_compare_means` 时起作用的方法是使用 `ggh4x::facetted_pos_scales`，它允许在每个面板上单独设置比例尺（包括 `labels`）：
  3. ``` r
  4. library(ggplot2)
  5. library(dplyr, warn=FALSE)
  6. library(ggpubr)
  7. library(ggh4x)
  9. x_labels <- mpg %>%
  10.   filter(class == c("compact", "subcompact")) %>%
  11.   filter(displ == c(2, 2.5)) %>%
  12.   count(class, displ)
  14. x_labels <- split(x_labels, x_labels$displ) %>%
  15.   lapply(\(x) x |> select(class, n) |> tibble::deframe())
  17. mpg %>%
  18.   filter(class == c("compact", "subcompact")) %>%
  19.   filter(displ == c(2, 2.5)) %>%
  20.   ggplot(aes(x = class, y = hwy, col = class)) +
  21.   geom_violin() +
  22.   geom_point() +
  23.   facet_grid(cols = vars(displ), scales = "free_x") +
  24.   stat_compare_means(method = "t.test", comparisons = list(c("compact", "subcompact")), label = after_stat("p.signf")) + # 添加统计比较
  25.   theme_bw() +
  26.   ggh4x::facetted_pos_scales(
  27.     x = list(
  28.       displ == 2 ~ scale_x_discrete(labels = x_labels$`2`),
  29.       displ == 2.5 ~ scale_x_discrete(labels = x_labels$`2.5`)
  30.     )
  31.   )

保留 ggplot 中 facet_grid 后的 Scale_x_discrete 刻度标签

  2. <details>
  3. <summary>英文:</summary>
  5. One option to set the labels individually for each panel which at the same time works when using `stat_compare_means` would be to use `ggh4x::facetted_pos_scales` which allows to set the scales (including the `labels`) individually per panel:
  7. ``` r
  8. library(ggplot2)
  9. library(dplyr, warn=FALSE)
  10. library(ggpubr)
  11. library(ggh4x)
  13. x_labels &lt;- mpg %&gt;%
  14.   filter(class == c(&quot;compact&quot;, &quot;subcompact&quot;)) %&gt;%
  15.   filter(displ == c(2, 2.5)) |&gt; 
  16.   count(class, displ)
  18. x_labels &lt;- split(x_labels, x_labels$displ) |&gt; 
  19.   lapply(\(x) x |&gt; select(class, n) |&gt; tibble::deframe())
  21. mpg %&gt;%
  22.   filter(class == c(&quot;compact&quot;, &quot;subcompact&quot;)) %&gt;%
  23.   filter(displ == c(2, 2.5)) %&gt;%
  24.   ggplot(aes(x = class, y = hwy, col = class)) +
  25.   geom_violin() +
  26.   geom_point() +
  27.   facet_grid(cols = vars(displ), scales = &quot;free_x&quot;) +
  28.   stat_compare_means(method = &quot;t.test&quot;, comparisons = list(c(&quot;compact&quot;, &quot;subcompact&quot;)), label = after_stat(&quot;p.signf&quot;)) + # Add statistical comparisons
  29.   theme_bw() +
  30.   ggh4x::facetted_pos_scales(
  31.     x = list(
  32.       displ == 2 ~ scale_x_discrete(labels = x_labels$`2`),
  33.       displ == 2.5 ~ scale_x_discrete(labels = x_labels$`2.5`)
  34.     )
  35.   )

保留 ggplot 中 facet_grid 后的 Scale_x_discrete 刻度标签<!-- -->

huangapple
  • 本文由 发表于 2023年6月12日 23:59:07
  • 转载请务必保留本文链接：https://go.coder-hub.com/76458392.html
  • facet-grid
  • ggplot2
  • r
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定