Warning: package 'rwebstat' is not available for this version of R
A version of this package for your version of R might be available elsewhere,
see the ideas at
https://cran.r-project.org/doc/manuals/r-patched/R-admin.html#Installing-packages
Warning in library(package, lib.loc = lib.loc, character.only = TRUE,
logical.return = TRUE, : there is no package called 'rwebstat'
DET %>%left_join(DET_var, by ="variable") %>%group_by(variable, Variable) %>%summarise(Nobs =n()) %>%print_table_conditional()
variable
Variable
Nobs
DET.A.FR.11C2.F51100.M.Z9.8.F
Capital des sociétés résidentes du CAC 40 détenues par les non-résidents (en %)
25
DET.A.FR.1315.F33100.M.Z9.8.F
Détention par les non-résidents des titres CT de la Dette Négociable de l'Etat (en %)
27
DET.A.FR.1315.F33200.M.Z9.8.F
Détention par les non-résidents des titres LT de la Dette Négociable de l'Etat (en %)
27
DET.Q.FR.1315.F33000.M.Z9.8.F
Détention par les non-résidents de la Dette Négociable de l'Etat (en %)
101
Tous
Quarterly
Code
DET %>%left_join(DET_var, by ="variable") %>% ggplot +geom_line(aes(x = date, y = value/100, color = Variable)) +theme_minimal() +xlab("") +ylab("") +scale_x_date(breaks ="2 years",labels =date_format("%Y")) +scale_y_continuous(breaks =0.01*seq(-100, 90, 10),labels = scales::percent_format(accuracy =1)) +theme(legend.position =c(0.6, 0.19),legend.title =element_blank(),legend.direction ="vertical")
Dette négociable
Toutes
Code
DET %>%left_join(DET_var, by ="variable") %>%filter(variable =="DET.Q.FR.1315.F33000.M.Z9.8.F") %>% ggplot +geom_line(aes(x = date, y = value/100)) +scale_x_date(breaks ="2 years",labels =date_format("%Y")) +scale_y_continuous(breaks =0.01*seq(-100, 90, 10),labels = scales::percent_format(accuracy =1)) +theme(legend.position =c(0.6, 0.19),legend.title =element_blank(),legend.direction ="vertical") +labs(x ="", y ="", title ="Détention par les non-résidents de la Dette Négociable de l'Etat (en %)") +theme_minimal()
Par maturite
Code
DET %>%left_join(DET_var, by ="variable") %>%filter(variable !="DET.A.FR.11C2.F51100.M.Z9.8.F") %>% ggplot +geom_line(aes(x = date, y = value/100, color = Variable)) +scale_x_date(breaks ="2 years",labels =date_format("%Y")) +scale_y_continuous(breaks =0.01*seq(-100, 90, 10),labels = scales::percent_format(accuracy =1)) +theme(legend.position =c(0.6, 0.19),legend.title =element_blank(),legend.direction ="vertical") +labs(x ="", y ="", title ="Détention par les non-résidents de la Dette Négociable de l'Etat (en %)") +theme_minimal() +theme(legend.position =c(0.6, 0.19),legend.title =element_blank(),legend.direction ="vertical")