# Get the result data, then rename the columns.
result_data = read.csv(file = "WCA_export_Results.tsv", head = TRUE, sep = "\t")
results = data.frame(result_data$personId, result_data$competitionId,
result_data$eventId, result_data$average, result_data$value1,
result_data$value2, result_data$value3, result_data$value4,
result_data$value5)
names(results) = c("person", "comp", "event", "average", "s1", "s2", "s3",
"s4", "s5")
# Get the person data.
person_data = read.csv(file = "WCA_export_Persons.tsv", head = TRUE, sep = "\t")
people = data.frame(person_data$id, person_data$subid,
person_data$countryId, person_data$gender)
names(people) = c("person", "subid", "country", "gender")
people = subset(people, subid == 1)
# Merge and filter to only women.
female_solves = merge(x = results, y = people, by.x = "person", by.y = "person")
female_solves = subset(female_solves, gender == "f")