forked from davidgohel/ggiraph
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathscale_gradient_guide_colourbar_interactive.R
105 lines (98 loc) · 2.55 KB
/
scale_gradient_guide_colourbar_interactive.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
library(ggplot2)
library(ggiraph)
df <- expand.grid(x = 0:5, y = 0:5)
df$z <- runif(nrow(df))
p <- ggplot(df, aes(x, y, fill = z, tooltip = "tooltip")) +
geom_raster_interactive()
# add an interactive scale (guide is colourbar)
p1 <- p + scale_fill_gradient_interactive(
data_id = "colourbar",
onclick = "alert(\"colourbar\")",
tooltip = "colourbar"
)
x <- girafe(ggobj = p1)
if (interactive()) print(x)
# make the legend title interactive
p2 <- p + scale_fill_gradient_interactive(
data_id = "colourbar",
onclick = "alert(\"colourbar\")",
tooltip = "colourbar",
name = label_interactive(
"z",
data_id = "colourbar",
onclick = "alert(\"colourbar\")",
tooltip = "colourbar"
)
)
x <- girafe(ggobj = p2)
x <- girafe_options(
x,
opts_hover_key(girafe_css("stroke:red", text = "stroke:none;fill:red"))
)
if (interactive()) print(x)
# make the legend labels interactive
p3 <- p + scale_fill_gradient_interactive(
data_id = "colourbar",
onclick = "alert(\"colourbar\")",
tooltip = "colourbar",
name = label_interactive(
"z",
data_id = "colourbar",
onclick = "alert(\"colourbar\")",
tooltip = "colourbar"
),
labels = function(breaks) {
lapply(breaks, function(abreak) label_interactive(
as.character(abreak),
data_id = paste0("colourbar", abreak),
onclick = "alert(\"colourbar\")",
tooltip = paste0("colourbar", abreak)
))
}
)
x <- girafe(ggobj = p3)
x <- girafe_options(
x,
opts_hover_key(girafe_css("stroke:red", text = "stroke:none;fill:red"))
)
if (interactive()) print(x)
# also via the guide
p4 <- p + scale_fill_gradient_interactive(
data_id = "colourbar",
onclick = "alert(\"colourbar\")",
tooltip = "colourbar",
guide = guide_colourbar_interactive(
title.theme = element_text_interactive(
size = 8,
data_id = "colourbar",
onclick = "alert(\"colourbar\")",
tooltip = "colourbar"
),
label.theme = element_text_interactive(
size = 8,
data_id = "colourbar",
onclick = "alert(\"colourbar\")",
tooltip = "colourbar"
)
)
)
x <- girafe(ggobj = p4)
x <- girafe_options(
x,
opts_hover_key(girafe_css("stroke:red", text = "stroke:none;fill:red"))
)
if (interactive()) print(x)
# make the legend background interactive
p5 <- p4 + theme(
legend.background = element_rect_interactive(
data_id = "colourbar",
onclick = "alert(\"colourbar\")",
tooltip = "colourbar"
)
)
x <- girafe(ggobj = p5)
x <- girafe_options(
x,
opts_hover_key(girafe_css("stroke:red", text = "stroke:none;fill:red"))
)
if (interactive()) print(x)