`valeursfoncieres-2017` %>%
group_by(`Nature mutation`) %>%
summarise(Nobs = n()) %>%
{if (is_html_output()) print_table(.) else .}
Nature mutation | Nobs |
---|---|
Adjudication | 14259 |
Echange | 46198 |
Expropriation | 11313 |
Vente | 3016766 |
Vente en l’état futur d’achèvement | 272962 |
Vente terrain à bâtir | 15025 |
`valeursfoncieres-2017` %>%
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 .}
`valeursfoncieres-2017` %>%
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 .}