data = tidy(
voting,
mutate({
total_vote: (d) => clean_num(d, "Total vote"),
registration: (d) => clean_num(d, "Registration"),
voter_turnout: (d) => clean_percent(d, "Voter Turnout"),
vap_turnout: (d) => clean_percent(d, "VAP Turnout"),
invalid_votes: (d) => clean_percent(d, "Invalid votes"),
population: (d) => clean_num(d, "Population"),
voting_age_population: (d) => clean_num(d, "Voting age population"),
compulsory_voting: (d) => d["Compulsory voting"],
year: (d) => d["Year"],
election_type: (d) => d["Election type"],
country: (d) => d.Country
}),
select([
"country",
"population",
"election_type",
"total_vote",
"registration",
"voter_turnout",
"compulsory_voting",
"invalid_votes",
"voting_age_population",
"year"
])
)