Valeurs Foncières 2016 - valeursfoncieres-2016

Data

~/data/

• Demande de Valeur Foncière. html

Nature mutation

`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

`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

`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

`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

`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

`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 .}