Chaque autorisation de tournage (cinéma, télévision, web) accordée par la Ville de Paris depuis 2016 : 15 852 tournages, avec le nom du film ou de la série, le réalisateur, le producteur et le lieu.
Code
tournages |> dplyr::arrange(dplyr::desc(date_debut)) |> dplyr::transmute(Titre = nom_tournage, Type = type_tournage, Réalisateur = nom_realisateur,Lieu = adresse_lieu, Début = date_debut) |>head(8) |> gt::gt() |> gt::sub_missing(missing_text ="—") |> gt::tab_header(title ="8 tournages les plus récents") |> gt::tab_options(table.width ="100%")
8 tournages les plus récents
Titre
Type
Réalisateur
Lieu
Début
Malika
Long métrage
Mounia Meddour
38 quai de la marne, 75019 paris
2025-12-23
1ER MAI
Téléfilm
David HOURREGUE
31 rue robert de flers, 75015 paris
2025-12-18
1ER MAI
Téléfilm
David HOURREGUE
5 rue antoine arnauld, 75016 paris
2025-12-17
FLSS - Equipe B
Long métrage
Thomas VINCENT
place de la concorde, 75008 paris
2025-12-17
Icaros
Long métrage
Alaa Oumouzoune
rue de la boule rouge, 75009 paris
2025-12-17
Malika
Long métrage
Mounia Meddour
65 quai d'orsay, 75007 paris
2025-12-16
1ER MAI
Téléfilm
David HOURREGUE
16 rue de montempoivre, 75012 paris
2025-12-16
STRANGE MARIAGE
Long métrage
—
28 rue didot, 75014 paris
2025-12-15
Où tourne-t-on
Code
ggplot() +geom_sf(data = arr_sf, fill ="grey97", colour ="grey70", linewidth =0.3) +geom_hex(data = sf::st_coordinates(pts_sf) |> tibble::as_tibble(),aes(X, Y), bins =60, alpha =0.85) +scale_fill_viridis_c(option ="inferno", direction =-1, trans ="sqrt", name ="Tournages") +coord_sf(xlim = sf::st_bbox(arr_sf)[c("xmin", "xmax")],ylim = sf::st_bbox(arr_sf)[c("ymin", "ymax")], expand =FALSE) +labs(title ="Densité des lieux de tournage") + theme_carte
Par arrondissement
Code
cnt <- tournages |> dplyr::filter(!is.na(ar)) |> dplyr::count(ar, name ="n")arr_sf |> dplyr::left_join(cnt, by =c("c_ar"="ar")) |>ggplot() +geom_sf(aes(fill = n), colour ="white", linewidth =0.2) +scale_fill_viridis_c(option ="rocket", direction =-1, na.value ="grey92", name ="Tournages") +labs(title ="Tournages par arrondissement") + theme_carte
Les lieux les plus filmés
Code
tournages |> dplyr::filter(!is.na(adresse_lieu)) |> dplyr::count(adresse_lieu, sort =TRUE) |>head(12) |> dplyr::mutate(adresse_lieu = stringr::str_to_title(adresse_lieu),adresse_lieu = forcats::fct_reorder(adresse_lieu, n)) |>ggplot(aes(n, adresse_lieu)) +geom_col(fill ="#7a5a2b", width =0.65) +geom_text(aes(label = n), hjust =-0.2, size =3) +scale_x_continuous(expand =expansion(mult =c(0, 0.12))) +labs(title ="Lieux les plus utilisés pour des tournages",subtitle ="Ponts et places emblématiques dominent", x =NULL, y =NULL) + theme_barres
Évolution et types de tournage
Code
tournages |> dplyr::filter(!is.na(type_tournage)) |> dplyr::count(annee, type_tournage) |>ggplot(aes(annee, n, fill = type_tournage)) +geom_col(width =0.7) +scale_fill_brewer(palette ="Set2", name =NULL) +scale_x_continuous(breaks = scales::breaks_width(1)) +labs(title ="Tournages par an", x =NULL, y =NULL) + theme_barres +theme(legend.position ="bottom", axis.text.x =element_text(angle =45, hjust =1))
Les réalisateurs les plus présents
Code
tournages |> dplyr::filter(!is.na(nom_realisateur), nom_realisateur !="") |> dplyr::count(nom_realisateur, sort =TRUE) |>head(10) |> dplyr::mutate(nom_realisateur = forcats::fct_reorder(nom_realisateur, n)) |>ggplot(aes(n, nom_realisateur)) +geom_col(fill ="#3b6f8a", width =0.6) +geom_text(aes(label = n), hjust =-0.2, size =3) +scale_x_continuous(expand =expansion(mult =c(0, 0.12))) +labs(title ="Réalisateurs avec le plus de tournages à Paris", x =NULL, y =NULL) + theme_barres