Skip to content
Snippets Groups Projects
Commit bc4daad8 authored by Daniel.Kalioudjoglou's avatar Daniel.Kalioudjoglou
Browse files

suppression des indicateurs couverts par le secret statistique

parent b45604bf
Branches
No related tags found
1 merge request!43Resolve "mise a jour donnees DK octobre 2024"
Hide whitespace changes
Inline Side-by-side
data-raw/chargement_ptz.R
+ 1
− 4
View file @ bc4daad8
...@@ -36,10 +36,7 @@ ptz<-rbind( ...@@ -36,10 +36,7 @@ ptz<-rbind(
cbind(aggregate(valeur~depcom+date,ptz[ptz$variable>100 & ptz$variable<200,],sum),variable="nb_ptz.individuel"), cbind(aggregate(valeur~depcom+date,ptz[ptz$variable>100 & ptz$variable<200,],sum),variable="nb_ptz.individuel"),
cbind(aggregate(valeur~depcom+date,ptz[ptz$variable>200,],sum),variable="nb_ptz.collectif"), cbind(aggregate(valeur~depcom+date,ptz[ptz$variable>200,],sum),variable="nb_ptz.collectif"),
cbind(aggregate(valeur~depcom+date,ptz[substr(ptz$variable,2,2)==1,],sum),variable="nb_ptz.ancien"), cbind(aggregate(valeur~depcom+date,ptz[substr(ptz$variable,2,2)==1,],sum),variable="nb_ptz.ancien"),
cbind(aggregate(valeur~depcom+date,ptz[substr(ptz$variable,2,2)==2,],sum),variable="nb_ptz.neuf"), cbind(aggregate(valeur~depcom+date,ptz[substr(ptz$variable,2,2)==2,],sum),variable="nb_ptz.neuf")) %>%
cbind(aggregate(valeur~depcom+date,ptz[substr(ptz$variable,3,3)==2,],sum),variable="nb_ptz.locataire_autre"),
cbind(aggregate(valeur~depcom+date,ptz[substr(ptz$variable,3,3)==3,],sum),variable="nb_ptz.proprietaire_ou_autre"),
cbind(aggregate(valeur~depcom+date,ptz[substr(ptz$variable,3,3)==1,],sum),variable="nb_ptz.locataire_hlm")) %>%
# filter(date>=2008)%>% # filter(date>=2008)%>%
mutate(date=make_date(date,12,31))%>% mutate(date=make_date(date,12,31))%>%
mutate_if(is.character,as.factor) %>% mutate_if(is.character,as.factor) %>%
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment