Description Usage Arguments Examples
3D cartesian coordinate system component. It requires ec_xAxis3D
, ec_yAxis3D
and ec_zAxis3D
axis components to be used together.
1 |
ec |
An |
... |
Additional arguments for the aria (https://echarts.apache.org/en/option-gl.html#grid3D). |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | library(dplyr)
# https://echarts.apache.org/examples/zh/editor.html?c=bar3d-punch-card&gl=1
hours <- c('12a', '1a', '2a', '3a', '4a', '5a', '6a',
'7a', '8a', '9a','10a','11a',
'12p', '1p', '2p', '3p', '4p', '5p',
'6p', '7p', '8p', '9p', '10p', '11p')
days <- c('Saturday', 'Friday', 'Thursday',
'Wednesday', 'Tuesday', 'Monday', 'Sunday')
data <- data.frame(
hours = rep(0:23, 7),
days = rep(0:6, 24),
value = round(runif(168,1,100), 0),
stringsAsFactors = FALSE)
echart() %>%
ec_grid3D(
show = TRUE, boxWidth = 200, boxDepth = 80) %>%
ec_xAxis3D(
show = TRUE, type = 'category',
data = hours) %>%
ec_yAxis3D(
show = TRUE, type = 'category',
data = days) %>%
ec_zAxis3D(
show = TRUE, type = 'value') %>%
ec_series(type = 'bar3D', data = as.matrix(data)) %>%
ec_visualMap(
max = 100,
inRange = list(
color = c('#313695', '#4575b4', '#74add1',
'#abd9e9', '#e0f3f8', '#ffffbf', '#fee090',
'#fdae61', '#f46d43', '#d73027', '#a50026')
)
)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.