Add 3D lines.
Usage
e_lines_3d(
e,
source_lon,
source_lat,
target_lon,
target_lat,
source_name,
target_name,
value,
name = NULL,
coord_system = "globe",
rm_x = TRUE,
rm_y = TRUE,
...
)
e_line_3d(
e,
y,
z,
name = NULL,
coord_system = NULL,
rm_x = TRUE,
rm_y = TRUE,
...
)
e_lines_3d_(
e,
source_lon,
source_lat,
target_lon,
target_lat,
source_name = NULL,
target_name = NULL,
value = NULL,
name = NULL,
coord_system = "globe",
rm_x = TRUE,
rm_y = TRUE,
...
)
e_line_3d_(
e,
y,
z,
name = NULL,
coord_system = NULL,
rm_x = TRUE,
rm_y = TRUE,
...
)
Arguments
- e
An
echarts4r
object as returned bye_charts
or a proxy as returned byecharts4rProxy
.- source_lon, source_lat, target_lon, target_lat
coordinates.
- source_name, target_name
Names of source and target.
- value
Value of edges.
- name
name of the serie.
- coord_system
Coordinate system to use, such as
cartesian3D
, orglobe
.- rm_x, rm_y
Whether to remove x and y axis, defaults to
TRUE
.- ...
Any other option to pass, check See Also section.
- y, z
Coordinates of lines.
Examples
# get data
flights <- read.csv(
paste0(
"https://raw.githubusercontent.com/plotly/datasets/",
"master/2011_february_aa_flight_paths.csv"
)
)
# Lines 3D
# Globe
# get tetures: echarts4r-assets.john-coene.com
flights |>
e_charts() |>
e_globe(
displacementScale = 0.05
) |>
e_lines_3d(
start_lon,
start_lat,
end_lon,
end_lat,
name = "flights",
effect = list(show = TRUE)
) |>
e_legend(FALSE)
#> `base_texture` is `NULL`, see echarts4r-assets.john-coene.com
# Geo 3D
flights |>
e_charts() |>
e_geo_3d() |>
e_lines_3d(
start_lon,
start_lat,
end_lon,
end_lat,
coord_system = "geo3D"
)
# groups
flights$grp <- rep(LETTERS[1:2], 89)
flights |>
group_by(grp) |>
e_charts() |>
e_geo_3d() |>
e_lines_3d(
start_lon,
start_lat,
end_lon,
end_lat,
coord_system = "geo3D"
)
# line 3D
df <- data.frame(
x = 1:100,
y = runif(100, 10, 25),
z = rnorm(100, 100, 50)
)
df |>
e_charts(x) |>
e_line_3d(y, z) |>
e_visual_map() |>
e_title("nonsense")
# timeline
df$grp <- rep(LETTERS[1:5], 20)
df |>
group_by(grp) |>
e_charts(x) |>
e_line_3d(y, z) |>
e_visual_map() |>
e_title("nonsense")