r - 如何在 ggplot2 中同时使用 coord_carteisan 和 coord_flip

Question

我有一些来自 ggplot 的奇怪行为。这是一个MWE:

the_data <- data.frame(
   myx <- 1:10,
  lower <- rnorm(10,-5,1),
  mean <- rnorm(10,0,.5),
  upper <- rnorm(10,5,1))
the_data2 <- data.frame(
  myx <- 1:10,
  lower <- rnorm(10,-5,1),
  mean <- rnorm(10,0,.5),
  upper <- rnorm(10,5,1))

现在，我想构建一个图，其中最终产品将具有一个均值点，以及一条从下到上绘制的线。但我希望这些线是水平的。我还想在图表上“放大”，以便只显示从 -1 到 1 的值。我需要使用 coord_cartesian因为如果我使用 ylim它会丢弃图表之外的数据点，从而弄乱线条。但是当我运行时:

ggplot() +
  geom_pointrange(aes(x=myx, y=mean, ymin=lower, ymax=upper), data=the_data) +
  geom_pointrange(aes(x=myx, y=mean, ymin=lower, ymax=upper), data=the_data2) +
  coord_cartesian(ylim = c(-1, 1)) +
  coord_flip() 

它不应用“缩放”和切换两个参数:

ggplot() +
  geom_pointrange(aes(x=myx, y=mean, ymin=lower, ymax=upper), data=the_data) +
  geom_pointrange(aes(x=myx, y=mean, ymin=lower, ymax=upper), data=the_data2) +
  coord_flip() +
  coord_cartesian(ylim = c(-1, 1)) 

应用缩放但不应用翻转。这里发生了什么？

Answer 1

coord_flip是 coord_cartesian 的包装器.你给 coord_cartesian 打了两次电话第二个覆盖第一个。你可以这样做:

ggplot() +
  geom_pointrange(aes(x=myx, y=mean, ymin=lower, ymax=upper), data=the_data) +
  geom_pointrange(aes(x=myx, y=mean, ymin=lower, ymax=upper), data=the_data2) +
  coord_flip(ylim = c(-1, 1))