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

我想在ggvis中添加第二个x轴，使用与第一个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")))

tt%
添加_轴（“x”）%%>%
添加_轴（“x”，title=“Axis2”，
值=xsel，
orient=“top”，
属性=axis_道具（网格=list（stroke=“blue”））

此绘图已具有x轴，且网格线已正确定位。但是，我想更改顶部轴的标签，而不是底部轴的标签。顶部轴的正确标签存储在XSellabel中（从tt$z中提取）。因此，与标签1、6、11、16、21、26不同，我希望得到标签“一”、“三”、“二”、“一”、“三”、“二”

---

感谢您提出如何实现这一目标的任何想法

这是可能的，但多个记号的标签不同。这是可能的，但多个记号的标签不同。