Un peu d’interactivité pour le plaisir!
Code
library (leaflet)
leaflet () %>%
setView (lng= 150 ,
lat= - 30 ,
zoom = 3 ) %>%
addTiles () %>%
addMarkers (lng= 174.768 ,
lat= - 36.852 ,
popup= "Là où R est né" ) %>%
addProviderTiles (providers$ Esri.WorldGrayCanvas)
Peut-être que ça vous inspirera!
Code
library (plotly)
library (gapminder)
df <- gapminder
fig <- df %>%
plot_ly (
x = ~ gdpPercap,
y = ~ lifeExp,
size = ~ pop,
color = ~ continent,
frame = ~ year,
text = ~ country,
hoverinfo = "text" ,
type = 'scatter' ,
mode = 'markers' ,
width = "100%" ,
height = 600
)
fig <- fig %>% layout (xaxis = list (type = "log" ))
fig <- fig %>%
animation_button (
x = 0 , xanchor = "left" , y = - 0.15 , yanchor = "bottom"
)
fig
À votre imagination de jouer!
Citation BibTeX
@online{nom2023,
author = {Prénom Nom},
title = {Titre de votre page d’exploration},
date = {2023-09-12},
url = {https://VOTREUSERNAME.github.io/FAS1002_projet-final//exploration.html},
langid = {fr}
}
Veuillez citer ce travail comme suit :
Prénom Nom. 2023.
“Titre de votre page d’exploration.”
September 12, 2023.
https://VOTREUSERNAME.github.io/FAS1002_projet-final//exploration.html .