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, ... )
e | An |
---|---|
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 |
name | name of the serie. |
rm_x, rm_y | Whether to remove x and y axis, defaults to |
... | Any other option to pass, check See Also section. |
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" )