CDS souverains 5 ans - cds

Name: CDS souverains 5 ans
Creator: François Geerolf
License: https://www.investing.com/about-us/terms-and-conditions

Data - Investing

Author

François Geerolf

CDS souverains à 5 ans (en points de base) pour les principaux pays, d’après https://fr.investing.com/rates-bonds/world-cds. Historique quotidien depuis 2008 (cds.parquet) et instantané du jour (cds_live.parquet). Le CDS mesure le coût d’assurance contre le défaut de l’État : plus il est élevé, plus le risque perçu est fort.

Dernier niveau

Code

last_day <- max(cds_live$scraped_date)

d <- cds_live |>
  filter(scraped_date == last_day, country %in% alive) |>
  add_flags() |>
  arrange(last) |> mutate(.rank = row_number())

rng <- range(c(0, d$last)); flag_x <- -0.045 * diff(rng)
ggplot(d, aes(x = last, y = .rank)) +
  geom_col(aes(fill = color), width = 0.72, color = "grey55", linewidth = 0.3,
           orientation = "y") +
  geom_text(aes(label = round(last)), hjust = -0.3, size = 3, color = "grey30") +
  ggimage::geom_image(aes(x = flag_x, image = flag_img), size = 0.03, asp = 1.15,
                      na.rm = TRUE) +
  scale_fill_identity() +
  scale_y_continuous(breaks = d$.rank, labels = d$country,
                     expand = expansion(add = 0.8)) +
  scale_x_continuous(expand = expansion(mult = c(0.05, 0.08))) +
  theme_minimal() + xlab("CDS 5 ans (points de base)") + ylab("")

Pays de la zone euro et voisins

Depuis 2008

Code

euro <- c("France", "Italie", "Espagne", "Allemagne", "Royaume-Uni")

cds |>
  filter(country %in% euro) |>
  line_flags("2008-07-22", by = "2 years")

Depuis 2025

Code

cds |>
  filter(country %in% euro) |>
  line_flags("2025-01-01", by = "3 months", fmt = "%b %Y")

Depuis le 1er juillet 2026

Code

cds |>
  filter(country %in% euro) |>
  line_flags("2026-07-01", by = "month", fmt = "%b %Y")

Autres pays avancés

Code

cds |>
  filter(country %in% c("États-Unis", "Japon", "Suisse", "Australie",
                        "Corée du Sud")) |>
  line_flags("2023-04-07", by = "6 months", fmt = "%b %Y")

Pays émergents

Code

cds |>
  filter(country %in% c("Turquie", "Égypte", "Afrique du Sud", "Brésil",
                        "Mexique", "Indonésie", "Chine", "Arabie Saoudite")) |>
  line_flags("2008-01-01", by = "2 years")

Dernier instantané

Pays	CDS 5 ans (pb)	Var. (pb)	Var. jour (%)	Var. 1 mois (%)	Var. 1 an (%)	Heure
Égypte	306.54	2.88	0.95	16.27	-19.73	30/09
Turquie	246.41	-2.34	-0.94	12.68	-3.69	30/09
Afrique du Sud	134.83	1.32	0.99	16.64	-16.58	30/09
Brésil	131.88	0.00	0.00	14.08	-1.95	01/10
Mexique	97.69	4.00	4.27	23.33	10.76	01/10
Indonésie	92.79	1.25	1.37	9.39	17.60	01/10
Inde	87.67	1.21	1.40	0.00	0.00	26/09
France	70.14	4.75	7.27	107.95	83.52	30/09
Arabie Saoudite	66.73	0.09	0.13	17.10	1.02	30/09
Israël	60.41	1.50	2.54	13.82	-21.59	01/10
Italie	51.36	1.73	3.48	63.58	33.73	30/09
Canada	39.60	0.00	0.00	0.00	0.00	21/11
États-Unis	36.43	0.00	0.00	12.51	-2.34	30/09
Chine	35.06	-0.13	-0.38	-0.05	-8.14	30/09
Japon	26.37	0.98	3.88	9.31	42.58	01/10
Corée du Sud	22.80	0.43	1.92	5.54	-3.53	01/10
Royaume-Uni	22.59	0.77	3.53	24.88	4.66	30/09
Espagne	22.34	1.52	7.32	41.13	-11.97	30/09
Australie	15.94	0.25	1.57	7.63	26.27	01/10
Allemagne	10.26	0.24	2.45	48.93	17.20	30/09
Suisse	7.75	0.01	0.06	10.65	-8.82	30/09