Valeurs Foncières 2016 - valeursfoncieres-2016

Data

Author

Demande de Valeur Foncière. html

Info

# **Last data update**: 01 aoû 2026, 21:17. **Last compile**: 15 aoû 2026, 15:25

Nature mutation

Code

`valeursfoncieres-2016` |>
  group_by(`Nature mutation`) |>
  summarise(Nobs = n()) %>%
  {if (is_html_output()) print_table(.) else .}

Nature mutation	Nobs
Adjudication	14618
Echange	47134
Expropriation	8327
Vente	2642785
Vente en l'état futur d'achèvement	216599
Vente terrain à bâtir	8231

Code departement

Code

`valeursfoncieres-2016` |>
  group_by(`Code departement`) |>
  summarise(Nobs = n()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Code postal, Commune, Code departement, Code commune

Code

`valeursfoncieres-2016` |>
  group_by(`Code postal`, `Commune`, `Code departement`, `Code commune`) |>
  summarise(Nobs = n()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Exemple

Code

`valeursfoncieres-2016` |>
  head(20) %>%
  mutate_at(vars(11,19,26,28,30,39,43), funs(as.numeric(gsub(",", ".", .)))) |>
  select(9,12,16,11,26,28,30,39,43) %>%
  # select(`Code postal`, Commune, `Valeur fonciere`, `Surface Carrez du 1er lot`, `Surface Carrez du 2eme lot`) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Paris 5

Code

`valeursfoncieres-2016` |>
  filter(`Code postal` == 75005) %>%
  mutate_at(vars(11,26,28,30,39,43), funs(as.numeric(gsub(",", ".", .)))) |>
  select(9,12,16,11,26,28,30,39,43) %>%
  # select(`Code postal`, Commune, `Valeur fonciere`, `Surface Carrez du 1er lot`, `Surface Carrez du 2eme lot`) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Paris 14

Code

`valeursfoncieres-2016` |>
  filter(`Code postal` == 75014) %>%
  mutate_at(vars(11,26,28,30,39,43), funs(as.numeric(gsub(",", ".", .)))) |>
  select(9,12,16,11,26,28,30,39,43) %>%
  # select(`Code postal`, Commune, `Valeur fonciere`, `Surface Carrez du 1er lot`, `Surface Carrez du 2eme lot`) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}