Fatal编程技术网
  • r/
  • R:Ggvis-为条形图添加工具提示

R:Ggvis-为条形图添加工具提示

r

R:Ggvis-为条形图添加工具提示,r,ggvis,R,Ggvis,我在使用ggvis的添加工具提示时遇到问题 我只想把源会话的工具提示放到我的绘图中 我在理解需要为add_tooltip（）创建的html函数时遇到困难 我知道我的数据中需要一个“ID”（你可以在底部看到我的数据）。请有人解释一下这部分。我不明白ggvis是如何使用ID进行绘图的 Visitas_Por_Fuente$id <- 1:nrow(Visitas_Por_Fuente) #Create the ID column. Visitas_Por_Fuente %>%

我在使用ggvis的添加工具提示时遇到问题

我只想把源会话的工具提示放到我的绘图中

我在理解需要为add_tooltip（）创建的html函数时遇到困难

我知道我的数据中需要一个“ID”（你可以在底部看到我的数据）。请有人解释一下这部分。我不明白ggvis是如何使用ID进行绘图的

Visitas_Por_Fuente$id <- 1:nrow(Visitas_Por_Fuente) #Create the ID column.




Visitas_Por_Fuente %>%
  ggvis(~Fuentes, ~sessions) %>%
  layer_bars(width = 0.8, fill = ~Fuentes) %>%
  add_tooltip(mysessions ,"hover")


mysessions <- function(x) {
  if(is.null(x)) return(NULL)
  #notice below the id column is how ggvis can understand which session to show
  row <- Visitas_Por_Fuente[Visitas_Por_Fuente$id == x$id, ]
  #prettyNum shows the number with thousand-comma separator
  paste0("Sessions:", "&nbsp;",prettyNum(row$sessions, big.mark=",",scientific=F))
}
通常，您需要为图层指定一个“键”，在悬停或单击图层时返回该键，然后将其用作工具提示功能的输入

我在这里看到的一个问题是，您正在生成一个条形图（即，值按“Fuente”类型汇总），但您希望为数据中的每个观察值（行）使用工具提示。因此，问题在于图表中的每个数据点（观测值）都不是分开显示的，因此当鼠标悬停在条形图上时，很难知道要返回哪个特定数据点（观测值）作为工具提示

为了通过观察特定的工具提示显示它如何适用于
层_点
，我对您的代码进行了如下修改：

Visitas_Por_Fuente$id <- 1:nrow(Visitas_Por_Fuente) #Create the ID column.

mysessions <- function(x) {
  if(is.null(x)) return(NULL)
  # get the current session info, based on "id" that is hovered over:
  current_session <- Visitas_Por_Fuente[Visitas_Por_Fuente$id == x$id, "sessions"]
  # format the value with prettyNum if you like:
  paste0("Sessions:", "&nbsp;",prettyNum(current_session, big.mark=",",scientific=F))
}

Visitas_Por_Fuente %>%
  ggvis(~Fuentes, ~sessions) %>%
  layer_points(fill = ~Fuentes, key := ~id) %>%               # define a key
  add_tooltip(mysessions ,"hover")

Visitas_Por_Fuente$id%#定义密钥
添加工具提示（mysessions，“悬停”）
下面是另一个版本，其中提供了一个条形图的工具提示，该条形图显示了在将鼠标悬停在条形图上时每种“Fuente”类型的会话总数（这是可能的，因为它不需要知道使用了哪个数据点，而是使用“Fuente”作为键）：

mysessions%
层钢筋（宽度=0.8，填充=~Fuentes，键=~Fuentes）%>%
添加工具提示（mysessions，“悬停”）
它工作得很好。我使用了“总会话”部分。我将为一个新问题创建一个新问题，当在Shiny中加入此代码时。再次感谢。 
structure(list(Fuentes = structure(c(3L, 5L, 6L, 6L, 4L, 5L, 
5L, 5L, 5L, 7L, 7L, 1L, 6L, 7L, 5L, 5L, 4L, 5L, 5L, 5L, 5L, 5L, 
5L, 6L, 7L, 3L, 5L, 6L, 6L, 5L, 6L, 5L, 5L, 5L, 5L, 7L, 7L, 6L, 
1L, 6L, 5L, 5L, 4L, 5L, 5L, 4L, 6L, 5L, 5L, 5L, 5L, 7L, 3L, 5L, 
6L, 6L, 4L, 6L, 5L, 5L, 4L, 4L, 5L, 7L, 7L, 6L, 7L, 5L, 4L, 5L, 
4L, 2L, 2L, 6L, 5L, 5L, 5L, 6L, 7L, 3L, 6L, 4L, 6L, 4L, 5L, 5L, 
5L, 5L, 4L, 5L, 7L, 7L, 1L, 6L, 7L, 5L, 5L, 4L, 5L, 5L, 4L, 2L, 
2L, 5L, 5L, 5L, 4L, 5L, 4L, 5L, 6L, 7L, 3L, 6L, 6L, 5L, 5L, 5L, 
5L, 7L, 7L, 1L, 6L, 7L, 5L, 5L, 7L, 5L, 4L, 2L, 2L, 5L, 5L, 5L, 
5L, 5L, 5L, 6L, 7L, 3L, 6L, 4L, 6L, 4L, 4L, 5L, 5L, 7L, 7L, 1L, 
6L, 5L, 5L, 7L, 5L, 5L, 4L, 5L, 5L, 4L, 2L, 5L, 5L, 5L, 4L, 5L, 
6L, 7L, 3L, 5L, 6L, 6L, 5L, 6L, 5L, 5L, 5L, 5L, 5L, 5L, 7L, 7L, 
1L, 6L, 5L, 5L, 5L, 7L, 5L, 5L, 7L, 4L, 5L, 5L, 4L, 2L, 2L, 5L, 
5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 7L, 3L, 5L, 6L, 4L, 4L, 
4L, 6L, 4L, 4L, 4L, 5L, 5L, 4L, 5L, 5L, 5L, 4L, 5L, 7L, 7L, 1L, 
6L, 7L, 5L, 5L, 4L, 5L, 5L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 
7L, 3L, 6L, 6L, 4L, 4L, 6L, 4L, 4L, 5L, 4L, 5L, 5L, 7L, 7L, 5L, 
6L, 5L, 5L, 7L, 7L, 5L, 5L, 5L, 5L, 6L, 4L, 5L, 2L, 2L, 5L, 5L, 
5L, 5L, 5L, 5L, 6L, 7L, 3L, 5L, 5L, 6L, 4L, 6L, 4L, 4L, 4L, 5L, 
4L, 5L, 4L, 5L, 7L, 7L, 6L, 6L, 7L, 5L, 5L, 5L, 5L, 4L, 2L, 5L, 
5L, 5L, 4L, 4L, 5L, 5L, 6L, 7L, 3L, 5L, 5L, 6L, 6L, 6L, 5L, 5L, 
5L, 5L, 4L, 5L, 5L, 7L, 7L, 6L, 5L, 5L, 7L, 5L, 4L, 5L, 4L, 2L, 
5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 7L, 3L, 5L, 6L, 6L, 6L, 
4L, 4L, 5L, 5L, 4L, 5L, 7L, 7L, 1L, 6L, 5L, 7L, 5L, 5L, 4L, 5L, 
5L, 4L, 6L, 5L, 5L, 5L, 5L, 6L, 7L, 3L, 5L, 6L, 6L, 6L, 4L, 6L, 
5L, 4L, 5L, 4L, 5L, 7L, 7L, 4L, 5L, 7L, 7L, 5L, 1L, 6L, 5L, 7L, 
5L, 5L, 4L, 5L, 4L, 2L, 2L, 6L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 
7L, 3L, 6L, 4L, 6L, 4L, 4L, 5L, 5L, 4L, 4L, 5L, 4L, 5L, 7L, 7L, 
1L, 6L, 5L, 7L, 5L, 5L, 4L, 5L, 5L, 4L, 6L, 5L, 5L, 5L, 5L, 5L, 
6L, 7L, 3L, 6L, 6L, 5L, 5L, 4L, 5L, 4L, 5L, 7L, 7L, 6L, 5L, 5L, 
7L, 5L, 5L, 4L, 2L, 2L, 5L, 5L, 5L, 5L, 5L, 6L, 7L, 3L, 6L, 6L, 
4L, 6L, 4L, 4L, 5L, 5L, 5L, 7L, 1L, 6L, 5L, 5L, 5L, 5L, 5L, 5L, 
4L, 6L, 5L, 5L, 4L, 5L, 6L, 3L, 6L, 6L, 4L, 6L, 5L, 4L, 4L, 5L, 
4L, 5L, 5L, 7L, 7L, 6L, 1L, 6L, 5L, 5L, 7L, 5L, 5L, 4L, 2L, 5L, 
5L, 5L, 5L, 5L, 4L, 6L, 7L, 3L, 6L, 4L, 4L, 6L, 4L, 4L, 5L, 5L, 
5L, 5L, 5L, 4L, 5L, 7L, 1L, 6L, 5L, 7L, 5L, 5L, 4L, 5L, 5L, 4L, 
4L, 5L, 5L, 5L, 5L, 5L, 5L, 4L, 4L, 5L, 5L, 5L, 5L, 6L, 7L, 3L, 
6L, 6L, 4L, 6L, 4L, 4L, 5L, 5L, 7L, 4L, 5L, 7L, 7L, 1L, 6L, 5L, 
5L, 5L, 7L, 5L, 5L, 4L, 5L, 5L, 4L, 5L, 5L, 2L, 2L, 6L, 5L, 5L, 
5L, 5L, 5L, 6L, 3L, 5L, 6L, 4L, 4L, 4L, 6L, 4L, 4L, 4L, 5L, 5L, 
4L, 5L, 7L, 7L, 5L, 1L, 6L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 4L, 5L, 
5L, 5L, 4L, 5L, 4L, 5L, 5L, 5L, 5L, 4L, 4L, 5L, 5L, 5L, 6L, 7L, 
3L, 5L, 6L, 6L, 4L, 5L, 4L, 5L, 7L, 7L, 6L, 5L, 7L, 5L, 5L, 4L, 
2L, 2L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 3L, 6L, 6L, 6L, 4L, 4L, 4L, 
4L, 4L, 4L, 4L, 5L, 5L, 7L, 1L, 6L, 5L, 5L, 5L, 5L, 4L, 5L, 5L, 
4L, 5L, 5L, 5L, 5L, 4L, 5L, 5L, 5L, 6L, 3L, 5L, 5L, 6L, 5L, 5L, 
5L, 4L, 5L, 5L, 7L, 7L, 6L, 5L, 5L, 7L, 5L, 5L, 7L, 5L, 5L, 6L, 
4L, 2L, 2L, 5L, 5L, 5L, 5L, 5L, 6L, 3L, 6L, 6L, 4L, 6L, 5L, 4L, 
5L, 5L, 7L, 7L, 5L, 1L, 6L, 5L, 5L, 5L, 5L, 5L, 4L, 4L, 5L, 2L, 
5L, 5L, 5L, 5L, 4L, 4L, 5L, 2L, 4L, 5L, 4L, 6L, 3L, 5L, 6L, 6L, 
5L, 5L, 5L, 5L, 7L, 7L, 6L, 5L, 7L, 5L, 7L, 5L, 5L, 5L, 2L, 5L, 
2L, 5L, 5L, 5L, 5L, 6L, 7L, 3L, 6L, 5L, 5L, 4L, 5L, 7L, 7L, 1L, 
6L, 7L, 5L, 5L, 4L, 5L, 5L, 4L, 2L, 2L, 5L, 6L, 7L, 3L, 6L, 6L, 
5L, 5L, 5L, 7L, 5L, 7L, 7L, 5L, 5L, 6L, 5L, 5L, 5L, 5L, 5L, 4L, 
5L, 5L, 4L, 5L, 2L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
6L, 5L, 3L, 6L, 6L, 4L, 6L, 5L, 5L, 5L, 5L, 5L, 7L, 7L, 5L, 1L, 
6L, 5L, 5L, 7L, 5L, 5L, 4L, 5L, 5L, 5L, 4L, 5L, 6L, 5L, 5L, 5L, 
5L, 5L, 5L, 5L, 6L, 3L, 6L, 6L, 4L, 6L, 5L, 5L, 7L, 7L, 6L, 5L, 
5L, 7L, 5L, 5L, 5L, 5L, 5L, 4L, 2L, 2L, 5L, 5L, 5L, 5L, 5L, 5L, 
6L, 7L, 3L, 6L, 4L, 6L, 5L, 4L, 5L, 5L, 4L, 5L, 7L, 7L, 5L, 1L, 
6L, 5L, 5L, 5L, 5L, 5L, 5L, 4L, 5L, 5L, 5L, 6L, 3L, 6L, 6L, 4L, 
5L, 5L, 7L, 7L, 1L, 6L, 7L, 5L, 5L, 5L, 5L, 5L, 5L, 4L, 2L, 2L, 
5L, 5L, 5L, 5L, 6L, 7L, 3L, 6L, 6L, 5L, 5L, 5L, 5L, 7L, 7L, 5L, 
6L, 7L, 5L, 5L, 5L, 4L, 5L, 5L, 5L, 5L, 4L, 4L, 5L, 5L, 5L, 4L, 
5L, 6L, 3L, 6L, 6L, 4L, 6L, 4L, 5L, 5L, 5L, 5L, 7L, 6L, 6L, 5L, 
5L, 7L, 5L, 5L, 5L, 5L, 5L, 4L, 2L, 2L, 6L, 5L, 5L, 5L, 5L, 5L, 
5L, 5L, 6L, 7L, 3L, 5L, 6L, 4L, 4L, 4L, 5L, 6L, 4L, 4L, 5L, 4L, 
5L, 4L, 5L, 7L, 7L, 1L, 6L, 5L, 5L, 5L, 5L, 7L, 5L, 5L, 5L, 5L, 
5L, 5L, 4L, 4L, 2L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 7L, 3L, 
5L, 6L, 6L, 5L, 4L, 5L, 5L, 7L, 6L, 5L, 5L, 5L, 5L, 2L, 2L, 5L, 
6L, 3L, 5L, 5L, 6L, 4L, 6L, 5L, 4L, 5L, 7L, 7L, 1L, 6L, 5L, 7L, 
5L, 5L, 5L, 5L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 7L, 3L, 6L, 6L, 
6L, 4L, 5L, 5L, 5L, 5L, 7L, 7L, 6L, 5L, 5L, 5L, 5L, 5L, 2L, 2L, 
6L, 3L, 6L, 4L, 6L, 4L, 5L, 4L, 5L, 7L, 1L, 6L, 5L, 5L, 5L, 5L, 
5L, 4L, 5L, 5L, 5L, 2L, 5L, 6L, 7L, 3L, 6L, 6L, 5L, 5L, 5L, 7L, 
7L, 6L, 5L, 5L, 5L, 5L, 5L, 4L, 5L, 2L, 2L, 5L, 5L, 5L, 6L, 3L, 
6L, 4L, 6L, 4L, 5L, 5L, 4L, 4L, 5L, 5L, 7L, 7L, 5L, 1L, 6L, 5L, 
5L, 5L, 4L, 5L, 5L, 5L, 5L, 4L, 5L, 6L, 5L, 5L, 6L, 7L, 3L, 6L, 
4L, 5L, 6L, 5L, 5L, 5L, 5L, 4L, 5L, 7L, 7L, 6L, 5L, 5L, 7L, 5L, 
5L, 5L, 4L, 5L, 5L, 4L, 2L, 2L, 5L, 5L, 5L, 5L, 4L, 6L, 3L, 6L, 
6L, 6L, 4L, 5L, 5L, 5L, 4L, 5L, 7L, 7L, 6L, 5L, 5L, 5L, 4L, 5L, 
5L, 4L, 5L, 5L, 5L, 6L, 3L, 5L, 5L, 6L, 6L, 5L, 4L, 5L, 5L, 7L, 
7L, 6L, 5L, 5L, 5L, 5L, 4L, 5L, 4L, 2L, 2L, 5L, 5L, 5L, 5L, 5L, 
6L, 5L, 3L, 6L, 4L, 5L, 5L, 5L, 7L, 7L, 5L, 1L, 6L, 5L, 5L, 5L, 
5L, 4L, 5L, 5L, 5L, 4L, 5L, 5L, 6L, 7L, 3L, 5L, 6L, 6L, 5L, 5L, 
5L, 5L, 7L, 6L, 7L, 5L, 5L, 5L, 5L, 4L, 2L, 2L, 5L, 7L, 3L, 6L, 
4L, 5L, 6L, 5L, 5L, 5L, 7L, 6L, 5L, 5L, 5L, 4L, 5L, 5L, 4L, 5L, 
5L, 6L, 3L, 6L, 6L, 5L, 1L, 6L, 5L, 5L, 4L, 5L, 4L, 2L, 2L, 5L, 
5L, 5L, 5L, 6L, 3L, 6L, 6L, 5L, 5L, 5L, 7L, 7L, 5L, 6L, 5L, 5L, 
5L, 5L, 5L, 4L, 6L, 3L, 6L, 6L, 5L, 5L, 7L, 7L, 6L, 5L, 5L, 5L, 
5L, 5L, 4L, 2L, 2L, 6L, 3L, 6L, 5L, 6L, 4L, 4L, 5L, 7L, 7L, 1L, 
6L, 5L, 5L, 5L, 5L, 4L, 5L, 5L, 5L, 3L, 6L, 6L, 5L, 5L, 5L, 5L, 
7L, 6L, 5L, 5L, 4L, 5L, 4L, 2L, 2L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
5L, 4L, 6L, 7L, 3L, 5L, 6L, 6L, 4L, 5L, 5L, 5L, 4L, 4L, 5L, 7L, 
7L, 6L, 5L, 5L, 5L, 4L, 5L, 5L, 5L, 4L, 2L, 5L, 5L, 5L, 4L, 4L, 
5L, 5L, 4L, 6L, 3L, 6L, 6L, 6L, 5L, 5L, 5L, 5L, 7L, 5L, 6L, 5L, 
5L, 7L, 5L, 5L, 5L, 2L, 2L, 5L, 5L, 5L, 5L, 5L, 6L, 3L, 6L, 4L, 
4L, 5L, 4L, 5L, 6L, 5L, 5L, 5L, 4L, 5L, 5L, 5L, 5L, 4L, 2L, 5L, 
5L, 4L, 4L, 6L, 3L, 6L, 6L, 5L, 5L, 5L, 7L, 6L, 5L, 5L, 5L, 5L, 
5L, 4L, 2L, 5L, 5L, 5L, 5L, 5L, 6L, 7L, 3L, 6L, 4L, 6L, 5L, 5L, 
5L, 7L, 5L, 1L, 6L, 7L, 5L, 5L, 4L, 5L, 5L, 4L, 5L, 5L, 5L, 6L, 
7L, 3L, 6L, 6L, 6L, 5L, 5L, 5L, 5L, 6L, 5L, 5L, 5L, 5L, 4L, 5L, 
2L, 5L, 5L, 5L, 5L, 6L, 3L, 5L, 4L, 4L, 6L, 4L, 5L, 5L, 5L, 7L, 
6L, 5L, 5L, 4L, 5L, 5L, 4L, 4L, 5L, 5L, 5L, 3L, 6L, 6L, 5L, 5L, 
7L, 6L, 5L, 5L, 5L, 5L, 7L, 5L, 4L, 2L, 5L, 5L, 5L, 5L, 5L, 6L, 
7L, 3L, 4L, 6L, 5L, 5L, 4L, 5L, 5L, 7L, 1L, 6L, 5L, 5L, 5L, 5L, 
5L, 5L, 5L, 4L, 4L, 5L, 6L, 3L, 6L, 6L, 6L, 5L, 5L, 5L, 5L, 7L, 
6L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 3L, 6L, 4L, 6L, 5L, 5L, 7L, 7L, 
5L, 6L, 5L, 5L, 5L, 5L), .Label = c("Adwords", "Campañas", "Directo", 
"Email", "Referencias", "SEO", "Social Media"), class = "factor"), 
    sessions = c(197L, 1L, 7L, 13L, 1L, 1L, 10L, 1L, 3L, 3L, 
    5L, 3L, 566L, 1L, 27L, 159L, 7L, 1L, 6L, 1L, 1L, 4L, 1L, 
    6L, 10L, 129L, 1L, 7L, 2L, 1L, 10L, 1L, 5L, 6L, 9L, 1L, 28L, 
    1L, 7L, 386L, 1L, 146L, 1L, 89L, 41L, 9L, 1L, 1L, 1L, 6L, 
    3L, 4L, 182L, 1L, 5L, 8L, 2L, 1L, 1L, 4L, 1L, 1L, 2L, 3L, 
    2L, 524L, 4L, 26L, 1L, 152L, 4L, 2L, 3L, 1L, 2L, 2L, 1L, 
    5L, 10L, 142L, 1L, 1L, 8L, 1L, 3L, 1L, 1L, 1L, 1L, 7L, 4L, 
    13L, 3L, 375L, 3L, 2L, 147L, 1L, 101L, 29L, 4L, 1L, 1L, 2L, 
    3L, 1L, 1L, 2L, 1L, 7L, 5L, 5L, 224L, 3L, 12L, 1L, 7L, 2L, 
    1L, 4L, 141L, 4L, 632L, 2L, 2L, 32L, 1L, 138L, 1L, 1L, 9L, 
    5L, 1L, 1L, 1L, 2L, 1L, 6L, 3L, 139L, 4L, 1L, 9L, 1L, 1L, 
    5L, 9L, 8L, 36L, 1L, 537L, 1L, 2L, 5L, 3L, 174L, 1L, 106L, 
    39L, 9L, 2L, 2L, 2L, 3L, 1L, 6L, 3L, 2L, 689L, 1L, 14L, 2L, 
    2L, 35L, 1L, 15L, 1L, 1L, 1L, 3L, 20L, 465L, 1L, 3269L, 1L, 
    2L, 1L, 9L, 1L, 32L, 6L, 2L, 293L, 1L, 3L, 1L, 11L, 2L, 1L, 
    9L, 10L, 1L, 1L, 1L, 1L, 1L, 2L, 7L, 2L, 433L, 1L, 4L, 1L, 
    1L, 3L, 19L, 1L, 2L, 1L, 1L, 12L, 1L, 4L, 1L, 1L, 3L, 37L, 
    10L, 88L, 6L, 1808L, 5L, 4L, 451L, 5L, 219L, 112L, 4L, 3L, 
    1L, 6L, 1L, 2L, 3L, 5L, 10L, 2L, 264L, 8L, 1L, 1L, 1L, 17L, 
    1L, 1L, 7L, 1L, 1L, 4L, 6L, 516L, 1L, 948L, 2L, 1L, 2L, 1L, 
    33L, 1L, 1L, 133L, 1L, 2L, 1L, 5L, 11L, 1L, 4L, 1L, 1L, 1L, 
    6L, 10L, 5L, 168L, 1L, 1L, 5L, 1L, 10L, 1L, 1L, 3L, 9L, 1L, 
    2L, 1L, 8L, 3L, 98L, 1L, 548L, 1L, 1L, 177L, 97L, 17L, 4L, 
    1L, 6L, 2L, 1L, 2L, 1L, 1L, 5L, 4L, 5L, 235L, 1L, 2L, 9L, 
    2L, 19L, 1L, 2L, 2L, 1L, 1L, 3L, 6L, 5L, 396L, 1209L, 1L, 
    2L, 1L, 41L, 1L, 125L, 3L, 5L, 1L, 4L, 1L, 1L, 4L, 1L, 3L, 
    1L, 1L, 5L, 2L, 121L, 2L, 1L, 1L, 10L, 1L, 1L, 4L, 1L, 2L, 
    10L, 3L, 75L, 5L, 632L, 1L, 2L, 2L, 178L, 1L, 67L, 33L, 6L, 
    1L, 1L, 1L, 2L, 1L, 12L, 3L, 194L, 1L, 1L, 1L, 1L, 1L, 20L, 
    1L, 1L, 6L, 1L, 1L, 1L, 1L, 1L, 3L, 2L, 296L, 1L, 1L, 979L, 
    6L, 4L, 1L, 33L, 1L, 109L, 5L, 2L, 6L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 6L, 3L, 118L, 1L, 1L, 15L, 1L, 1L, 1L, 1L, 1L, 
    4L, 2L, 1L, 18L, 6L, 53L, 3L, 584L, 2L, 1L, 2L, 172L, 2L, 
    100L, 27L, 9L, 2L, 1L, 2L, 1L, 1L, 1L, 11L, 3L, 202L, 6L, 
    20L, 2L, 1L, 1L, 4L, 1L, 8L, 2L, 292L, 719L, 2L, 1L, 2L, 
    29L, 106L, 7L, 3L, 8L, 2L, 2L, 1L, 1L, 1L, 7L, 3L, 139L, 
    4L, 1L, 2L, 17L, 1L, 2L, 3L, 2L, 20L, 53L, 3L, 530L, 2L, 
    1L, 1L, 172L, 113L, 23L, 2L, 1L, 4L, 2L, 2L, 1L, 7L, 891L, 
    10L, 1L, 1L, 12L, 1L, 1L, 1L, 1L, 1L, 4L, 5L, 6L, 1312L, 
    1L, 1L, 1168L, 1L, 4L, 2L, 39L, 133L, 3L, 13L, 5L, 2L, 6L, 
    1L, 1L, 1L, 13L, 3L, 297L, 4L, 1L, 1L, 9L, 1L, 1L, 1L, 1L, 
    2L, 1L, 2L, 1L, 25L, 182L, 1L, 776L, 2L, 1L, 1L, 260L, 2L, 
    115L, 52L, 14L, 2L, 4L, 3L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 
    2L, 1L, 14L, 2L, 731L, 7L, 2L, 1L, 16L, 1L, 1L, 3L, 2L, 1L, 
    1L, 11L, 6L, 294L, 1L, 1135L, 1L, 3L, 1L, 6L, 1L, 36L, 1L, 
    1L, 126L, 4L, 1L, 1L, 4L, 11L, 1L, 2L, 1L, 2L, 2L, 1L, 6L, 
    355L, 3L, 9L, 1L, 4L, 1L, 13L, 2L, 1L, 1L, 7L, 1L, 1L, 22L, 
    5L, 67L, 1L, 2L, 926L, 1L, 1L, 1L, 1L, 2L, 1L, 208L, 1L, 
    1L, 136L, 44L, 12L, 1L, 1L, 2L, 2L, 4L, 2L, 1L, 1L, 1L, 1L, 
    8L, 9L, 1L, 198L, 1L, 8L, 13L, 2L, 4L, 1L, 4L, 2L, 205L, 
    568L, 1L, 1L, 19L, 94L, 2L, 3L, 8L, 1L, 1L, 1L, 1L, 1L, 1L, 
    8L, 157L, 4L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 12L, 
    28L, 3L, 444L, 3L, 1L, 2L, 118L, 2L, 75L, 27L, 1L, 1L, 4L, 
    1L, 1L, 1L, 1L, 1L, 6L, 7L, 166L, 1L, 1L, 11L, 1L, 1L, 3L, 
    1L, 1L, 1L, 3L, 203L, 644L, 2L, 1L, 1L, 2L, 26L, 1L, 4L, 
    75L, 1L, 4L, 2L, 5L, 1L, 1L, 1L, 1L, 1L, 4L, 155L, 1L, 1L, 
    1L, 3L, 4L, 1L, 2L, 6L, 1L, 36L, 1L, 2L, 446L, 3L, 1L, 99L, 
    86L, 27L, 1L, 2L, 1L, 1L, 3L, 2L, 2L, 1L, 2L, 1L, 1L, 1L, 
    1L, 7L, 1L, 7L, 159L, 1L, 3L, 12L, 1L, 3L, 1L, 1L, 8L, 174L, 
    733L, 1L, 1L, 1L, 1L, 22L, 2L, 84L, 1L, 1L, 6L, 3L, 1L, 1L, 
    1L, 3L, 1L, 100L, 6L, 2L, 3L, 1L, 8L, 3L, 38L, 7L, 502L, 
    2L, 1L, 86L, 6L, 83L, 24L, 6L, 1L, 1L, 1L, 2L, 2L, 321L, 
    8L, 11L, 1L, 4L, 1L, 2L, 2L, 13L, 191L, 1L, 5L, 1417L, 1L, 
    6L, 1L, 1L, 28L, 2L, 1L, 150L, 1L, 1L, 7L, 1L, 3L, 2L, 1L, 
    1L, 3L, 1L, 2L, 1L, 1L, 1L, 4L, 1L, 218L, 3L, 1L, 1L, 8L, 
    1L, 2L, 1L, 1L, 16L, 4L, 45L, 1L, 3L, 879L, 3L, 1L, 1L, 2L, 
    207L, 2L, 115L, 44L, 1L, 3L, 1L, 1L, 3L, 1L, 1L, 1L, 1L, 
    1L, 1L, 4L, 171L, 4L, 1L, 1L, 7L, 1L, 5L, 4L, 178L, 614L, 
    3L, 1L, 3L, 1L, 5L, 20L, 1L, 94L, 3L, 4L, 8L, 1L, 1L, 1L, 
    1L, 1L, 1L, 2L, 1L, 121L, 1L, 1L, 6L, 1L, 1L, 3L, 2L, 1L, 
    7L, 3L, 31L, 1L, 1L, 433L, 1L, 3L, 23L, 94L, 79L, 25L, 1L, 
    2L, 2L, 6L, 2L, 160L, 3L, 6L, 1L, 3L, 2L, 2L, 3L, 1L, 568L, 
    1L, 2L, 5L, 15L, 5L, 86L, 1L, 2L, 4L, 8L, 3L, 4L, 1L, 1L, 
    2L, 1L, 118L, 9L, 7L, 1L, 2L, 2L, 11L, 3L, 10L, 1L, 530L, 
    2L, 3L, 2L, 121L, 1L, 1L, 72L, 34L, 3L, 3L, 1L, 3L, 1L, 1L, 
    1L, 7L, 4L, 326L, 13L, 1L, 1L, 18L, 1L, 2L, 8L, 4L, 2L, 2L, 
    1L, 1271L, 1L, 1L, 1L, 2L, 3L, 17L, 2L, 161L, 3L, 1L, 14L, 
    1L, 1L, 2L, 1L, 1L, 4L, 1L, 1L, 10L, 1L, 195L, 1L, 6L, 1L, 
    1L, 1L, 1L, 23L, 1L, 1L, 2L, 1L, 1L, 2L, 20L, 4L, 10L, 1L, 
    1050L, 1L, 1L, 3L, 1L, 1L, 1L, 19L, 1L, 196L, 134L, 52L, 
    4L, 1L, 1L, 1L, 1L, 2L, 3L, 3L, 1L, 1L, 5L, 6L, 1L, 120L, 
    1L, 3L, 6L, 1L, 1L, 2L, 1L, 2L, 371L, 1L, 1L, 7L, 74L, 2L, 
    11L, 1L, 3L, 84L, 1L, 1L, 3L, 4L, 14L, 2L, 1L, 5L, 1L, 6L, 
    1L, 382L, 3L, 1L, 2L, 6L, 2L, 69L, 1L, 54L, 17L, 2L, 1L, 
    1L, 3L, 7L, 1L, 168L, 2L, 1L, 7L, 1L, 1L, 1L, 1L, 2L, 1L, 
    5L, 374L, 2L, 5L, 7L, 2L, 69L, 1L, 10L, 6L, 85L, 1L, 1L, 
    16L, 1L, 1L, 1L, 5L, 2L, 2L, 393L, 3L, 17L, 53L, 75L, 22L, 
    2L, 2L, 1L, 1L, 1L, 7L, 3L, 1L, 136L, 1L, 7L, 3L, 3L, 2L, 
    1L, 2L, 488L, 1L, 4L, 25L, 1L, 71L, 1L, 1L, 1L, 3L, 1L, 1L, 
    2L, 2L, 126L, 5L, 1L, 8L, 2L, 1L, 1L, 1L, 1L, 1L, 10L, 1L, 
    4L, 1L, 1L, 445L, 1L, 1L, 90L, 1L, 77L, 20L, 2L, 1L, 1L, 
    1L, 2L, 1L, 1L, 2L, 1L, 248L, 8L, 1L, 1L, 19L, 1L, 2L, 1L, 
    1L, 1L, 4L, 1L, 3L, 981L, 2L, 2L, 1L, 3L, 1L, 14L, 1L, 2L, 
    134L, 3L, 2L, 1L, 1L, 3L, 1L, 1L, 2L, 5L, 194L, 5L, 1L, 16L, 
    1L, 1L, 2L, 2L, 1L, 9L, 3L, 8L, 850L, 1L, 1L, 155L, 1L, 117L, 
    43L, 4L, 4L, 4L, 3L, 5L, 124L, 1L, 1L, 4L, 6L, 1L, 1L, 2L, 
    3L, 1L, 2L, 373L, 4L, 1L, 2L, 8L, 1L, 63L, 1L, 2L, 12L, 1L, 
    1L, 1L, 1L, 1L, 3L, 1L, 125L, 7L, 2L, 1L, 1L, 7L, 2L, 5L, 
    1L, 2L, 287L, 2L, 3L, 1L, 54L, 1L, 49L, 19L, 2L, 2L, 3L, 
    5L, 8L, 1L, 91L, 1L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 289L, 1L, 
    1L, 1L, 12L, 61L, 1L, 1L, 14L, 2L, 1L, 91L, 1L, 1L, 1L, 7L, 
    2L, 1L, 4L, 1L, 241L, 1L, 5L, 42L, 1L, 51L, 9L, 4L, 1L, 1L, 
    4L, 98L, 2L, 4L, 2L, 2L, 251L, 1L, 12L, 1L, 47L, 3L, 1L, 
    2L, 1L, 1L, 1L, 3L, 2L, 73L, 2L, 3L, 1L, 1L, 11L, 2L, 3L, 
    1L, 214L, 2L, 1L, 40L, 41L, 17L, 3L, 2L, 103L, 1L, 8L, 5L, 
    1L, 2L, 1L, 270L, 1L, 1L, 3L, 21L, 60L, 2L, 1L, 2L, 2L, 73L, 
    4L, 2L, 2L, 1L, 1L, 4L, 1L, 2L, 1L, 219L, 1L, 55L, 60L, 13L, 
    1L, 2L, 1L, 1L, 168L, 3L, 7L, 1L, 7L, 1L, 1L, 1L, 404L, 8L, 
    8L, 1L, 99L, 3L, 3L, 11L, 2L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 
    1L, 3L, 1L, 115L, 1L, 2L, 3L, 2L, 2L, 1L, 1L, 1L, 1L, 5L, 
    3L, 6L, 362L, 1L, 2L, 64L, 2L, 88L, 15L, 1L, 4L, 1L, 2L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 104L, 2L, 1L, 9L, 1L, 5L, 
    1L, 2L, 1L, 1L, 343L, 1L, 1L, 1L, 3L, 10L, 64L, 2L, 10L, 
    1L, 1L, 1L, 1L, 1L, 4L, 106L, 3L, 1L, 1L, 1L, 2L, 6L, 286L, 
    1L, 2L, 43L, 2L, 56L, 24L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 
    1L, 140L, 1L, 4L, 2L, 1L, 2L, 2L, 479L, 1L, 1L, 4L, 20L, 
    87L, 1L, 2L, 1L, 1L, 3L, 3L, 1L, 3L, 1L, 118L, 5L, 1L, 9L, 
    4L, 1L, 14L, 4L, 1L, 1L, 389L, 1L, 1L, 66L, 1L, 75L, 13L, 
    1L, 1L, 2L, 1L, 1L, 1L, 98L, 3L, 1L, 8L, 2L, 2L, 1L, 1L, 
    341L, 3L, 1L, 21L, 101L, 2L, 1L, 4L, 1L, 1L, 1L, 1L, 1L, 
    85L, 1L, 1L, 1L, 2L, 2L, 4L, 1L, 1L, 4L, 278L, 10L, 67L, 
    2L, 54L, 15L, 1L, 1L, 1L, 1L, 1L, 98L, 1L, 6L, 3L, 2L, 1L, 
    315L, 1L, 1L, 6L, 13L, 1L, 59L, 2L, 3L, 1L, 1L, 1L, 1L, 1L, 
    4L, 2L, 90L, 1L, 4L, 1L, 1L, 1L, 1L, 2L, 7L, 1L, 235L, 1L, 
    1L, 1L, 2L, 53L, 72L, 18L, 3L, 2L, 1L, 1L, 68L, 1L, 1L, 4L, 
    2L, 1L, 2L, 1L, 1L, 241L, 1L, 1L, 4L, 9L, 37L, 1L, 1L, 66L, 
    1L, 1L, 7L, 5L, 4L, 2L, 1L, 2L, 197L, 47L, 39L, 19L, 1L)), .Names = c("Fuentes", 
"sessions"), class = "data.frame", row.names = c(NA, -1724L))

Visitas_Por_Fuente$id <- 1:nrow(Visitas_Por_Fuente) #Create the ID column.

mysessions <- function(x) {
  if(is.null(x)) return(NULL)
  # get the current session info, based on "id" that is hovered over:
  current_session <- Visitas_Por_Fuente[Visitas_Por_Fuente$id == x$id, "sessions"]
  # format the value with prettyNum if you like:
  paste0("Sessions:", "&nbsp;",prettyNum(current_session, big.mark=",",scientific=F))
}

Visitas_Por_Fuente %>%
  ggvis(~Fuentes, ~sessions) %>%
  layer_points(fill = ~Fuentes, key := ~id) %>%               # define a key
  add_tooltip(mysessions ,"hover")

mysessions <- function(x) {
  if(is.null(x)) return(NULL)
  # compute the total number of sessions of the "Fuente" type that is hovered over
  total_sessions <- 
      sum(Visitas_Por_Fuente[Visitas_Por_Fuente$Fuentes == x$Fuentes, "sessions"])
  # format the value with prettyNum if you like:
  paste0("Total number of Sessions:", "&nbsp;",
             prettyNum(total_sessions, big.mark=",",scientific=F))
}

Visitas_Por_Fuente %>%
  ggvis(~Fuentes, ~sessions) %>%
  layer_bars(width = 0.8, fill = ~Fuentes, key := ~Fuentes) %>%
  add_tooltip(mysessions ,"hover")