p <- cars |>
e_charts(dist) |>
e_scatter(speed, symbol_size = 10)
p # plot
# extract the JSON
json <- p |>
e_inspect(
json = TRUE,
pretty = TRUE
)
# print json
json
# rebuild plot
echarts_from_json(json) |>
e_theme("dark") # modify
Run the code above in your browser using DataLab