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 or a proxy as returned by echarts4rProxy.
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
        )
      }
   "formatter = htmlwidgets::JS("
      function(params){
        return(
          params.seriesName +'
' + 
          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"
  )