修剪离散变量的 ggplot 修改的雨云图中的空白空间。

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

Trim white space in ggplot modified raincloud plot with discrete variables

问题

I'm having difficulty trimming white space from the discrete axis of a ggplot. See reprex below - how can I remove the white space between the data for "large" and the x-axis? I've tried various versions of scale_x_discrete but it doesn't seem to have any effect.

  1. # Prepare data
  2. sample_data <- iris %>%
  3.     filter(Species == "setosa" | Species == "virginica") %>%
  4.     mutate(category = case_when(Sepal.Length > 5 ~ "large",
  5.                                 Sepal.Length <= 5 ~ "small")) %>%
  6.     select(Sepal.Width,
  7.            Species,
  8.            category)
  10. # Figure
  11. ggplot(data = sample_data) +
  12.     aes(x = category,
  13.         y = Sepal.Width,
  14.         fill = category) +
  15.     ggdist::stat_halfeye(
  16.         adjust = 0.5,
  17.         justification = -.1,
  18.         .width = 0,
  19.         point_colour = NA
  20.     ) +
  21.     geom_boxplot(width = .05,
  22.                  outlier.colour = NA,
  23.                  alpha = 0.5) +
  24.     ggdist::stat_dots(
  25.         side = "left",
  26.         justification = 1.1,
  27.         binwidth = 0.015) +
  28.     facet_grid(~ Species) +
  29.     labs(title = "Figure 1: Change in sepal width with sepal length",
  30.          x = "Sepal length") +
  31.     coord_flip() +
  32.     tidyquant::scale_fill_tq() +
  33.     tidyquant::theme_tq()

修剪离散变量的 ggplot 修改的雨云图中的空白空间。

英文:

I'm having difficulty trimming white space from the discrete axis of a ggplot. See reprex below - how can I remove the white space between the data for "large" and the x-axis? I've tried various versions of scale_x_discrete but it doesn't seem to have any effect.

  1. # Prepare data
  2. sample_data &lt;- iris %&gt;%
  3.     filter(Species == &quot;setosa&quot; | Species == &quot;virginica&quot;) %&gt;%
  4.     mutate(category = case_when(Sepal.Length &gt; 5 ~ &quot;large&quot;,
  5.                                 Sepal.Length &lt;= 5 ~ &quot;small&quot;)) %&gt;%
  6.     select(Sepal.Width,
  7.            Species,
  8.            category)
  9.     
  10. # Figure
  11. ggplot(data = sample_data) +
  12.     aes(x = category,
  13.         y = Sepal.Width,
  14.         fill = category) +
  15.     ggdist::stat_halfeye(
  16.         adjust = 0.5,
  17.         justification = -.1,
  18.         .width = 0,
  19.         point_colour = NA
  20.     ) +
  21.     geom_boxplot(width = .05,
  22.                  outlier.colour = NA,
  23.                  alpha = 0.5) +
  24.     ggdist::stat_dots(
  25.         side = &quot;left&quot;,
  26.         justification = 1.1,
  27.         binwidth = 0.015) +
  28.     facet_grid(~ Species) +
  29.     labs(title = &quot;Figure 1: Change in sepal width with sepal length&quot;,
  30.          x = &quot;Sepal length&quot;) +
  31.     coord_flip() +
  32.     tidyquant::scale_fill_tq() +
  33.     tidyquant::theme_tq()

修剪离散变量的 ggplot 修改的雨云图中的空白空间。

答案1

得分: 1

一个修整空白的选项是通过coord_flip的xlim参数来设置x轴的限制。但请注意，设置限制的下界需要一些调整，这取决于绘图的大小或高度。

英文:

One option to trim the whitespace would be to set the limits for the x scale via the xlim argument of coord_flip. Note however that setting the lower bound for the limits will require some fiddling and depends on the plot size or height.

  1. library(ggplot2)
  2. library(ggdist)
  3. library(tidyquant)
  5. ggplot(data = sample_data) +
  6.   aes(
  7.     x = category,
  8.     y = Sepal.Width,
  9.     fill = category
  10.   ) +
  11.   ggdist::stat_halfeye(
  12.     adjust = 0.5,
  13.     justification = -.1,
  14.     .width = 0,
  15.     point_colour = NA
  16.   ) +
  17.   geom_boxplot(
  18.     width = .05,
  19.     outlier.colour = NA,
  20.     alpha = 0.5
  21.   ) +
  22.   ggdist::stat_dots(
  23.     side = &quot;left&quot;,
  24.     justification = 1.1,
  25.     binwidth = 0.015
  26.   ) +
  27.   facet_grid(~Species) +
  28.   labs(
  29.     title = &quot;Figure 1: Change in sepal width with sepal length&quot;,
  30.     x = &quot;Sepal length&quot;
  31.   ) +
  32.   tidyquant::scale_fill_tq() +
  33.   tidyquant::theme_tq() +
  34.   coord_flip(xlim = c(1.25, NA))

修剪离散变量的 ggplot 修改的雨云图中的空白空间。

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

发表评论

匿名网友

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

确定