e_flow_gl | R Documentation |
Flow GL
e_flow_gl(
e,
y,
sx,
sy,
color,
name = NULL,
coord_system = NULL,
rm_x = TRUE,
rm_y = TRUE,
...
)
e_flow_gl_(
e,
y,
sx,
sy,
color = NULL,
name = NULL,
coord_system = NULL,
rm_x = TRUE,
rm_y = TRUE,
...
)
e |
An |
y |
Vector position on the y axis. |
sx, sy |
Velocity in respective axis. |
color |
Vector color. |
name |
name of the serie. |
coord_system |
Coordinate system to use. |
rm_x, rm_y |
Whether to remove x and y axis, only applies if |
... |
Any other option to pass, check See Also section. |
# coordinates
vectors <- expand.grid(0:9, 0:9)
names(vectors) <- c("x", "y")
vectors$sx <- rnorm(100)
vectors$sy <- rnorm(100)
vectors$color <- log10(runif(100, 1, 10))
vectors |>
e_charts(x) |>
e_flow_gl(y, sx, sy, color) |>
e_visual_map(
min = 0,
max = 1,
# log 10
dimension = 4,
# x = 0, y = 1, sx = 3, sy = 4
show = FALSE,
# hide
inRange = list(
color = c(
"#313695",
"#4575b4",
"#74add1",
"#abd9e9",
"#e0f3f8",
"#ffffbf",
"#fee090",
"#fdae61",
"#f46d43",
"#d73027",
"#a50026"
)
)
) |>
e_x_axis(
splitLine = list(show = FALSE)
) |>
e_y_axis(
splitLine = list(show = FALSE)
)
# map
latlong <- seq(-180, 180, by = 5)
wind <- expand.grid(lng = latlong, lat = latlong)
wind$slng <- rnorm(nrow(wind), 0, 200)
wind$slat <- rnorm(nrow(wind), 0, 200)
wind$color <- abs(wind$slat) - abs(wind$slng)
rng <- range(wind$color)
trans <- list(opacity = 0.5) # transparency
wind |>
e_charts(lng, backgroundColor = "#333") |>
e_geo() |>
e_flow_gl(
lat,
slng,
slat,
color,
itemStyle = trans,
particleSize = 2
) |>
e_visual_map(
color,
# range
dimension = 4,
# lng = 0, lat = 1, slng = 2, slat = 3, color = 4
show = FALSE,
# hide
inRange = list(
color = c(
"#313695",
"#4575b4",
"#74add1",
"#abd9e9",
"#e0f3f8",
"#ffffbf",
"#fee090",
"#fdae61",
"#f46d43",
"#d73027",
"#a50026"
)
)
) |>
e_x_axis(show = FALSE) |>
e_y_axis(show = FALSE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.