Last observation: 7 oct. 2026 (N = 7)
First observation: 24 déc. 1979 (N = 1)
Last data update: 07 oct. 2026, 06:30
Last compile: 07 oct. 2026, 06:41
Source : investing.com, octobre 07, 2026. [stock_indices]
ig_b("asset-pricing", "2021-11-06-the-economist")
indices_var |>
select(country, symbol, full_name) |>
print_table_conditional()indices_var |>
select(country, symbol, full_name, currency) |>
filter(grepl("Total Return", full_name)) |>
print_table_conditional()indices |>
group_by(symbol) |>
summarise(Nobs = n()) |>
left_join(indices_var |>
select(country, symbol, full_name, currency), by = "symbol") |>
arrange(country) |>
print_table_conditional()indices |>
left_join(indices_var, by = "symbol") |>
group_by(symbol, full_name) |>
summarise(Nobs = n()) |>
print_table_conditional()indices |>
filter(symbol %in% c("FCHI", "PX1GR", "SPXTR", "SPX")) |>
left_join(indices_var, by = "symbol") |>
group_by(symbol) |>
mutate(Close = Close / Close[1]) |>
ggplot() + geom_line(aes(x = Date, y = Close, color = paste(symbol, "-", name))) +
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 = seq(0, 20, 1)) +
scale_color_manual(values = viridis(5)[1:4]) +
theme(legend.position = c(0.2, 0.85),
legend.title = element_blank())
indices |>
filter(symbol %in% c("FCHI", "PX1GR", "SPXTR", "SPX")) |>
left_join(indices_var, by = "symbol") |>
filter(Date >= as.Date("2000-01-01")) |>
group_by(symbol) |>
mutate(Close = Close / Close[1]) |>
ggplot() + geom_line(aes(x = Date, y = Close, color = paste(symbol, "-", name))) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 20, 1)) +
scale_color_manual(values = viridis(5)[1:4]) +
theme(legend.position = c(0.2, 0.85),
legend.title = element_blank())
indices |>
filter(symbol %in% c("FCHI", "PX1GR", "SPXTR", "SPX")) |>
left_join(indices_var, by = "symbol") |>
filter(Date >= as.Date("2010-01-01")) |>
group_by(symbol) |>
mutate(Close = Close / Close[1]) |>
ggplot() + geom_line(aes(x = Date, y = Close, color = paste(symbol, "-", name))) +
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 = seq(0, 20, 1)) +
scale_color_manual(values = viridis(5)[1:4]) +
theme(legend.position = c(0.2, 0.85),
legend.title = element_blank())
indices |>
filter(symbol %in% c("PX1GR", "SPXTR")) |>
left_join(indices_var, by = "symbol") |>
group_by(symbol) |>
filter(Date >= as.Date("1998-01-01")) |>
mutate(Close = 100*Close / Close[Date == as.Date("2003-09-04")],
name = gsub("Gross TR", "Total Return", name)) |>
arrange(desc(Date)) |>
ggplot() + geom_line(aes(x = Date, y = Close, color = paste(symbol, "-", name))) +
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 = seq(100, 20000, 100)) +
scale_color_manual(values = viridis(3)[1:2]) +
theme(legend.position = c(0.2, 0.85),
legend.title = element_blank())
indices |>
filter(symbol %in% c("PX1GR", "SPXTR")) |>
left_join(indices_var, by = "symbol") |>
group_by(symbol) |>
filter(Date >= as.Date("2001-08-13")) |>
mutate(Close = 100*Close / Close[Date == as.Date("2003-09-04")],
name = gsub("Gross TR", "Total Return", name)) |>
arrange(desc(Date)) |>
ggplot() + geom_line(aes(x = Date, y = Close, color = paste(symbol, "-", name))) +
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 = seq(100, 20000, 100)) +
scale_color_manual(values = viridis(3)[1:2]) +
theme(legend.position = c(0.2, 0.85),
legend.title = element_blank())