在悬停时分别为每个层设置css属性(ggigraph)

Question

使用ggiraph，我想使用悬停为每个ggplotgeom_或层设置不同的css属性。在下面的示例中，如何在悬停时将第二个geom_rect_interactive的笔划设置为蓝色，但在悬停时保持第一层笔划为红色(保持data_id相同，以便两者都对悬停在任一层上做出响应(？

library(ggplot2)
library(ggiraph)
p <- 
ggplot(
data = data.frame(id = seq(3), x = 1:3, y = 1:3)
) +
# red stroke
geom_rect_interactive(
mapping = aes(
xmin = x, xmax = x - 0.1,
ymin = y, ymax = y - 0.1,
data_id = id
)
) +
# blue stroke
geom_rect_interactive(
mapping = aes(
xmin = x, xmax = x + 0.1,
ymin = y, ymax = y + 0.1,
data_id = id
)
)
x <- girafe(ggobj = p)
x <- girafe_options(
x,
opts_hover(
css = "stroke:#ff0000;"
)
)
x

我想我可能可以做一些事情，比如将一些自定义的css类分配给特定的层(例如.mystroke {stroke:#0000ff;}(，但不知道如何处理。

Answer 1

(我是作者之一(这目前是不可能的，我们还没有考虑过这种情况(如果我们能实现它，我们会考虑的(。

目前，只能为每个形状类型指定一个CSS。一个例子将更有意义，它复制自：

https://davidgohel.github.io/ggiraph/articles/offcran/customizing.html#detailled-对照-1

library(ggplot2)
library(ggiraph)

dataset <- mtcars
dataset$carname <- row.names(dataset)
gg_scatter <- ggplot(dataset, aes(x = disp, y = qsec, label = carname, 
data_id = carname, color= wt) ) + 
geom_point_interactive(size=3) + 
geom_text_interactive(vjust = 2) +
theme_minimal()
girafe(ggobj = gg_scatter2, 
options = list(
opts_hover(
css = girafe_css(
css = "fill:purple;stroke:black;",
text = "stroke:none;fill:red;"
)
)
) )