Participation in activities of churches or other religious organisations by level of activity limitation, sex and age - hlth_ds040

Data - Eurostat

Author

François Geerolf

Info

Last observation: Annual: 2006 (N = 3,128)

First observation: Annual: 2006 (N = 3,128)

Last data update: 23 jul 2026, 22:21. Last compile: 24 jul 2026, 01:51

Structure

Religious Share

Code

hlth_ds040 %>%
  filter(age == c("Y_GE16"),
         sex == "T",
         lev_limit == "NONE",
         yes_no == "YES") %>%
  
  right_join(europe_NUTS0, by = "geo") %>%
  filter(long >= -13.8, lat >= 33) %>%
  ggplot(., aes(x = long, y = lat, group = group, fill = values/100)) +
  geom_polygon() + coord_map() +
  scale_fill_viridis_c(na.value = "white",
                       labels = percent_format(accuracy = 1),
                       breaks = 0.01*seq(0, 90, 10),
                       values = c(0, 0.1, 0.2, 0.3, 0.4, 0.5, 1)) +
  theme_void() + theme(legend.position = c(0.15, 0.85)) +
  labs(fill = "Religious Share")

Country Ranking

Religious Participation, No Activity Limitation

Code

hlth_ds040 %>%
  filter(age == "Y_GE16",
         sex == "T",
         lev_limit == "NONE",
         yes_no == "YES",
         !grepl("European Union", Geo)) %>%
  mutate(values = values/100) %>%
  ggplot + geom_col(aes(x = reorder(Geo, values), y = values), fill = "steelblue") +
  coord_flip() + theme_minimal() +
  xlab("") + ylab("Participation in religious activities (2006)") +
  scale_y_continuous(labels = scales::percent_format(accuracy = 1))

Activity Limitation Gap

Selected Countries

Code

hlth_ds040 %>%
  filter(geo %in% c("FR", "DE", "IT", "ES", "PL", "NL", "IE", "PT"),
         age == "Y_GE16",
         sex == "T",
         yes_no == "YES",
         lev_limit %in% c("NONE", "SM_SEV")) %>%
  mutate(values = values/100) %>%
  ggplot + geom_col(aes(x = reorder(Geo, values), y = values, fill = Lev_limit),
                     position = "dodge") +
  coord_flip() + theme_minimal() +
  theme(legend.title = element_blank()) +
  xlab("") + ylab("Participation in religious activities (2006)") +
  scale_y_continuous(labels = scales::percent_format(accuracy = 1))

By Age Group

Code

hlth_ds040 %>%
  filter(geo %in% c("EU27_2007", "FR", "DE", "IT", "PL"),
         sex == "T",
         lev_limit == "NONE",
         yes_no == "YES",
         age %in% c("Y16-24", "Y25-34", "Y35-44", "Y45-54", "Y55-64", "Y_GE65")) %>%
  select(Geo, Age, values) %>%
  spread(Age, values) %>%
  print_table_conditional()

Geo	65 years or over	From 16 to 24 years	From 25 to 34 years	From 35 to 44 years	From 45 to 54 years	From 55 to 64 years
European Union - 27 countries (2007-2013)	25.0	18.1	17.2	19.0	20.9	21.3
France	2.7	0.6	0.7	1.1	1.4	1.9
Germany	20.8	12.4	11.2	15.8	14.9	15.2
Italy	22.4	17.5	15.3	18.4	18.1	21.4
Poland	74.0	69.5	65.8	71.1	69.6	71.8