2

使用以下代码：

library(ggvis)
library(dplyr)
mydf2 <- iris %>%
  group_by(Species) %>%
  summarize(Sepal.Length = mean(Sepal.Length),
            Sepal.Width = mean(Sepal.Width)) 

mydf2 %>% as.data.frame()  %>% 
  ggvis(x = ~ Species, y = ~ Sepal.Length ) %>%
  layer_bars(fillOpacity := 0.1 ) %>%
  add_axis("y", "ywidth", orient = "right", grid = FALSE) %>%
  layer_lines(prop("y", ~ Sepal.Width, scale = "ywidth")) %>%
  add_axis('x', title='the species', properties = axis_props(labels=list(fill='blank'))) %>%
  add_axis('x', 'myx2', orient='bottom', title='') %>%
  layer_lines(prop("x", ~ Species, scale = "myx2"), stroke := 'blank')

输出：

在此处输入图像描述

我的问题是：

  • 有谁知道在这个双 y 轴图上对齐条形图和折线图的方法？我希望两个图表的刻度线在 x 轴上对齐。

编辑

我决定编辑这个问题并提供一个更好的例子来更好地显示问题。

4

1 回答 1

1

经过大约 4 个月的研究和一些研究，我找到了解决这个问题的方法，尽管它有点像 hack：

mydf2 %>% as.data.frame() %>% mutate(Species2= as.numeric(Species)) %>% 
  ggvis(x = ~ Species2, y = ~ Sepal.Length ) %>%
  layer_bars(fillOpacity := 0.1, width = 0.9 ) %>%
  add_axis("y", "ywidth", orient = "right", grid = FALSE) %>%
  layer_lines(prop("y", ~ Sepal.Width, scale = "ywidth")) %>%
  add_axis('x', title='the species', properties = axis_props(labels=list(fill='blank'))) %>%
  add_axis('x', 'myx2', orient='bottom', title='', grid=F) %>%
  layer_lines(prop("x", ~ Species, scale = "myx2"), stroke := 'blank')

输出

在此处输入图像描述

上述答案背后的原因是，为了使折线图和条形图对齐，x 轴需要是数字的。因此，我制作了一个新的分类 x 轴，用于绘制一条不可见的线（检查最后两行代码）。结果不是最佳的，但它有效。

你也可以检查这个答案。

PS问题的示例代码来自github上的这篇文章。上面已经（幸运地）作为一个问题在那里提出。如果它得到修复（或者有办法解决这个问题）我会更新答案。

于 2015-02-13T16:07:52.887 回答