Valeurs Foncières 2018 - valeursfoncieres-2018

Data

~/data/

• Demande de Valeur Foncière. html

Nature mutation

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

Nature mutation	Nobs
Adjudication	9746
Echange	43680
Expropriation	1578
Vente	2755573
Vente en l’état futur d’achèvement	236432
Vente terrain à bâtir	12528

Code departement

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

Code postal, Commune, Code departement, Code commune

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

Paris 5

`valeursfoncieres-2018` %>%
  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

`valeursfoncieres-2018` %>%
  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 .}