使用facet_wrap将ggplot中的所有面以0为中心

bogh5gae  于 2023-01-28  发布在  其他
关注(0)|答案(2)|浏览(158)

我有一个很简单的问题。
我正在使用facet_wrap()将3个图堆叠在一起。
我希望所有3个图都以0为中心，这样hline就都在彼此的正上方。理想情况下，同时还允许它们的比例根据需要沿着x-axis自由变化（我已经在scales = "free"上做了）。
有什么想法吗？参见下面的示例代码和数据。

  1. d_example %>% 
  2.   ggplot(aes(x = var, y = coef, 
  3.              ymin = ci_lower, ymax = ci_upper,
  4.              color = race)) +
  5.   geom_point(position = position_dodge(width = 0.7),
  6.              size = 3) +
  7.   geom_errorbar(width = 0, 
  8.                 size = 1.1, 
  9.                 alpha = 0.6, 
  10.                 position = position_dodge(width = 0.7)) +
  11.   facet_wrap(~ outcome, 
  12.              nrow = 3,
  13.              scales = "free") +
  14.   coord_flip() +
  15.   geom_hline(yintercept = 0, 
  16.              linetype = "dashed", 
  17.              color = "black",
  18.              size = .3) +
  19.   theme_minimal()
  1. d_example <- structure(list(var = c("score_A", "score_B", "score_C", "score_A", 
  2. "score_B", "score_C", "score_A", "score_B", "score_C", "friends_A", 
  3. "friends_B", "friends_A", "friends_B", "friends_A", "friends_B", 
  4. "poverty_A", "poverty_B", "poverty_A", "poverty_B", "poverty_A", 
  5. "poverty_B"), coef = c(-0.8, -0.7, 0.12, -0.7, -0.9, -0.05, -0.73, 
  6. -1, 0.02, 0.55, -0.09, 0.51, 0.2, 0.65, 0.05, 1.8, 0.34, 1.103, 
  7. 0.077, 1.02, 0.06), race = c("white", "white", "white", "black", 
  8. "black", "black", "hispanic", "hispanic", "hispanic", "white", 
  9. "white", "black", "black", "hispanic", "hispanic", "white", "white", 
  10. "black", "black", "hispanic", "hispanic"), outcome = c("score", 
  11. "score", "score", "score", "score", "score", "score", "score", 
  12. "score", "friends", "friends", "friends", "friends", "friends", 
  13. "friends", "ses", "ses", "ses", "ses", "ses", "ses"), ci_lower = c(-1, 
  14. -0.9, -0.08, -0.9, -1.1, -0.25, -0.93, -1.2, -0.18, 0.35, -0.29, 
  15. 0.31, 0, 0.45, -0.15, 1.6, 0.14, 0.903, -0.123, 0.82, -0.14), 
  16.     ci_upper = c(-0.6, -0.5, 0.32, -0.5, -0.7, 0.15, -0.53, -0.8, 
  17.     0.22, 0.75, 0.11, 0.71, 0.4, 0.85, 0.25, 2, 0.54, 1.303, 
  18.     0.277, 1.22, 0.26)), class = c("spec_tbl_df", "tbl_df", "tbl", 
  19. "data.frame"), row.names = c(NA, -21L), spec = structure(list(
  20.     cols = list(var = structure(list(), class = c("collector_character", 
  21.     "collector")), coef = structure(list(), class = c("collector_double", 
  22.     "collector")), race = structure(list(), class = c("collector_character", 
  23.     "collector")), outcome = structure(list(), class = c("collector_character", 
  24.     "collector")), ci_lower = structure(list(), class = c("collector_double", 
  25.     "collector")), ci_upper = structure(list(), class = c("collector_double", 
  26.     "collector"))), default = structure(list(), class = c("collector_guess", 
  27.     "collector")), skip = 1L), class = "col_spec"))
r

2条答案

按热度按时间
nx7onnlm

nx7onnlm1#

这里有一个简单而又滑稽的答案，它给每个面一个自由范围，同时保持中心为零：
添加一个带有反向y的不可见层，使每个面都围绕0自然对称。

  1. geom_errorbar(aes(y = -coef, ymin = -ci_lower, ymax = -ci_upper),
  2.               alpha = 0,
  3.               position = position_dodge(width = 0.7)) +

或者，更好的方法是使用@r2evans建议的geom_blank，它是专门为您希望绘图为某些数据点腾出空间，而不浪费实际绘制它们的周期或字节的情况而设计的。https://ggplot2.tidyverse.org/reference/geom_blank.html

  1. geom_blank(aes(y = -coef, ymin = -ci_lower, ymax = -ci_upper)) +

赞(0）分享  回复(0）举报  2023-01-28
lp0sw83n

lp0sw83n2#

我在下面添加了scale_y_continuous(limits=);这允许容易地对准Hline：

  1. d_example %>%
  2.   ggplot(aes(x = var, y = coef,
  3.              ymin = ci_lower, ymax = ci_upper,
  4.              color = race)) +
  5.   geom_point(position = position_dodge(width = 0.7),
  6.              size = 3) +
  7.   geom_errorbar(width = 0,
  8.                 size = 1.1,
  9.                 alpha = 0.6,
  10.                 position = position_dodge(width = 0.7)) +
  11.   facet_wrap(~ outcome,
  12.              nrow = 3,
  13.              scales = "free") +
  14.   coord_flip() +
  15.   geom_hline(yintercept = 0,
  16.              linetype = "dashed",
  17.              color = "black",
  18.              linewidth = .3) +
  19.   scale_y_continuous(limits = range(unlist(d_example[,c("coef","ci_lower","ci_upper")]))) +
  20.   theme_minimal()

如果要真正居中，请使用以下命令：

  1. scale_y_continuous(limits = c(-1,1) * max(abs(range(unlist(d_example[,c("coef","ci_lower","ci_upper")])))))
展开查看全部
赞(0）分享  回复(0）举报  2023-01-28
我来回答

相关问题

    查看更多

    热门标签

    更多
    JavaquerypythonNode开发语言requestUtil数据库Table后端算法LoggerMessageElementParser

    最新问答

    更多
    • 蜀ICP备13028337号-1 大数据知识库 https://www.saoniuhuo.com © All rights reserved
    • 本站内容来源互联网,如果侵犯您的权益请联系我们删除, 联系方式：448109455@qq.com