Average annual hours actually worked per worker - ANHRS

Name: Average annual hours actually worked per worker
Creator: François Geerolf
License: https://creativecommons.org/licenses/by/4.0/

Data - OECD

Author

François Geerolf

Last observation: 2022 (N = 88)

First observation: 1950 (N = 5)

Last data update: 02 août 2026, 08:56

Last compile: 06 sept. 2026, 14:49

Structure

Info

80 years = 700800 hours:

Code

80*365*24

# [1] 700800

The data are intended for comparisons of trends over time; they are unsuitable for comparisons of the level of average annual hours of work for a given year, because of differences in their sources and method of calculation.

COUNTRY

All

Code

ANHRS |>
  left_join(ANHRS_var$COUNTRY, by = "COUNTRY") |>
  group_by(COUNTRY, Country) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) |>
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Country))),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) |>
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

By EMPSTAT

Code

ANHRS |>
  left_join(ANHRS_var$COUNTRY, by = "COUNTRY") |>
  left_join(ANHRS_var$EMPSTAT, by = "EMPSTAT") |>
  group_by(COUNTRY, Country, Empstat) |>
  summarise(Nobs = n()) |>
  spread(Empstat, Nobs) |>
  arrange(-`Total employment`) |>
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Country))),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) |>
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

obsTime

Code

ANHRS |>
  group_by(obsTime) |>
  summarise(Nobs = n()) |>
  arrange(desc(obsTime)) |>
  print_table_conditional()

Both

Germany, Denmark

Code

ANHRS |>
  filter(COUNTRY %in% c("DEU", "DNK")) |>
  left_join(ANHRS_var$EMPSTAT, by = "EMPSTAT") |>
  left_join(ANHRS_var$COUNTRY, by = "COUNTRY") |>
  mutate(Empstat = factor(Empstat, levels = c("Total employment", "Dependent employment"))) |>
  year_to_date() |>
  add_flag_color("Country") |>
  rename(Location = Country) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Empstat)) + 
  scale_color_identity() + add_4flags + theme_minimal() +
  ylab("Hours worked per worker, per year") + xlab("") +
  scale_x_date(breaks = seq(1920, 2100, 10) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(100, 3000, 100),
                     labels = dollar_format(prefix = "", suffix = " hrs / year", acc = 1)) +
  theme(legend.position = c(0.7, 0.9),
        legend.title = element_blank())

France, United States

Code

ANHRS |>
  filter(COUNTRY %in% c("FRA", "USA")) |>
  left_join(ANHRS_var$EMPSTAT, by = "EMPSTAT") |>
  left_join(ANHRS_var$COUNTRY, by = "COUNTRY") |>
  mutate(Empstat = factor(Empstat, levels = c("Total employment", "Dependent employment"))) |>
  year_to_date() |>
  add_flag_color("Country") |>
  rename(Location = Country) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Empstat)) + 
  scale_color_identity() + add_4flags + theme_minimal() +
  ylab("Hours worked per worker, per year") + xlab("") +
  scale_x_date(breaks = seq(1920, 2100, 10) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(100, 3000, 100),
                     labels = dollar_format(prefix = "", suffix = " hrs / year", acc = 1)) +
  theme(legend.position = c(0.7, 0.9),
        legend.title = element_blank())

France, United States, Germany

Code

ANHRS |>
  filter(COUNTRY %in% c("FRA", "USA", "DEU")) |>
  left_join(ANHRS_var$EMPSTAT, by = "EMPSTAT") |>
  left_join(ANHRS_var$COUNTRY, by = "COUNTRY") |>
  mutate(Empstat = factor(Empstat, levels = c("Total employment", "Dependent employment"))) |>
  year_to_date() |>
  add_flag_color("Country") |>
  rename(Location = Country) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Empstat)) + 
  scale_color_identity() + add_6flags + theme_minimal() +
  ylab("Hours worked per worker, per year") + xlab("") +
  scale_x_date(breaks = seq(1920, 2100, 10) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(100, 3000, 100),
                     labels = dollar_format(prefix = "", suffix = " hrs / year", acc = 1)) +
  theme(legend.position = c(0.7, 0.9),
        legend.title = element_blank())

Total Employment

Change

Code

ANHRS |>
  filter(obsTime %in% c("2019", "1973"),
         EMPSTAT == "TE") |>
  left_join(ANHRS_var$COUNTRY, by = "COUNTRY") |>
  select(COUNTRY, Country, obsTime, obsValue) |>
  spread(obsTime, obsValue) |>
  mutate(Change = `2019` - `1973`) |>
  arrange(Change) |>
  print_table_conditional()

2019

Code

ANHRS |>
  filter(obsTime == "2019") |>
  left_join(ANHRS_var$COUNTRY, by = "COUNTRY") |>
  left_join(ANHRS_var$EMPSTAT, by = "EMPSTAT") %>%
  select_if(~ n_distinct(.) > 1) |>
  select(-COUNTRY, -EMPSTAT) |>
  spread(Empstat, obsValue) |>
  arrange(`Total employment`) |>
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Country))),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) |>
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

France, Germany, Italy, United States, Spain

All

Code

ANHRS |>
  filter(COUNTRY %in% c("DEU", "FRA", "ITA", "USA", "ESP"),
         EMPSTAT == "TE") |>
  left_join(ANHRS_var$COUNTRY, by = "COUNTRY") |>
  year_to_date() |>
  add_flag_color("Country") |>
  rename(Location = Country) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_5flags + theme_minimal() +
  ylab("Hours worked per worker, per year - Total Emp.") + xlab("") +
  scale_x_date(breaks = seq(1920, 2100, 10) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(100, 3000, 100),
                     labels = dollar_format(prefix = "", suffix = " hrs / year", acc = 1))

1995-

Heures / an

Code

ANHRS |>
  filter(COUNTRY %in% c("DEU", "FRA", "ITA", "USA", "ESP"),
         EMPSTAT == "TE") |>
  left_join(ANHRS_var$COUNTRY, by = "COUNTRY") |>
  year_to_date() |>
  filter(date >= as.Date("1995-01-01")) |>
  add_flag_color("Country") |>
  rename(Location = Country) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_5flags + theme_minimal() +
  ylab("Heures par travailleur, par an") + xlab("") +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(100, 3000, 100),
                     labels = dollar_format(prefix = "", suffix = " h/ans", acc = 1))

Indice = 100

Code

ANHRS |>
  filter(COUNTRY %in% c("DEU", "FRA", "ITA", "USA", "ESP"),
         EMPSTAT == "TE") |>
  left_join(ANHRS_var$COUNTRY, by = "COUNTRY") |>
  year_to_date() |>
  filter(date >= as.Date("1995-01-01")) |>
  add_flag_color("Country") |>
  rename(Location = Country) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == as.Date("1995-01-01")]) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_5flags + theme_minimal() +
  ylab("Heures par travailleur, par an (1995 = 100)") + xlab("") +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(10, 300, 2))

France, Sweden, United States

Code

ANHRS |>
  filter(COUNTRY %in% c("SWE", "FRA", "USA"),
         EMPSTAT == "TE") |>
  left_join(ANHRS_var$COUNTRY, by = "COUNTRY") |>
  year_to_date() |>
  add_flag_color("Country") |>
  rename(Location = Country) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_3flags + theme_minimal() +
  ylab("Hours worked per worker, per year - Total Emp.") + xlab("") +
  scale_x_date(breaks = seq(1920, 2100, 10) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(100, 3000, 100),
                     labels = dollar_format(prefix = "", suffix = " hrs / year", acc = 1))

Canada, Finland, Norway

Code

ANHRS |>
  filter(COUNTRY %in% c("FIN", "CAN", "NOR"),
         EMPSTAT == "TE") |>
  left_join(ANHRS_var$COUNTRY, by = "COUNTRY") |>
  year_to_date() |>
  add_flag_color("Country") |>
  rename(Location = Country) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_3flags + theme_minimal() +
  ylab("Hours worked per worker, per year - Total Emp.") + xlab("") +
  scale_x_date(breaks = seq(1920, 2100, 10) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(100, 3000, 100),
                     labels = dollar_format(prefix = "", suffix = " hrs / year", acc = 1))

France, Germany, Italy

All

Code

ANHRS |>
  filter(COUNTRY %in% c("DEU", "FRA", "ITA"),
         EMPSTAT == "TE") |>
  left_join(ANHRS_var$COUNTRY, by = "COUNTRY") |>
  year_to_date() |>
  add_flag_color("Country") |>
  rename(Location = Country) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_3flags + theme_minimal() +
  ylab("Hours worked per worker, per year - Total Emp.") + xlab("") +
  scale_x_date(breaks = seq(1920, 2100, 10) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(100, 3000, 100),
                     labels = dollar_format(prefix = "", suffix = " hrs / year", acc = 1))

1970-

Code

ANHRS |>
  filter(COUNTRY %in% c("DEU", "FRA", "ITA"),
         EMPSTAT == "TE") |>
  left_join(ANHRS_var$COUNTRY, by = "COUNTRY") |>
  year_to_date() |>
  add_flag_color("Country") |>
  rename(Location = Country) |>
  filter(date >= as.Date("1970-01-01")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_3flags + theme_minimal() +
  ylab("Hours worked per worker, per year - Total Emp.") + xlab("") +
  scale_x_date(breaks = seq(1920, 2100, 10) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(100, 3000, 100),
                     labels = dollar_format(prefix = "", suffix = " hrs / year", acc = 1))

Japan, United Kingdom, United States

Code

ANHRS |>
  filter(COUNTRY %in% c("GBR", "JPN", "USA"),
         EMPSTAT == "TE") |>
  left_join(ANHRS_var$COUNTRY, by = "COUNTRY") |>
  year_to_date() |>
  add_flag_color("Country") |>
  rename(Location = Country) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_3flags + theme_minimal() +
  ylab("Hours worked per worker, per year - Total Emp.") + xlab("") +
  scale_x_date(breaks = seq(1920, 2100, 10) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(100, 3000, 100),
                     labels = dollar_format(prefix = "", suffix = " hrs / year", acc = 1))

Denmark, Netherlands, Norway

Code

ANHRS |>
  filter(COUNTRY %in% c("NLD", "DNK", "NOR"),
         EMPSTAT == "TE") |>
  left_join(ANHRS_var$COUNTRY, by = "COUNTRY") |>
  year_to_date() |>
  add_flag_color("Country") |>
  rename(Location = Country) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_3flags + theme_minimal() +
  ylab("Hours worked per worker, per year - Total Emp.") + xlab("") +
  scale_x_date(breaks = seq(1920, 2100, 10) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(100, 3000, 100),
                     labels = dollar_format(prefix = "", suffix = " hrs / year", acc = 1))

Dependent Employment

France, Germany, Italy, United States, Spain

All

Code

ANHRS |>
  filter(COUNTRY %in% c("DEU", "FRA", "ITA", "USA", "ESP"),
         EMPSTAT == "DE") |>
  left_join(ANHRS_var$COUNTRY, by = "COUNTRY") |>
  year_to_date() |>
  add_flag_color("Country") |>
  rename(Location = Country) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_5flags + theme_minimal() +
  ylab("Hours worked per worker, per year - Dependent Emp.") + xlab("") +
  scale_x_date(breaks = seq(1920, 2100, 10) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(100, 3000, 100),
                     labels = dollar_format(prefix = "", suffix = " hrs / year", acc = 1))

France, Germany, Italy

Code

ANHRS |>
  filter(COUNTRY %in% c("DEU", "FRA", "ITA"),
         EMPSTAT == "DE") |>
  left_join(ANHRS_var$COUNTRY, by = "COUNTRY") |>
  year_to_date() |>
  add_flag_color("Country") |>
  rename(Location = Country) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_3flags + theme_minimal() +
  ylab("Hours worked per worker, per year - Dependent Emp.") + xlab("") +
  scale_x_date(breaks = seq(1920, 2100, 10) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(100, 3000, 100),
                     labels = dollar_format(prefix = "", suffix = " hrs / year", acc = 1))

Japan, United Kingdom, United States

Code

ANHRS |>
  filter(COUNTRY %in% c("GBR", "JPN", "USA"),
         EMPSTAT == "DE") |>
  left_join(ANHRS_var$COUNTRY, by = "COUNTRY") |>
  year_to_date() |>
  add_flag_color("Country") |>
  rename(Location = Country) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_3flags + theme_minimal() +
  ylab("Hours worked per worker, per year - Dependent Emp.") + xlab("") +
  scale_x_date(breaks = seq(1920, 2100, 10) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(100, 3000, 100),
                     labels = dollar_format(prefix = "", suffix = " hrs / year", acc = 1))

Denmark, Netherlands, Norway

Code

ANHRS |>
  filter(COUNTRY %in% c("DNK", "NLD", "NOR"),
         EMPSTAT == "DE") |>
  left_join(ANHRS_var$COUNTRY, by = "COUNTRY") |>
  year_to_date() |>
  add_flag_color("Country") |>
  rename(Location = Country) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_3flags + theme_minimal() +
  ylab("Hours worked per worker, per year - Dependent Emp.") + xlab("") +
  scale_x_date(breaks = seq(1920, 2100, 10) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(100, 3000, 100),
                     labels = dollar_format(prefix = "", suffix = " hrs / year", acc = 1))

Related Data

Germany by the Numbers

source	dataset	Title	Updated
oecd	ANHRS	Average annual hours actually worked per worker - ANHRS	2026-08-02
eurostat	bop_c6_q	Balance of payments by country - quarterly data (BPM6) - bop_c6_q	2026-04-13
eurostat	ilc_di01	Distribution of income by quantiles - EU-SILC and ECHP surveys - ilc_di01	2026-07-27
eurostat	ilc_li02	At-risk-of-poverty rate by poverty threshold, age and sex - EU-SILC and ECHP surveys - ilc_li02	2026-08-14
eurostat	sts_intvnd_m	Turnover in industry, non domestic market - monthly data - sts_intvnd_m	2026-09-03
oecd	7HA_A_Q	Households’ financial and non-financial assets and liabilities - 7HA_A_Q	2026-08-02
oecd	AV_AN_WAGE	Average annual wages - AV_AN_WAGE	2026-09-05
oecd	CTS_CIT	Statutory Corporate Income Tax Rates - CTS_CIT	2026-08-02
oecd	DP_LIVE	OECD Data Live dataset - DP_LIVE	2026-08-02
oecd	EO	Economic Outlook	2026-09-05
oecd	GENDER_EMP	Employment by Sex and by Age - GENDER_EMP	2026-08-02
oecd	IDD	Income Distribution Database - IDD	2026-09-05
oecd	LFS_SEXAGE_I_R	LFS by sex and age - indicators - LFS_SEXAGE_I_R	2026-08-02
oecd	MEI_BOP6	Balance of Payments BPM6 - MEI_BOP6	2026-08-02
oecd	METR	Effective tax rate on increasing working hours - METR	2026-08-02
oecd	NAAG	National Accounts at a Glance - NAAG	2026-08-02
oecd	NRR	Net Replacement Rates in unemployment - NRR	2026-08-02
oecd	PAG	Pensions at A Glance - PAG	2026-08-02
oecd	QASA_TABLE720R	Non-consolidated financial balance sheets by economic sector (Quarterly table 0720) - SNA 2008 - QASA_TABLE720R	2026-08-02
oecd	QNA	Quarterly National Accounts - QNA	2026-09-04
oecd	QNA_EXPENDITURE_NATIO_CURR	Quarterly GDP and components - expenditure approach - QNA_EXPENDITURE_NATIO_CURR	2026-09-04
oecd	REV	Revenue Statistics - OECD countries; Comparative tables - REV	2026-08-02
oecd	SNA_TABLE14A	Non-financial accounts by sectors - SNA_TABLE14A	2026-08-02
oecd	SNA_TABLE8A	Capital formation by activity ISIC rev4 - SNA_TABLE8A	2026-08-02
oecd	SOCX_AGG	Social Expenditure - Aggregated data - SOCX_AGG	2026-08-02
oecd	TABLE_I1	Central government personal income tax rates and thresholds - TABLE_I1	2026-08-02
oecd	TABLE_I7	Top statutory personal income tax rate and top marginal tax rates for employees - TABLE_I7	2026-08-02
oecd	TABLE_II4	Overall statutory tax rates on dividend income - TABLE_II4	2026-08-02
oecd	TABLE_III1	Employee social security contribution rates - TABLE_III1	2026-08-02
oecd	ULC_ANN	Unit Labour Costs - Annual Indicators - ULC_ANN	2026-08-02
wdi	NY.GDP.PCAP.PP.KD	GDP per capita, PPP (constant 2011 international D) - NY.GDP.PCAP.PP.KD	2026-09-04

Data on productivity

source	dataset	Title	Updated
oecd	ANHRS	Average annual hours actually worked per worker - ANHRS	2026-08-02
oecd	PDB_LV	Level of GDP per capita and productivity - PDB_LV	2026-05-24
oecd	ULC_EEQ	Unit labour costs and labour productivity (employment based), Total economy - ULC_EEQ	2026-08-02