Powerful interactive visualisations in R.
Installation
The package is available on CRAN. The full installation can be obtained with:
However, if you only want a lite version you can simply do, this is useful for a lighter version that installs faster if you do not want to use any of the geospatial features of the package:
You can also install the unstable development version of echarts4r with remotes from Github, see changes.
如果您位于中国，请安装:
Companions
Companion packages to make echarts4r even better. You can install and load the whole suite with:
echarts4r.assets
Icons, and assets for globes, add visually interesting globe overlays and background.
remotes::install_github('JohnCoene/echarts4r.assets')
echarts4r.maps
A collection of 215 country maps to use with geo-spatial visualisations.
remotes::install_github('JohnCoene/echarts4r.maps')
Example
Create multiple charts, arrange them in a grid and connect their interactions; this is nonsensical chart for demonstration purposes.
library(dplyr)
library(echarts4r)
library(echarts4r.assets)
e1 <- iris %>%
group_by(Species) %>%
e_charts(
Sepal.Length,
elementId = "chart"
) %>%
e_scatter(Petal.Length, Sepal.Width) %>%
e_datazoom(show = FALSE, y_index = 0) %>%
e_x_axis(min = 4) %>%
e_highlight(
series_name = list("setosa", "versicolor", "virginica"),
btn = "high"
) %>%
e_downplay(
series_name = list("setosa", "versicolor", "virginica"),
btn = "down"
) %>%
e_button(
"high", "Highlight",
class = "btn btn-primary",
position = "bottom"
) %>%
e_button(
"down", "Downplay",
class = "btn btn-default",
position = "bottom"
) %>%
e_legend(FALSE) %>%
e_title("Connect charts") %>%
e_tooltip(
trigger = "item",
axisPointer = list(
type = "cross"
)
) %>%
e_image_g(
left = 50,
top = 30,
z = 999,
style = list(
image = "reference/figures/logo.png",
width = 70,
height = 75,
opacity = .95
)
) %>%
e_text_style(fontFamily = "Raleway")
e2 <- iris %>%
group_by(Species) %>%
e_charts(Petal.Length) %>%
e_line(Sepal.Length) %>%
e_connect("chart") %>%
e_datazoom(y_index = 0) %>%
e_x_axis(min = 0) %>%
e_legend(
bottom = 5,
icons = ea_icons(
c("warning", "signal", "photo")
)
) %>%
e_tooltip(
trigger = "item",
axisPointer = list(
type = "cross"
)
) %>%
e_text_style(fontFamily = "Raleway")
e_arrange(e1, e2, rows = 1, cols = 2)
