# NOT RUN {
require(dplyr)
require(purrr)
require(tidyr)
require(gapminder)
data(gapminder, package = "gapminder")
gp <- gapminder %>%
arrange(desc(year)) %>%
distinct(country, .keep_all = TRUE)
gp2 <- gapminder %>%
nest(-country) %>%
mutate(
data = map(data, mutate_mapping, hcaes(x = lifeExp, y = gdpPercap), drop = TRUE),
data = map(data, list_parse)
) %>%
rename(ttdata = data)
gptot <- left_join(gp, gp2)
hc <- hchart(
gptot,
"point",
hcaes(
lifeExp,
gdpPercap,
name = country,
size = pop,
group = continent
)
) %>%
hc_yAxis(type = "logarithmic")
hc %>%
hc_tooltip(useHTML = TRUE, pointFormatter = tooltip_chart(accesor = "ttdata"))
hc %>%
hc_tooltip(useHTML = TRUE, pointFormatter = tooltip_chart(
accesor = "ttdata",
hc_opts = list(chart = list(type = "column"))
))
hc %>%
hc_tooltip(
useHTML = TRUE,
positioner = JS("function () { return { x: this.chart.plotLeft + 10, y: 10}; }"),
pointFormatter = tooltip_chart(
accesor = "ttdata",
hc_opts = list(
title = list(text = "point.country"),
xAxis = list(title = list(text = "lifeExp")),
yAxis = list(title = list(text = "gdpPercap"))
)
)
)
hc %>%
hc_tooltip(
useHTML = TRUE,
pointFormatter = tooltip_chart(
accesor = "ttdata",
hc_opts = list(
legend = list(enabled = TRUE),
series = list(list(color = "gray", name = "point.name"))
)
)
)
# }
Run the code above in your browser using DataLab