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 +'' +
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"
)
Run the code above in your browser using DataLab