dupl.2.DF$SSUMS<-sample_sums(dupl.2) #Add sample sums column in data frame rownames(dupl.1.DF)<-dupl.1.DF$sample_ID rownames(dupl.2.DF)<-dupl.2.DF$sample_ID dupl.2.DF<-dupl.2.DF[match(rownames(dupl.1.DF),rownames(dupl.2.DF) ),] rownames(BC1)<-colnames(BC1)<-sample_...
library(tidyverse) pay17 <- read_csv("data/UK Gender Pay Gap Data - 2017 to 2018.csv") pay18 <- read_csv("data/UK Gender Pay Gap Data - 2018 to 2019.csv") pay19 <- read_csv("data/UK Gender Pay Gap Data - 2019 to 2020.csv") pay20 <- read_csv("data/UK Gender Pay Gap...