Hvordan påvirker arbejdsbelastningen det subjektive velvære?

En komparativ undersøgelse af fem velfærdsstater

Intro

xxxxxx test opr

Data

xxxxxxx (Agerskov 2022)

Velfærdsmodeller

xxxxxxx

Udviklingen i arbejdsmarkedet

xxxxxxx

Show code

## Part-time employment as percentage of the total employment, by sex and age (%), 15-64 år - Skandinavien vs. Tyskland og Storbritannien   
##Data kilde: https://ec.europa.eu/eurostat/databrowser/view/LFSA_EPPGA__custom_2957721/settings_1/table?lang=en   
plot.DKNOSE = datam %>% 
  mutate(Gender = "Mænd") %>%
  bind_rows(datak %>% mutate(Gender = "Kvinder")) %>%
  pivot_longer(c("DK", "SE", "NO")) %>%
  ggplot(aes(as.numeric(År), value, colour = name)) +
  geom_line(aes(linetype=name, color=name, group=name), size = 1.35) +
  scale_linetype_manual(values=c("solid", "dashed", "dotted")) + 
  scale_size_manual(values=c(1, 1.5)) +
  facet_grid(Gender ~ ., scales = "free_y") +  #scale free_y justerer akserne
  # theme_light() + 
  # theme(legend.title = "element_blank") +
  # theme(panel.background = element_rect(fill = "#D1E4CE")) +  # ændrer farven på baggrunden i plot
  theme(strip.background = element_rect(fill="lightgray")) +  # ændre farven på panel labels 
  theme(strip.text = element_text(colour = 'black')) +  # ændre farven på teksten i panel labels
  theme(strip.text.y = element_text(size = 12)) +  
  labs(x = "År", y = "Procent i deltidsbeskæftigelse") + 
  scale_color_manual(values=c("#AFCDB1", "#2A732F", "#706C64")) +  # eller brug rød farve tone #B00020
  guides(size = "none") + theme(legend.title=element_blank()) + 
  theme(legend.key.height= unit(0.65, 'cm'),legend.key.width= unit(1.35, 'cm')) +  # ændre størrelsen på legend, længde og højde
  theme(legend.position = "top") + 
  ggtitle("Skandinavien") + theme(plot.title = element_text(color="black", size=14, face="bold", hjust = 0.55)) + 
  scale_x_continuous(breaks = seq(1995, 2019, by = 3)) +
  theme(axis.title.y = element_text(margin = margin(r = 10)), 
        axis.title.x = element_text(margin = margin(t = 10))) +
  theme(text = element_text(size = 14)) +
  theme(text = element_text(family = "TNR")) # ændre skrifttypen i plot

plot.DEGB = datam %>% 
  mutate(Gender = "Mænd") %>%
  bind_rows(datak %>% mutate(Gender = "Kvinder")) %>%
  pivot_longer(c("DE", "GB")) %>%
  ggplot(aes(as.numeric(År), value, colour = name)) +
  geom_line(aes(linetype=name, color=name, group=name), size = 1.35) +
  scale_linetype_manual(values=c("dotdash", "dotted")) + 
  scale_size_manual(values=c(1, 1,5)) +
  facet_grid(Gender ~ ., scales = "free_y") +  #scale free_y justerer akserne
  # theme_light() + 
  # theme(legend.title = "element_blank") +
  # theme(panel.background = element_rect(fill = "#D1E4CE")) +  # ændrer farven på baggrunden i plot
  theme(strip.background = element_rect(fill="lightgray")) +  # ændre farven på panel labels 
  theme(strip.text = element_text(colour = 'black')) +  # ændre farven på teksten i panel labels
  theme(strip.text.y = element_text(size = 12)) +
  labs(x = "År", y = "Procent i deltidsbeskæftigelse") + 
  scale_color_manual(values=c("dodgerblue4", "#8C0C25")) +  # eller brug rød farve tone #B00020
  guides(size = "none") + theme(legend.title=element_blank()) + 
  theme(legend.key.height= unit(0.65, 'cm'),legend.key.width= unit(1.35, 'cm')) +  # ændre størrelsen på legend, længde og højde
  theme(legend.position = "top") +
  ggtitle("Tyskland og Storbritannien") + theme(plot.title = element_text(color="black", size=14, face="bold", hjust = 0.55)) + 
  scale_x_continuous(breaks = seq(1995, 2019, by = 3)) +
  theme(axis.title.y = element_text(margin = margin(r = 10)), 
        axis.title.x = element_text(margin = margin(t = 10))) +
  theme(text = element_text(size = 14)) +
  theme(text = element_text(family = "TNR")) # ændre skrifttypen i plot


#### Samler i et plot, for bedre at kunne sammenligne
#library(cowplot)
#plot_grid(plot.DKNOSE, plot.DEGB, labels = c("", ""), ncol = 2, nrow = 1, label_x = 0.35, label_y = 1.020, label_size=14)

plot.DKNOSE

Show code

plot.DEGB

Show code

#png(filename="G:/Mit drev/speciale mappen/Speciale - Subjektivt velvær/plot2.nyfarve.png", width = 800, height = 330)
#plot_grid(plot.DKNOSE, plot.DEGB, labels = c("", ""), ncol = 2, nrow = 1, label_x = 0.35, label_y = 1.020, label_size=14)
#dev.off()