Last observation: Q2 2026 (N = 231) · 2025 (N = 286)
First observation: 1947 (N = 2) · Q1 1947 (N = 2)
Last data update: 12 sept. 2026, 23:29
Last compile: 13 sept. 2026, 00:28
QNA_POP_EMPNC |>
filter(REF_AREA %in% c("USA", "EA", "FRA", "DEU"),
FREQ == "Q",
TRANSACTION == "POP",
ADJUSTMENT == "Y",
SECTOR == "S1") |>
quarter_to_date() |>
arrange(desc(date)) |>
rename(LOCATION = REF_AREA) |>
filter(date >= as.Date("1995-01-01")) |>
mutate(Ref_area = ifelse(LOCATION == "EA", "Europe", Ref_area)) |>
group_by(Ref_area) |>
mutate(obsValue = 100 * obsValue / obsValue[date == as.Date("2007-04-01")]) |>
add_flag_color("Ref_area") |>
ggplot() + theme_minimal() + xlab("") + ylab("") +
geom_line(aes(x = date, y = obsValue, color = color)) + add_4flags +
scale_color_identity() +
scale_x_date(breaks = c(seq(1995, 2100, 5)) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
theme(legend.position = "none") +
scale_y_log10(breaks = seq(50, 200, 5))
QNA_POP_EMPNC |>
filter(REF_AREA %in% c("USA", "EA", "FRA", "DEU"),
FREQ == "Q",
TRANSACTION == "POP",
ADJUSTMENT == "Y",
SECTOR == "S1") |>
quarter_to_date() |>
rename(LOCATION = REF_AREA) |>
filter(date >= as.Date("1999-01-01")) |>
mutate(Ref_area = ifelse(LOCATION == "EA", "Europe", Ref_area)) |>
group_by(Ref_area) |>
mutate(obsValue = 100 * obsValue / obsValue[date == as.Date("2007-04-01")]) |>
add_flag_color("Ref_area") |>
ggplot() + theme_minimal() + xlab("") + ylab("") +
geom_line(aes(x = date, y = obsValue, color = color)) + add_4flags +
scale_color_identity() +
scale_x_date(breaks = c(seq(1999, 2100, 5), seq(1997, 2100, 5)) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
theme(legend.position = "none") +
scale_y_log10(breaks = seq(50, 200, 5))
QNA_POP_EMPNC |>
filter(REF_AREA %in% c("USA", "EA", "FRA", "DEU"),
FREQ == "Q",
TRANSACTION == "POP",
ADJUSTMENT == "Y",
SECTOR == "S1") |>
quarter_to_date() |>
rename(LOCATION = REF_AREA) |>
filter(date >= as.Date("1999-01-01")) |>
mutate(Ref_area = ifelse(LOCATION == "EA", "Europe", Ref_area)) |>
group_by(Ref_area) |>
mutate(obsValue = 100 * obsValue / obsValue[date == as.Date("1999-01-01")]) |>
add_flag_color("Ref_area") |>
ggplot() + theme_minimal() + xlab("") + ylab("") +
geom_line(aes(x = date, y = obsValue, color = color)) + add_4flags +
scale_color_identity() +
scale_x_date(breaks = c(seq(1999, 2100, 5), seq(1997, 2100, 5)) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
theme(legend.position = "none") +
scale_y_log10(breaks = seq(50, 200, 5)) +
geom_label(data = . %>% filter(date == max(date)), aes(x = date, y = obsValue, label = round(obsValue, 1), color = color))
QNA_POP_EMPNC |>
filter(REF_AREA %in% c("USA", "EA", "FRA", "DEU"),
FREQ == "Q",
TRANSACTION == "EMP",
ADJUSTMENT == "Y",
SECTOR == "S1") |>
quarter_to_date() |>
arrange(desc(date)) |>
rename(LOCATION = REF_AREA) |>
filter(date >= as.Date("1995-01-01")) |>
mutate(Ref_area = ifelse(LOCATION == "EA", "Europe", Ref_area)) |>
group_by(Ref_area) |>
mutate(obsValue = 100 * obsValue / obsValue[date == as.Date("2007-04-01")]) |>
add_flag_color("Ref_area") |>
ggplot() + theme_minimal() + xlab("") + ylab("") +
geom_line(aes(x = date, y = obsValue, color = color)) + add_4flags +
scale_color_identity() +
scale_x_date(breaks = c(seq(1995, 2100, 5)) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
theme(legend.position = "none") +
scale_y_log10(breaks = seq(50, 200, 5))
QNA_POP_EMPNC |>
filter(REF_AREA %in% c("USA", "EA", "FRA", "DEU"),
FREQ == "Q",
TRANSACTION == "EMP",
ADJUSTMENT == "Y",
SECTOR == "S1") |>
quarter_to_date() |>
rename(LOCATION = REF_AREA) |>
filter(date >= as.Date("1999-01-01")) |>
mutate(Ref_area = ifelse(LOCATION == "EA", "Europe", Ref_area)) |>
group_by(Ref_area) |>
mutate(obsValue = 100 * obsValue / obsValue[date == as.Date("2007-04-01")]) |>
add_flag_color("Ref_area") |>
ggplot() + theme_minimal() + xlab("") + ylab("") +
geom_line(aes(x = date, y = obsValue, color = color)) + add_4flags +
scale_color_identity() +
scale_x_date(breaks = c(seq(1999, 2100, 5), seq(1997, 2100, 5)) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
theme(legend.position = "none") +
scale_y_log10(breaks = seq(50, 200, 5))
QNA_POP_EMPNC |>
filter(REF_AREA %in% c("USA", "EA", "FRA", "DEU"),
FREQ == "Q",
TRANSACTION == "EMP",
ADJUSTMENT == "Y",
SECTOR == "S1") |>
quarter_to_date() |>
rename(LOCATION = REF_AREA) |>
filter(date >= as.Date("1999-01-01")) |>
mutate(Ref_area = ifelse(LOCATION == "EA", "Europe", Ref_area)) |>
group_by(Ref_area) |>
mutate(obsValue = 100 * obsValue / obsValue[date == as.Date("1999-01-01")]) |>
add_flag_color("Ref_area") |>
ggplot() + theme_minimal() + xlab("") + ylab("") +
geom_line(aes(x = date, y = obsValue, color = color)) + add_2flags +
scale_color_identity() +
scale_x_date(breaks = c(seq(1999, 2100, 5), seq(1997, 2100, 5)) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
theme(legend.position = "none") +
scale_y_log10(breaks = seq(50, 200, 5))