convert_esaps: Converts data in table form to tidy_data
In esaps: Indicators of Electoral Systems and Party Systems

Description Usage Arguments Value Author(s) Examples

View source: R/convert_esaps.R

Convert data in table format to tidy_data to use in the indicators of the tidy_data.

convert_esaps(
  path = NULL,
  dataset = NULL,
  file.name = NULL,
  nSheets = 1,
  election.name,
  unit.name,
  M.name = NULL,
  votes_nac.name = NULL,
  seats = FALSE,
  allSheet = FALSE
)

`path`	Character vector containing one or more path names.
`dataset`	Electoral results by party. It can be a `data.frame` or a `list`.
`file.name`	Name of the data file with extension.
`nSheets`	Number of countries (number of sheets).' 'Country' is a generic unit of analysis (province, department, etc.)
`election.name`	Name of the variable that contains elections.
`unit.name`	Name of the variable that contains the unit. 'unit' is a generic unit of analysis (province, department, etc.)
`M.name`	Name of the variable that contains the district magnitude (M+1). It is for the calculation of endogenous and exogenous electoral volatility (Torcal and Lago, 2015).
`votes_nac.name`	la la la
`seats`	By default it is `FALSE`. If it is `TRUE`, it indicates that, in addition to electoral data per party, there is allocation data per seat. In this case, one column must be loaded for each party with the electoral result and another with the number of seats it obtained. The structure must be: party_1, party_2, ..., party_n, seats_party_1, seats_party_2, ..., seats_party_n.
`allSheet`	By default it is `FALSE`. Load all the sheets that are in the files selected in `file.name`. This argument takes precedence over `nSheets`.

data.frame

Nicolas Schmidt nschmidt@cienciassociales.edu.uy

votes <- list(data.frame(country = rep("ARG", 3),
                         year = c(1995, 2000, 2005),
                         party_A = c(40,10,20),
                         party_B = c(35,20,40),
                         party_C = c(25,70,40)),
              data.frame(country = rep("URY", 4),
                         year = c(1995, 2000, 2005, 2010),
                         party_A = c(30,30,20,20),
                         party_B = c(30,50,40, 30),
                         party_C = c(30,10,30, 25),
                         party_D = c(10,10,10,25)),
              data.frame(country = rep("BRA", 2),
                         year = c(1993, 1998),
                         party_A = c(30, 55),
                         party_B = c(70, 45)))

votes <- convert_esaps(dataset = votes, unit.name = "country", election.name = "year")


votes2 <- data.frame(year = c(2000, 2005),
                     country = "URY",
                     votes_party1 = c(20, 30),
                     votes_party2 = c(30, 35),
                     votes_party3 = c(40, 25),
                     votes_party4 = c(10, 10),
                     seats_party1 = c(25, 35),
                     seats_party2 = c(20, 30),
                     seats_party3 = c(40, 30),
                     seats_party4 = c(15, 5))

votes <- convert_esaps(dataset = votes2, unit.name = "country", election.name = "year",
                       seats = TRUE)


## Not run: 
v1 <- convert_esaps(path = getwd(),
                   file.name = c("electionBRA.xlsx", "electionARG.xlsx"),
                   election.name = "elec",
                   unit.name = "district",
                   allSheet = TRUE)

v2 <-convert_esaps(path = getwd(),
                   file.name = c("ARG.ods", "URY.ods", "BRA.ods"),
                   nCountry = c(2, 3, 1),
                   election.name = "elec",
                   unit.name = "province")

v3 <- convert_esaps(path = here::here(),
                   file.name = list.files(pattern = "*.xlsx"),
                   election.name = "year",
                   unit.name = "country",
                   M.name = "magnitude",
                   seats = TRUE,
                   allSheet = TRUE)

## End(Not run)