Valeurs Foncières 2015 - valeursfoncieres-2015

Data

Author

François Geerolf

Nature mutation

Code 
`valeursfoncieres-2015` |>
  group_by(`Nature mutation`) |>
  summarise(Nobs = n()) %>%
  {if (is_html_output()) print_table(.) else .}
Nature mutation Nobs
Adjudication 14099
Echange 46738
Expropriation 4749
Vente 2498677
Vente en l'état futur d'achèvement 179137
Vente terrain à bâtir 6721

Code departement

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

Prix/m2 par code postal

Code 
`valeursfoncieres-2015` %>%
  mutate_at(vars(11,26,28,30,39,43), funs(as.numeric(gsub(",", ".", .)))) |>
  filter(`Surface Carrez du 1er lot` != 0) |>
  mutate(metre_carre = `Valeur fonciere` / `Surface Carrez du 1er lot`) |>
  filter(!is.na(metre_carre),
         # Valeurs mètre carré absurde
         metre_carre < 50000,
         metre_carre > 1000) |>
  select(`Code postal`, `Commune`, `Code departement`, `Code commune`, metre_carre) |>
  arrange(`Code postal`) |>
  group_by(`Code postal`, `Commune`, `Code departement`, `Code commune`) |>
  summarise(Nobs = n(),
            metre_carre_mean = metre_carre |> mean() |> round(),
            metre_carre_sd = metre_carre |> sd() |> round(),
            metre_carre_max = metre_carre |> max() |> round(),
            metre_carre_min = metre_carre |> min() |> round()) |>
  filter(Nobs > 200) |>
  arrange(-metre_carre_mean) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Paris 6

Code 
`valeursfoncieres-2015` |>
  filter(`Code postal` == 75006) %>%
  mutate_at(vars(11,26,28,30,39,43), funs(as.numeric(gsub(",", ".", .)))) |>
  filter(`Surface Carrez du 1er lot` != 0) |>
  mutate(metre_carre = round(`Valeur fonciere` / `Surface Carrez du 1er lot`)) |>
  filter(!is.na(metre_carre),
         # Valeurs mètre carré absurde
         metre_carre < 50000,
         metre_carre > 1000) |>
  select(9,12,16,11,26,28,metre_carre) |>
  arrange(-metre_carre) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Paris 7

Code 
`valeursfoncieres-2015` |>
  filter(`Code postal` == 75007) %>%
  mutate_at(vars(11,26,28,30,39,43), funs(as.numeric(gsub(",", ".", .)))) |>
  filter(`Surface Carrez du 1er lot` != 0) |>
  mutate(metre_carre = round(`Valeur fonciere` / `Surface Carrez du 1er lot`)) |>
  filter(!is.na(metre_carre),
         # Valeurs mètre carré absurde
         metre_carre < 50000,
         metre_carre > 1000) |>
  select(9,12,16,11,26,28,metre_carre) |>
  arrange(-metre_carre) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Paris 5

Code 
`valeursfoncieres-2015` |>
  filter(`Code postal` == 75005) %>%
  mutate_at(vars(11,26,28,30,39,43), funs(as.numeric(gsub(",", ".", .)))) |>
  filter(`Surface Carrez du 1er lot` != 0) |>
  mutate(metre_carre = round(`Valeur fonciere` / `Surface Carrez du 1er lot`)) |>
  filter(!is.na(metre_carre),
         # Valeurs mètre carré absurde
         metre_carre < 50000,
         metre_carre > 1000) |>
  select(9,12,16,11,26,28,metre_carre) |>
  arrange(-metre_carre) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Paris 14

Code 
`valeursfoncieres-2015` |>
  filter(`Code postal` == 75014) %>%
  mutate_at(vars(11,26,28,30,39,43), funs(as.numeric(gsub(",", ".", .)))) |>
  filter(`Surface Carrez du 1er lot` != 0) |>
  mutate(metre_carre = round(`Valeur fonciere` / `Surface Carrez du 1er lot`)) |>
  filter(!is.na(metre_carre),
         # Valeurs mètre carré absurde
         metre_carre < 50000,
         metre_carre > 1000) |>
  select(9,12,16,11,26,28,metre_carre) |>
  arrange(-metre_carre) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}