Last data update: 26 sept. 2026, 06:33
Last compile: 26 sept. 2026, 06:36
Examples
Principaux indices
Source : investing.com, septembre 26, 2026. [stock_indices]
The Economist
Code
ig_b("asset-pricing", "2021-11-06-the-economist")
France VS U.S.
Tous
Code
cac40_GR |>
arrange(Date) |>
mutate(Dernier = 100*Dernier / Dernier[1]) |>
ggplot() + geom_line(aes(x = Date, y = Dernier)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = 100*seq(0, 40, 1)) +
theme(legend.position = c(0.2, 0.85),
legend.title = element_blank())
1996-
Code
cac40_GR |>
filter(Date >= as.Date("1996-01-01")) |>
arrange(Date) |>
mutate(Dernier = 100*Dernier / Dernier[1]) |>
ggplot() + geom_line(aes(x = Date, y = Dernier)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = 100*seq(0, 20, 1)) +
theme(legend.position = c(0.2, 0.85),
legend.title = element_blank())
2003-
Code
cac40_GR |>
filter(Date >= as.Date("2003-01-01")) |>
arrange(Date) |>
mutate(Dernier = 100*Dernier / Dernier[1]) |>
ggplot() + geom_line(aes(x = Date, y = Dernier)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = 100*seq(0, 20, 1)) +
theme(legend.position = c(0.2, 0.85),
legend.title = element_blank())
2010-
Code
cac40_GR |>
filter(Date >= as.Date("2010-01-01")) |>
arrange(Date) |>
mutate(Dernier = 100*Dernier / Dernier[1]) |>
ggplot() + geom_line(aes(x = Date, y = Dernier)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = 100*seq(0, 20, 1)) +
theme(legend.position = c(0.2, 0.85),
legend.title = element_blank())