library(dplyr)
tmp <- data.frame(Species = as.vector(unique(iris$Species)),
emoji = c('A','B','C'))
df <- iris |> inner_join(tmp) # add 6th column emoji
df |> group_by(Species) |> ec.init(
series.param= list(label= list(show= TRUE, formatter= ec.clmn('emoji'))),
tooltip= list(formatter=
# with sprintf template + multiple column indexes
ec.clmn('%M@ species %@s.len %@s.wid %@', 5,1,2))
)
# tooltip decimal indexes work with full data sets (no missing/partial data)
ChickWeight |> mutate(Chick=as.numeric(Chick)) |> filter(Chick>47) |> group_by(Chick) |>
ec.init(
tooltip= list(trigger='axis',
formatter= ec.clmn("48: %@49: %@50: %@", 1.1, 2.1, 3.1)),
xAxis= list(type='category'), legend= list(formatter= 'Ch.{name}'),
series.param= list(type='line', encode= list(x='Time', y='weight')),
)
Run the code above in your browser using DataLab