Lines

Add lines.

e_lines(e, source_lon, source_lat, target_lon, target_lat, source_name,
  target_name, value, coord_system = "geo", name = NULL, rm_x = TRUE,
  rm_y = TRUE, ...)

e_lines_(e, source_lon, source_lat, target_lon, target_lat,
  source_name = NULL, target_name = NULL, value = NULL,
  coord_system = "geo", name = NULL, rm_x = TRUE, rm_y = TRUE, ...)

Arguments

e	An echarts4r object as returned by e_charts.
source_lon, source_lat, target_lon, target_lat	coordinates.
source_name, target_name	Names of source and target.
value	Value of edges.
coord_system	Coordinate system to use, one of geo, or cartesian2d.
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

Additional arguments

Examples

flights <- read.csv(
  paste0("https://raw.githubusercontent.com/plotly/datasets/",
         "master/2011_february_aa_flight_paths.csv")
)

flights %>%
  e_charts() %>%
  e_geo() %>%
  e_lines(
    start_lon,
    start_lat,
    end_lon,
    end_lat,
    airport1,
    airport2,
    cnt,
    name = "flights",
    lineStyle = list(normal = list(curveness = 0.3))
  ) %>%
  e_tooltip(trigger="item",
    formatter = htmlwidgets::JS("
      function(params){
        return(
          params.seriesName +'<br />' + 
          params.data.source_name + ' -> ' + 
          params.data.target_name + ':'+ params.value
        )
      }
   ")
  )

# timeline
flights$grp <- rep(LETTERS[1:2], 89)

flights %>%
  group_by(grp) %>%
  e_charts(timeline = TRUE) %>%
  e_geo() %>%
  e_lines(
    start_lon,
    start_lat,
    end_lon,
    end_lat,
    cnt,
    coord_system = "geo"
  )