# NOT RUN {
mtcars %>%
e_charts(mpg) %>%
e_scatter(wt, qsec, scale = e_scale) %>%
e_visual_map(qsec, scale = e_scale)
v <- LETTERS[1:10]
matrix <- data.frame(
x = sample(v, 300, replace = TRUE),
y = sample(v, 300, replace = TRUE),
z = rnorm(300, 10, 1),
color = rnorm(300, 10, 1),
size = rnorm(300, 10, 1),
stringsAsFactors = FALSE
) %>%
dplyr::group_by(x, y) %>%
dplyr::summarise(
z = sum(z),
color = sum(color),
size = sum(size)
) %>%
dplyr::ungroup()
matrix %>%
e_charts(x) %>%
e_scatter_3d(y, z, color, size) %>%
e_visual_map(
z, # scale to z
inRange = list(symbolSize = c(1, 30)), # scale size
dimension = 3 # third dimension 0 = x, y = 1, z = 2, size = 3
) %>%
e_visual_map(
z, # scale to z
inRange = list(color = c('#bf444c', '#d88273', '#f6efa6')), # scale colors
dimension = 4, # third dimension 0 = x, y = 1, z = 2, size = 3, color = 4
bottom = 300 # padding to avoid visual maps overlap
)
# }
Run the code above in your browser using DataLab