R ggvis：具有不同标签的第二个x轴

Question

我想使用与第一个x轴不同的标签在ggvis中添加第二个x轴。

以下是一个例子：

tt <- data.frame(x = c(1:30), y = c(1:30), z = rep(c("one", "two", "three"), 10))
xsel <- tt$x[tt$x %% 5 == 1]
xsellabels <- tt$z[tt$x %in% xsel]

tt %>%
  ggvis(~x, ~y) %>%
  layer_lines() %>%
  add_axis("x") %>%
 add_axis("x", title = "Axis2",
       values = xsel,
       orient = "top",
       properties = axis_props(grid = list(stroke = "blue")))

此图已经有两个x轴，网格线正确定位。但是，我想更改顶部轴的标签，而不是底部轴的标签。顶轴的正确标签存储在xsellabels中（从tt $ z中提取）。因此，我希望得到标签“一”，“三”，“两”，“一”，“三”，“两”，而不是标签1,6,11,16,21,26。 / p>

感谢任何想法如何实现这一目标！