Prix immobilier commercial
Data - BDF
Info
Données sur l’immobilier
source | dataset | .html | .RData |
---|---|---|---|
2024-06-19 | 2024-04-05 | ||
2024-07-26 | 2024-06-14 | ||
2024-07-03 | 2024-07-01 | ||
2024-07-03 | 2024-06-18 | ||
2024-07-03 | 2024-06-18 | ||
2024-07-03 | 2024-07-01 | ||
2024-07-03 | 2024-07-01 | ||
2024-07-03 | 2024-07-01 | ||
2024-07-03 | 2024-07-03 | ||
2024-07-03 | 2024-07-02 | ||
2024-07-03 | 2024-07-02 | ||
2024-07-03 | 2024-07-02 | ||
2024-07-03 | 2024-07-02 | ||
2024-07-03 | 2024-07-02 | ||
2024-07-03 | 2024-07-02 | ||
2024-07-03 | 2024-07-03 | ||
2024-07-04 | 2024-07-03 | ||
2024-07-04 | 2023-12-03 | ||
2024-07-04 | 2024-07-03 | ||
2024-07-04 | 2024-07-01 | ||
2024-06-30 | 2024-07-23 | ||
2024-06-30 | 2024-07-23 |
FREQ Frequency
Code
%>%
CPP left_join(CPP_var, by = "variable") %>%
left_join(FREQ, by = "FREQ") %>%
group_by(FREQ, Freq) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
FREQ | Freq | Nobs |
---|---|---|
Q | Trimestriel | 12 |
A | Annuel | 4 |
PROPERTY_CPP
Code
%>%
CPP left_join(CPP_var, by = "variable") %>%
left_join(PROPERTY_CPP, by = "PROPERTY_CPP") %>%
group_by(PROPERTY_CPP, Property_cpp) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
PROPERTY_CPP | Property_cpp | Nobs |
---|---|---|
TP | All property types | 16 |
PROPERTY_IND
Code
%>%
CPP left_join(CPP_var, by = "variable") %>%
left_join(PROPERTY_IND, by = "PROPERTY_IND") %>%
group_by(PROPERTY_IND, Property_ind) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
PROPERTY_IND | Property_ind | Nobs |
---|---|---|
TVAL | Transaction value | 16 |
Prix de l’immobilier commercial, France, en variation
Trimestriel
Code
%>%
CPP left_join(CPP_var, by = "variable") %>%
filter(FREQ == "Q") %>%
+ geom_line(aes(x = date, y = value/100)) +
ggplot theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq.Date(as.Date("2010-01-01"), to = Sys.Date(), "3 months"),
labels = date_format("%b %Y")) +
theme(legend.position = c(0.25, 0.85),
legend.title = element_blank(),
axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
scale_y_continuous(breaks = 0.01*seq(0, 7000, 2),
labels = percent_format())
Annuel
Code
%>%
CPP left_join(CPP_var, by = "variable") %>%
filter(FREQ == "A") %>%
+ geom_line(aes(x = date, y = value)) +
ggplot theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 1), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.25, 0.85),
legend.title = element_blank()) +
scale_y_continuous(breaks = seq(0, 7000, 10))