悬停在ggvis中的线条上方

Question

我向ggvis谷歌小组提出了这个问题，但我想我会转发这里以防任何没有看到该问题的人有任何想法。

我试图在某种程度上复制下面的图表，但我意识到当前版本的ggvis可能无法完全复制：

http://next.mlssoccer.com/standings/weekly

以下是一些示例数据，它们构成了这样一个图表的子集：

   team1 matchno rank
1     OS       1    1
2     AX       1    3
3     OS       2    1
4     DU       1    2
5     OS       3    1
6     MP       1    2
7     AX       2    3
8     DU       2    4
9     AX       3    2
10    MP       2    2
11    DU       3    3
12    MP       3    1
13    AX       4    3
14    OS       4    1
15    DU       4    4
16    OS       5    1
17    MP       4    2
18    OS       6    1
19    DU       5    4
20    AX       5    3
21    MP       5    2
22    AX       6    3
23    MP       6    2
24    DU       6    4

以下是我与互动的距离：

  library(ggvis)
mydf  %>%
      ggvis(~matchno,~rank, stroke = ~team1) %>%
      layer_points(size := 50, size.hover := 200, fill = ~team1) %>%
      layer_lines(stroke.hover = ~team1, strokeWidth.hover := 4, strokeWidth := 2) %>%
      add_axis("x", title="Match number",  subdivide = 0, values = seq(1, 6, by = 1), format="####") %>%
      add_axis("y", title="Rank", subdivide = 0, values = seq(1, 4, by = 1), format='####') %>%
      scale_numeric("y", reverse=TRUE)

所以我的问题是：

1）如果另一条线悬停在上面，是否可以使其他线更不透明？

2）如果一个人在一条线上盘旋，然后将鼠标移到数据点上，则线条粗细/颜色的变化会回退到原始线条的颜色和厚度。当该线上的一个点悬停时，是否可以保持线条较粗？

3）当线路悬停时，是否可以增加点数？

我猜这些问题的答案可能与linked_brush有关，但在同一情节中，而不是在两个情节之间？

以上是上面的数据，其中橙色线悬停在上面且厚度增加。当您将鼠标悬停在橙色数据点上时，此厚度会消失。此外，当其他线悬停时，其他线不会褪色。

---

#data:

       mydf <-data.frame(
team1 =  c("OS", "AX", "OS", "DU", "OS", "MP", "AX", "DU", "AX", "MP", "DU", "MP", "AX", "OS", "DU", "OS", "MP", "OS", "DU", "AX", "MP", "AX", "MP", "DU"),
matchno = c(1, 1, 2, 1, 3, 1, 2, 2, 3, 2, 3, 3, 4, 4, 4, 5, 4, 6, 5, 5, 5, 6, 6, 6),
rank =  c(1, 3, 1, 2, 1, 2, 3, 4, 2, 2, 3, 1, 3, 1, 4, 1, 2, 1, 4, 3, 2, 3, 2, 4) )