echarts4r (version 0.1.1)

e_bar_3d: Bar 3D

Description

Add 3D bars

Usage

e_bar_3d(e, y, z, bind, coord.system = "cartesian3D", name = NULL,
  rm.x = TRUE, rm.y = TRUE, ...)
e_bar_3d_(e, y, z, bind = NULL, coord.system = "cartesian3D",
  name = NULL, rm.x = TRUE, rm.y = TRUE, ...)

Arguments

e

An echarts4r object as returned by e_charts.

y, z

Coordinates.

bind

Binding.

coord.system

Coordinate system to use, one of cartesian3D, geo3D, globe.

name

name of the serie.

rm.x, rm.y

Whether to remove x and y axis, defaults to TRUE.

...

Any other option to pass, check See Also section.

See Also

http://echarts.baidu.com/option-gl.html#series-bar3D

Examples

# NOT RUN {
url <- paste0("https://ecomfe.github.io/echarts-examples/",
              "public/data-gl/asset/data/population.json")
data <- jsonlite::fromJSON(url)
data <- as.data.frame(data)
names(data) <- c("lon", "lat", "value")

data %>% 
  e_charts(lon) %>% 
  e_globe(
    environment = e_stars_texture(),
    base.texture = e_globe_texture()
  ) %>% 
  e_bar_3d(lat, value, coord.system = "globe") %>% 
  e_visual_map()
  
data %>% 
  e_charts(lon) %>% 
  e_geo_3d() %>% 
  e_bar_3d(lat, value, coord.system = "geo3D") %>% 
  e_visual_map()
  
v <- LETTERS[1:10]
matrix <- data.frame(
  x = sample(v, 300, replace = TRUE), 
  y = sample(v, 300, replace = TRUE), 
  z1 = rnorm(300, 10, 1),
  z2 = rnorm(300, 10, 1),
  stringsAsFactors = FALSE
) %>% 
  dplyr::group_by(x, y) %>% 
  dplyr::summarise(
    z1 = sum(z1),
    z2 = sum(z2)
  ) %>% 
  dplyr::ungroup() 
  
trans <- list(opacity = 0.4) # transparency
emphasis <- list(itemStyle = list(color = "#313695"))
  
matrix %>% 
  e_charts(x) %>% 
  e_bar_3d(y, z1, stack = "stack", name = "Serie 1", itemStyle = trans, emphasis = emphasis) %>%
  e_bar_3d(y, z2, stack = "stack", name = "Serie 2", itemStyle = trans, emphasis = emphasis) %>% 
  e_legend()
# }
# NOT RUN {
# }