為 ggiraph 的交互式工具提示格式化表格的最簡單方法

Question

我在下面有這個基本示例。 正如您將看到的那樣，它是一個交互式 plot。我目前希望實現的是獲取dummy_data並在您 hover 通過數據點時將其作為工具提示的格式化表格。 我將有不同的點集，但我只想讓這個示例適用於所有人，然后我可以更改數據。

正如您將在tooltip =參數中看到的那樣，它需要包含在此處。 我只是不確定是否有一種簡單的方法來傳遞此表，因為它在其中打印了一些 css 以便輕松格式化。 我希望它看起來與打印到控制台的dummy_data一樣好或更好。

我希望這已經足夠清楚了嗎？ 如果我可以澄清，請告訴我。 請參閱下面的代表。

library(ggplot2)
library(ggiraph)
#> Warning: package 'ggiraph' was built under R version 4.1.2


dataset <- mtcars

dummy_data <- 
  data.frame(
    stringsAsFactors = FALSE,
    Feature = c("FeatureA","FeatureB",
                "FeatureC","FeatureD","FeatureE","FeatureF","FeatureG",
                "FeatureH","FeatureI","FeatureJ","FeatureK","FeatureL",
                "FeatureM","FeatureN","FeatureO","FeatureP","FeatureQ",
                "FeatureR","FeatureS","FeatureT","FeatureU"),
    Rating = c(1L,1L,1L,1L,3L,3L,4L,1L,
               4L,1L,4L,1L,1L,1L,1L,4L,1L,1L,2L,3L,2L)
  )

dummy_data
#>     Feature Rating
#> 1  FeatureA      1
#> 2  FeatureB      1
#> 3  FeatureC      1
#> 4  FeatureD      1
#> 5  FeatureE      3
#> 6  FeatureF      3
#> 7  FeatureG      4
#> 8  FeatureH      1
#> 9  FeatureI      4
#> 10 FeatureJ      1
#> 11 FeatureK      4
#> 12 FeatureL      1
#> 13 FeatureM      1
#> 14 FeatureN      1
#> 15 FeatureO      1
#> 16 FeatureP      4
#> 17 FeatureQ      1
#> 18 FeatureR      1
#> 19 FeatureS      2
#> 20 FeatureT      3
#> 21 FeatureU      2

dataset$carname <- row.names(dataset)
dataset$tooltip <- paste(dummy_data)



gg_scatter <- ggplot(dataset, 
                     aes(x = disp, y = qsec, tooltip = 
                           paste0(
                             "<div class='header' checked>
                           <p>Ready to take ",tooltip,"? If so</p>
                           <a href='shiny.rstudio.com/tutorial'>Click Here!</a>
                           </div>"), 
                         data_id = carname, color= wt) ) + 
  geom_point_interactive(size=3) + 
  labs(title = "mouse over points") + 
  theme_minimal() + theme(
    plot.background = element_blank(),
    panel.background = element_blank()
  )



girafe(ggobj = gg_scatter, 
       options = list(
         opts_sizing(rescale = TRUE, width = .7) )
)

^{由reprex package (v2.0.0) 創建於 2022-04-27}

Answer 1

您可以將 HTML 代碼傳遞給工具提示，因此一種方法是使用knitr::kable創建表格的 HTML 版本，獲取 HTML 表格代碼並將其添加到您的 dataframe，然后用作工具提示。

library(ggplot2)
library(ggiraph)

dataset <- mtcars

# add tooltip, using only first 10 rows to avoid showing too much text
dataset$tooltip <- knitr::kable(dummy_data[1:10, ], format = "html")

gg_scatter <- ggplot(dataset, 
                     aes(x = disp, y = qsec, 
                         tooltip = tooltip, color= wt) ) + 
    geom_point_interactive(size=3) 

girafe(ggobj = gg_scatter)

要對工具提示表進行更多自定義，而不是knitr::kable ，您可以使用其他一些 package 來創建更多自定義的 HTML 表。