分开盒图和geom_path的位置。

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

Separate positions of boxplots and geom_path

问题

以下是代码的翻译部分：

  1. 对于这个示例数据：
  3.     set.seed(123)
  4.     df <- data.frame(
  5.       ID = 1:50,
  6.       Q = rnorm(50),
  7.       A = rnorm(50,1)
  8.     )
  9.     
  10. 我想要连接`ID`上的成对点，可以借助以下答案实现：https://stackoverflow.com/questions/75927315/connect-jittered-points-by-group:
  12.     pj <- position_jitter(seed = 1, width = .1, height = 0)
  13.     
  14.     df %>%
  15.       pivot_longer(-ID) %>%
  16.       ggplot(aes(x = factor(name), y = value, fill = factor(name))) +
  17.     
  18.       # 箱线图:
  19.       geom_boxplot(
  20.         width = 0.12,
  21.         outlier.color = NA,
  22.         alpha = 0.5
  23.       ) +
  24.       
  25.       # 数据点:
  26.       geom_point(
  27.         alpha = 0.5, col = "blue",
  28.         position = pj
  29.       ) +
  30.       
  31.       # 连接线:
  32.       geom_path(aes(group = ID),
  33.                 alpha = 0.5,
  34.                 position = pj
  35.       )

希望这对你有帮助。

英文:

For this illustrative data:

  1. set.seed(123)
  2. df &lt;- data.frame(
  3.   ID = 1:50,
  4.   Q = rnorm(50),
  5.   A = rnorm(50,1)
  6. )

I want to connect the paired points across ID, which is possible with the help of this answer https://stackoverflow.com/questions/75927315/connect-jittered-points-by-group:

  1. pj &lt;- position_jitter(seed = 1, width = .1, height = 0)
  3. df %&gt;%
  4.   pivot_longer(-ID) %&gt;%
  5.   ggplot(aes(x = factor(name), y = value, fill = factor(name))) +
  7.   # boxplot:
  8.   geom_boxplot(
  9.     width = 0.12,
  10.     outlier.color = NA,
  11.     alpha = 0.5
  12.   ) +
  13.   
  14.   # data points:
  15.   geom_point(
  16.     alpha = 0.5, col = &quot;blue&quot;,
  17.     position = pj
  18.   ) +
  19.   
  20.   # connecting lines:
  21.   geom_path(aes(group = ID),
  22.             alpha = 0.5,
  23.             position = pj
  24.   )

分开盒图和geom_path的位置。

What bothers me is that the points overplot the boxplots. I would like them to be separated from the boxplots. Specifically they should be moved inside the space between the boxes, like in this plot:

分开盒图和geom_path的位置。

How can this be achieved? Many thanks in advance.

答案1

得分: 2

以下是代码的翻译部分：

一种选择是移动或微调点和线的位置，需要将 name 转换为数字，并考虑箱线图和抖动宽度：

  1. library(tidyr)
  2. library(dplyr, warn = FALSE)
  3. library(ggplot2)
  5. box_width <- .12
  6. jitter_width <- .1
  8. pj <- position_jitter(seed = 1, width = jitter_width, height = 0)
  10. df %>%
  11.   pivot_longer(-ID) %>%
  12.   mutate(
  13.     name_num = as.numeric(factor(name)),
  14.     name_num = name_num + (box_width + jitter_width / 2) * if_else(name == "A", 1, -1)
  15.   ) %>%
  16.   ggplot(aes(x = factor(name), y = value, fill = factor(name))) +
  17.   geom_boxplot(
  18.     width = box_width,
  19.     outlier.color = NA,
  20.     alpha = 0.5
  21.   ) +
  22.   geom_point(
  23.     aes(x = name_num),
  24.     alpha = 0.5, col = "blue",
  25.     position = pj
  26.   ) +
  27.   geom_path(aes(x = name_num, group = ID),
  28.     alpha = 0.5,
  29.     position = pj
  30.   )

编辑 要交换 name 类别的位置，请在转换为 factor 时设置所需顺序的级别，并在 ifelse 中考虑这一点。

  1. library(tidyr)
  2. library(dplyr, warn = FALSE)
  3. library(ggplot2)
  5. box_width <- .12
  6. jitter_width <- .1
  8. pj <- position_jitter(seed = 1, width = jitter_width, height = 0)
  10. df %>%
  11.   pivot_longer(-ID) %>%
  12.   mutate(
  13.     name = factor(name, levels = c("Q", "A")),
  14.     name_num = as.numeric(factor(name)),
  15.     name_num = name_num + (box_width + jitter_width / 2) * if_else(name == "Q", 1, -1)
  16.   ) %>%
  17.   ggplot(aes(x = name, y = value, fill = name)) +
  18.   geom_boxplot(
  19.     width = box_width,
  20.     outlier.color = NA,
  21.     alpha = 0.5
  22.   ) +
  23.   geom_point(
  24.     aes(x = name_num),
  25.     alpha = 0.5, col = "blue",
  26.     position = pj
  27.   ) +
  28.   geom_path(aes(x = name_num, group = ID),
  29.     alpha = 0.5,
  30.     position = pj
  31.   )

希望这有所帮助。

英文:

One option would be to shift or nudge the positions of the points and the lines which requires to convert name to a numeric and to take account of the boxplot and the jitter width:

  1. library(tidyr)
  2. library(dplyr, warn = FALSE)
  3. library(ggplot2)
  5. box_width &lt;- .12
  6. jitter_width &lt;- .1
  8. pj &lt;- position_jitter(seed = 1, width = jitter_width, height = 0)
  10. df %&gt;%
  11.   pivot_longer(-ID) %&gt;%
  12.   mutate(
  13.     name_num = as.numeric(factor(name)),
  14.     name_num = name_num + (box_width + jitter_width / 2) * if_else(name == &quot;A&quot;, 1, -1)
  15.   ) |&gt;
  16.   ggplot(aes(x = factor(name), y = value, fill = factor(name))) +
  17.   geom_boxplot(
  18.     width = box_width,
  19.     outlier.color = NA,
  20.     alpha = 0.5
  21.   ) +
  22.   geom_point(
  23.     aes(x = name_num),
  24.     alpha = 0.5, col = &quot;blue&quot;,
  25.     position = pj
  26.   ) +
  27.   geom_path(aes(x = name_num, group = ID),
  28.     alpha = 0.5,
  29.     position = pj
  30.   )

分开盒图和geom_path的位置。

EDIT To switch the positions of the name categories set the levels in your desired order when converting to a factor. And of course do we have to take account of that in the ifelse.

  1. library(tidyr)
  2. library(dplyr, warn = FALSE)
  3. library(ggplot2)
  5. box_width &lt;- .12
  6. jitter_width &lt;- .1
  8. pj &lt;- position_jitter(seed = 1, width = jitter_width, height = 0)
  10. df %&gt;%
  11.   pivot_longer(-ID) %&gt;%
  12.   mutate(
  13.     name = factor(name, levels = c(&quot;Q&quot;, &quot;A&quot;)),
  14.     name_num = as.numeric(factor(name)),
  15.     name_num = name_num + (box_width + jitter_width / 2) * if_else(name == &quot;Q&quot;, 1, -1)
  16.   ) |&gt;
  17.   ggplot(aes(x = name, y = value, fill = name)) +
  18.   geom_boxplot(
  19.     width = box_width,
  20.     outlier.color = NA,
  21.     alpha = 0.5
  22.   ) +
  23.   geom_point(
  24.     aes(x = name_num),
  25.     alpha = 0.5, col = &quot;blue&quot;,
  26.     position = pj
  27.   ) +
  28.   geom_path(aes(x = name_num, group = ID),
  29.     alpha = 0.5,
  30.     position = pj
  31.   )

分开盒图和geom_path的位置。

huangapple
  • 本文由 发表于 2023年4月4日 17:29:54
  • 转载请务必保留本文链接：https://go.coder-hub.com/75927744.html
  • ggplot2
  • r
匿名

发表评论

匿名网友

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

确定