# NOT RUN {
hc <- highchart() %>%
hc_xAxis(categories = month.abb) %>%
hc_add_series(name = "Tokyo", data = sample(1:12)) %>%
hc_add_series(name = "London", data = sample(1:12) + 10)
hc
hc %>%
hc_chart(
type = "column",
options3d = list(enabled = TRUE, beta = 15, alpha = 15)
)
hc %>%
hc_chart(
borderColor = "#EBBA95",
borderRadius = 10,
borderWidth = 2,
backgroundColor = list(
linearGradient = c(0, 0, 500, 500),
stops = list(
list(0, "rgb(255, 255, 255)"),
list(1, "rgb(200, 200, 255)")
)
)
)
# }
Run the code above in your browser using DataLab