# NOT RUN {
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