R ggvis字体和散点图中交互式文本的参数（悬停）

Question

我想知道是否有办法使用 ggvis.

修改 "hover" 上显示的文本的特征

我根据在互联网上找到的模板创建了一个散点图，并根据我的需要进行了修改。

脚本如下：

library(shiny)
library(ggvis)

mydata <- data
mydata$id <- 1:nrow(mydata)  # Add an id column to use ask the key


all_values <- function(x) {
  if(is.null(x)) return(NULL)
  row <- mydata[mydata$id == x$id, ]
  paste0(
        names(row), ": ", format(row), collapse = "\n"
        )
}

# factor Location
mydata %>% ggvis(~a, ~b, key := ~id) %>%
  layer_points(fill = ~factor(Location)) %>%
  scale_numeric("x", trans = "log", expand=0) %>%
  scale_numeric("y", trans = "log", expand=0) %>%
  add_axis("x", title = "blabla1") %>%
  add_axis("y", title = "blabla2") %>%
  add_tooltip(all_values, "hover")

我想知道的基本上是如何设置散点图上交互显示的文本的格式。

我主要想：

显示每个参数后换行（collapse 和 paste0 中的命令 "\n" 似乎不起作用）
如何加粗例如names(row)

Answer 1

您必须在 paste0() 中使用适当的 HTML 标签：

换行：collapse = "<br />"
对于粗体："<b>", names(row), "</b>:"

由于您没有提供可重现的示例，这里有一个 mtcars:

mtc <- mtcars
mtc$id <- 1:nrow(mtc)  # Add an id column to use ask the key

all_values <- function(x) {
  if(is.null(x)) return(NULL)
  row <- mtc[mtc$id == x$id, ]
  paste0("<b>", names(row), "</b>:", format(row), collapse = "<br />")
}

mtc %>% 
  ggvis(x = ~wt, y = ~mpg, key := ~id) %>%
  layer_points() %>%
  add_tooltip(all_values, "hover")

R ggvis字体和散点图中交互式文本的参数（悬停）

R ggvis font and parameters of interactive text in scatter plot (hover)

r

text

format

interactive

ggvis