Valeurs Foncières 2015 - valeursfoncieres-2015

Data

~/data/

• Demande de Valeur Foncière. html

Nature mutation

`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

`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

`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

`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

`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

`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

`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

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