inst/Paper/paper_script_dataprep.R
In LuMesserschmidt/UNPC: United Nations Political Competition Measurement
rm(list=ls())
library(tidyverse)
library(readxl)
# Choose Country Codes----
#load("inst/extdata/UN-73new.RData")
#"%ni%" = Negate( "%in%" )
#codes<-completeVotes[completeVotes$year==2018,]
#codes<-completeVotes[,c("Country")]
#codes<-sort(unique(codes$Country))
#competed1<-codes[codes %ni% c("USA","CHN")]
#Problem with Taiwan
#codes<- read_excel("inst/extdata/country_codes.xlsx", sheet = 1,skip=1)
#codes<-codes[,c("official_name_en","ISO3166-1-Alpha-3","Developed / Developing Countries","Sub-region Name")]
#codes<-codes[codes$`ISO3166-1-Alpha-3`%in%completeVotes$Country,]
#competed1<- codes[codes$`ISO3166-1-Alpha-3`]
#competed1<-competed1$`ISO3166-1-Alpha-3`'
#codes<-completeVotes[completeVotes$year==2018,]
df<-table(codes$Country,codes$vote)
df<-as.data.frame(df)
df<-as.character(df$Var1)
df<-sort(unique(df))
df1<-df[df %ni% c("USA","RUS","CHN","FRA")]
codes<-completeVotes[completeVotes$year==2010,]
df<-table(codes$Country,codes$vote)
df<-as.data.frame(df)
df<-as.character(df$Var1)
df<-sort(unique(df))
df2<-df[df %ni% c("USA","RUS","CHN","FRA")]
codes<-completeVotes[completeVotes$year==2000,]
df<-table(codes$Country,codes$vote)
df<-as.data.frame(df)
df<-as.character(df$Var1)
df<-sort(unique(df))
df3<-df[df %ni% c("USA","RUS","CHN","FRA")]
codes<-completeVotes[completeVotes$year==1990,]
df<-table(codes$Country,codes$vote)
df<-as.data.frame(df)
df<-as.character(df$Var1)
df<-sort(unique(df))
df4<-df[df %ni% c("USA","RUS","CHN","FRA")]
codes<-completeVotes[completeVotes$year==1980,]
df<-table(codes$Country,codes$vote)
df<-as.data.frame(df)
df<-as.character(df$Var1)
df<-sort(unique(df))
df5<-df[df %ni% c("USA","RUS","CHN","FRA")]
codes<-completeVotes[completeVotes$year==1970,]
df<-table(codes$Country,codes$vote)
df<-as.data.frame(df)
df<-as.character(df$Var1)
df<-sort(unique(df))
df6<-df[df %ni% c("USA","RUS","CHN","FRA")]
df_2018<- c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF","CAN","CHE","CHL","CIV","CMR","COD"
,"COG","COL","COM","CPV","CRI","CUB","CYP","CZE","DEU","DJI","DMA","DNK","DOM","DZA","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM","GAB","GBR","GEO","GHA","GIN","GMB","GNB","GNQ","GRC","GRD","GTM","GUY"
,"HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN","KGZ","KHM","KIR","KNA","KOR","KWT","LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX","LVA","MAR"
,"MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNE","MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC","NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL","PRK"
,"PRT","PRY","QAT","ROU","RWA","SAU","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SRB","SSD","STP","SUR","SVK","SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN","TUR","TUV"
,"TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YEM","ZAF","ZMB","ZWE")
df_2010<- c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF",
"CAN","CHE","CHL","CIV","CMR","COD","COG","COL","COM","CPV","CRI","CUB","CYP","CZE","DEU","DJI","DMA","DNK","DOM","DZA","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM",
"GAB","GBR","GEO","GHA","GIN","GMB","GNB","GNQ","GRC","GRD","GTM","GUY","HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN"
,"KGZ","KHM","KIR","KNA","KOR","KWT","LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX","LVA","MAR","MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNE"
,"MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC","NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL","PRK","PRT","PRY","QAT","ROU","RWA"
,"SAU","SCG","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SRB","SSD","STP","SUR","SVK","SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN",
"TUR","TUV","TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YEM","YUG","ZAF","ZMB","ZWE")
df_2000<- c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF","CAN","CHE","CHL","CIV","CMR","COD","COG"
,"COL","COM","CPV","CRI","CSK","CUB","CYP","CZE","DDR","DEU","DJI","DMA","DNK","DOM","DZA","EAZ","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM","GAB","GBR","GEO","GHA","GIN","GMB","GNB","GNQ","GRC","GRD","GTM"
,"GUY","HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN","KGZ","KHM","KIR","KNA","KOR","KWT","LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX","LVA","MAR"
,"MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNE","MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC","NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL","PRK","PRT"
,"PRY","QAT","ROU","RWA","SAU","SCG","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SRB","SSD","STP","SUR","SVK","SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN","TUR","TUV","TWN"
,"TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YEM","YMD","YUG","ZAF","ZMB","ZWE")
df_1990<- c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF","CAN","CHE","CHL"
,"CIV","CMR","COD","COG","COL","COM","CPV","CRI","CSK","CUB","CYP","CZE","DDR","DEU","DJI","DMA","DNK","DOM","DZA","EAZ","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM","GAB","GBR","GEO"
,"GHA","GIN","GMB","GNB","GNQ","GRC","GRD","GTM","GUY","HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN","KGZ","KHM","KIR","KNA","KOR","KWT"
,"LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX","LVA","MAR","MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC"
,"NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL","PRK","PRT","PRY","QAT","ROU","RWA","SAU","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SSD","STP","SUR","SVK"
,"SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN","TUR","TUV","TWN","TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YMD","YUG","ZAF","ZMB","ZWE")
df_1980 <- c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF","CAN","CHE","CHL","CIV","CMR","COD"
,"COG","COL","COM","CPV","CRI","CSK","CUB","CYP","CZE","DDR","DJI","DMA","DNK","DOM","DZA","EAZ","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM","GAB","GBR","GEO","GHA","GIN","GMB","GNB","GNQ","GRC","GRD"
,"GTM","GUY","HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN","KGZ","KHM","KIR","KNA","KOR","KWT","LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX"
,"LVA","MAR","MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC","NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL"
,"PRK","PRT","PRY","QAT","ROU","RWA","SAU","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SSD","STP","SUR","SVK","SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN","TUR","TUV"
,"TWN","TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YMD","YUG","ZAF","ZMB","ZWE")
df_1970 <- c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF","CAN","CHE","CHL","CIV","CMR","COD"
,"COG","COL","COM","CPV","CRI","CSK","CUB","CYP","CZE","DDR","DJI","DMA","DNK","DOM","DZA","EAZ","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM","GAB","GBR","GEO","GHA","GIN","GMB","GNB","GNQ","GRC","GRD"
,"GTM","GUY","HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN","KGZ","KHM","KIR","KNA","KOR","KWT","LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX"
,"LVA","MAR","MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC","NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL"
,"PRK","PRT","PRY","QAT","ROU","RWA","SAU","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SSD","STP","SUR","SVK","SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN","TUR","TUV"
,"TWN","TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YMD","YUG","ZAF","ZMB","ZWE")
# Calculate UNPC for USA, CHN, FRA and RUS for 1970, 1980, 1990, 2000, 2010 and 2018 ----
competitors <- c("USA","RUS","CHN","FRA")
#df_2018
recipients = c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF","CAN","CHE","CHL","CIV","CMR","COD"
,"COG","COL","COM","CPV","CRI","CUB","CYP","CZE","DEU","DJI","DMA","DNK","DOM","DZA","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM","GAB","GBR","GEO","GHA","GIN","GMB","GNB","GNQ","GRC","GRD","GTM","GUY"
,"HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN","KGZ","KHM","KIR","KNA","KOR","KWT","LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX","LVA","MAR"
,"MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNE","MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC","NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL","PRK"
,"PRT","PRY","QAT","ROU","RWA","SAU","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SRB","SSD","STP","SUR","SVK","SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN","TUR","TUV"
,"TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YEM","ZAF","ZMB","ZWE")
triple_list_out <-
list_out <-
map(competitors,
function(comp1){
pmap(list(competitors[competitors != comp1],comp1),
function(comp1,comp2){
pmap(list(comp1,comp2,recipients),
function(comp1,comp2,competed){
print(comp1)
print(comp2)
print(competed)
pol_comp(competitor1 = comp1,
competitor2 = comp2,
competed = competed,
years = c(2018),
out = "all",
weights = c(0.5,0.5))
})
})
})
print(triple_list_out)
View(triple_list_out)
# bind lowest level
triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()))
# bind all levels
unpc_2018<- triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()) %>%
bind_rows()) %>%
bind_rows()
save(unpc_2018,file="inst/extdata/unpc_2018.RData")
# df_2010
recipients = c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF",
"CAN","CHE","CHL","CIV","CMR","COD","COG","COL","COM","CPV","CRI","CUB","CYP","CZE","DEU","DJI","DMA","DNK","DOM","DZA","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM",
"GAB","GBR","GEO","GHA","GIN","GMB","GNB","GNQ","GRC","GRD","GTM","GUY","HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN"
,"KGZ","KHM","KIR","KNA","KOR","KWT","LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX","LVA","MAR","MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNE"
,"MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC","NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL","PRK","PRT","PRY","QAT","ROU","RWA"
,"SAU","SCG","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SRB","SSD","STP","SUR","SVK","SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN",
"TUR","TUV","TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YEM","YUG","ZAF","ZMB","ZWE")
triple_list_out <-
list_out <-
map(competitors,
function(comp1){
pmap(list(competitors[competitors != comp1],comp1),
function(comp1,comp2){
pmap(list(comp1,comp2,recipients),
function(comp1,comp2,competed){
print(comp1)
print(comp2)
print(competed)
pol_comp(competitor1 = comp1,
competitor2 = comp2,
competed = competed,
years = c(2010),
out = "all",
weights = c(0.5,0.5))
})
})
})
print(triple_list_out)
View(triple_list_out)
# bind lowest level
triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()))
# bind all levels
unpc_2010<- triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()) %>%
bind_rows()) %>%
bind_rows()
save(unpc_2010,file="inst/extdata/unpc_2010.RData")
# df_2000
recipients = c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF","CAN","CHE","CHL","CIV","CMR","COD","COG"
,"COL","COM","CPV","CRI","CSK","CUB","CYP","CZE","DDR","DEU","DJI","DMA","DNK","DOM","DZA","EAZ","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM","GAB","GBR","GEO","GHA","GIN","GMB","GNB","GNQ","GRC","GRD","GTM"
,"GUY","HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN","KGZ","KHM","KIR","KNA","KOR","KWT","LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX","LVA","MAR"
,"MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNE","MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC","NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL","PRK","PRT"
,"PRY","QAT","ROU","RWA","SAU","SCG","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SRB","SSD","STP","SUR","SVK","SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN","TUR","TUV","TWN"
,"TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YEM","YMD","YUG","ZAF","ZMB","ZWE")
triple_list_out <-
list_out <-
map(competitors,
function(comp1){
pmap(list(competitors[competitors != comp1],comp1),
function(comp1,comp2){
pmap(list(comp1,comp2,recipients),
function(comp1,comp2,competed){
print(comp1)
print(comp2)
print(competed)
pol_comp(competitor1 = comp1,
competitor2 = comp2,
competed = competed,
years = c(2000),
out = "all",
weights = c(0.5,0.5))
})
})
})
print(triple_list_out)
View(triple_list_out)
# bind lowest level
triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()))
# bind all levels
unpc_2000<- triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()) %>%
bind_rows()) %>%
bind_rows()
save(unpc_2000,file="inst/extdata/unpc_2000.RData")
# df_1990
recipients = c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF","CAN","CHE","CHL"
,"CIV","CMR","COD","COG","COL","COM","CPV","CRI","CSK","CUB","CYP","CZE","DDR","DEU","DJI","DMA","DNK","DOM","DZA","EAZ","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM","GAB","GBR","GEO"
,"GHA","GIN","GMB","GNB","GNQ","GRC","GRD","GTM","GUY","HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN","KGZ","KHM","KIR","KNA","KOR","KWT"
,"LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX","LVA","MAR","MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC"
,"NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL","PRK","PRT","PRY","QAT","ROU","RWA","SAU","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SSD","STP","SUR","SVK"
,"SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN","TUR","TUV","TWN","TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YMD","YUG","ZAF","ZMB","ZWE")
triple_list_out <-
list_out <-
map(competitors,
function(comp1){
pmap(list(competitors[competitors != comp1],comp1),
function(comp1,comp2){
pmap(list(comp1,comp2,recipients),
function(comp1,comp2,competed){
print(comp1)
print(comp2)
print(competed)
pol_comp(competitor1 = comp1,
competitor2 = comp2,
competed = competed,
years = c(1990),
out = "all",
weights = c(0.5,0.5))
})
})
})
print(triple_list_out)
View(triple_list_out)
# bind lowest level
triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()))
# bind all levels
unpc_1990<- triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()) %>%
bind_rows()) %>%
bind_rows()
save(unpc_1990,file="inst/extdata/unpc_1990.RData")
# df_1980
recipients = c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF","CAN","CHE","CHL","CIV","CMR","COD"
,"COG","COL","COM","CPV","CRI","CSK","CUB","CYP","CZE","DDR","DJI","DMA","DNK","DOM","DZA","EAZ","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM","GAB","GBR","GEO","GHA","GIN","GMB","GNB","GNQ","GRC","GRD"
,"GTM","GUY","HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN","KGZ","KHM","KIR","KNA","KOR","KWT","LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX"
,"LVA","MAR","MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC","NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL"
,"PRK","PRT","PRY","QAT","ROU","RWA","SAU","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SSD","STP","SUR","SVK","SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN","TUR","TUV"
,"TWN","TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YMD","YUG","ZAF","ZMB","ZWE")
triple_list_out <-
list_out <-
map(competitors,
function(comp1){
pmap(list(competitors[competitors != comp1],comp1),
function(comp1,comp2){
pmap(list(comp1,comp2,recipients),
function(comp1,comp2,competed){
print(comp1)
print(comp2)
print(competed)
pol_comp(competitor1 = comp1,
competitor2 = comp2,
competed = competed,
years = c(1980),
out = "all",
weights = c(0.5,0.5))
})
})
})
print(triple_list_out)
View(triple_list_out)
# bind lowest level
triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()))
# bind all levels
unpc_1980<- triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()) %>%
bind_rows()) %>%
bind_rows()
save(unpc_1980,file="inst/extdata/unpc_1980.RData")
# df_1970
recipients = c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF","CAN","CHE","CHL","CIV","CMR","COD"
,"COG","COL","COM","CPV","CRI","CSK","CUB","CYP","CZE","DDR","DJI","DMA","DNK","DOM","DZA","EAZ","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM","GAB","GBR","GEO","GHA","GIN","GMB","GNB","GNQ","GRC","GRD"
,"GTM","GUY","HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN","KGZ","KHM","KIR","KNA","KOR","KWT","LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX"
,"LVA","MAR","MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC","NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL"
,"PRK","PRT","PRY","QAT","ROU","RWA","SAU","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SSD","STP","SUR","SVK","SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN","TUR","TUV"
,"TWN","TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YMD","YUG","ZAF","ZMB","ZWE")
triple_list_out <-
list_out <-
map(competitors,
function(comp1){
pmap(list(competitors[competitors != comp1],comp1),
function(comp1,comp2){
pmap(list(comp1,comp2,recipients),
function(comp1,comp2,competed){
print(comp1)
print(comp2)
print(competed)
pol_comp(competitor1 = comp1,
competitor2 = comp2,
competed = competed,
years = c(1970),
out = "all",
weights = c(0.5,0.5))
})
})
})
print(triple_list_out)
View(triple_list_out)
# bind lowest level
triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()))
# bind all levels
unpc_1970<- triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()) %>%
bind_rows()) %>%
bind_rows()
save(unpc_1970,file="inst/extdata/unpc_1970.RData")
load("inst/extdata/unpc_2018.RData")
unpc_2018_1 <- unpc_2018[!unpc_2018$epsilon=="NaN",]
unpc_2018 <- unpc_2018_1[unpc_2018_1$competitor1=="USA"&unpc_2018_1$competitor2=="CHN"|
unpc_2018_1$competitor1=="USA"&unpc_2018_1$competitor2=="FRA"|
unpc_2018_1$competitor1=="USA"&unpc_2018_1$competitor2=="RUS"|
unpc_2018_1$competitor1=="CHN"&unpc_2018_1$competitor2=="FRA"|
unpc_2018_1$competitor1=="CHN"&unpc_2018_1$competitor2=="RUS"|
unpc_2018_1$competitor1=="FRA"&unpc_2018_1$competitor2=="RUS",
]
load("inst/extdata/unpc_2010.RData")
unpc_2010_1 <- unpc_2010[!unpc_2010$epsilon=="NaN",]
unpc_2010 <- unpc_2010_1[unpc_2010_1$competitor1=="USA"&unpc_2010_1$competitor2=="CHN"|
unpc_2010_1$competitor1=="USA"&unpc_2010_1$competitor2=="FRA"|
unpc_2010_1$competitor1=="USA"&unpc_2010_1$competitor2=="RUS"|
unpc_2010_1$competitor1=="CHN"&unpc_2010_1$competitor2=="FRA"|
unpc_2010_1$competitor1=="CHN"&unpc_2010_1$competitor2=="RUS"|
unpc_2010_1$competitor1=="FRA"&unpc_2010_1$competitor2=="RUS",
]
load("inst/extdata/unpc_2000.RData")
unpc_2000_1 <- unpc_2000[!unpc_2000$epsilon=="NaN",]
unpc_2000 <- unpc_2000_1[unpc_2000_1$competitor1=="USA"&unpc_2000_1$competitor2=="CHN"|
unpc_2000_1$competitor1=="USA"&unpc_2000_1$competitor2=="FRA"|
unpc_2000_1$competitor1=="USA"&unpc_2000_1$competitor2=="RUS"|
unpc_2000_1$competitor1=="CHN"&unpc_2000_1$competitor2=="FRA"|
unpc_2000_1$competitor1=="CHN"&unpc_2000_1$competitor2=="RUS"|
unpc_2000_1$competitor1=="FRA"&unpc_2000_1$competitor2=="RUS",
]
load("inst/extdata/unpc_1990.RData")
unpc_1990_1 <- unpc_1990[!unpc_1990$epsilon=="NaN",]
unpc_1990 <- unpc_1990_1[unpc_1990_1$competitor1=="USA"&unpc_1990_1$competitor2=="CHN"|
unpc_1990_1$competitor1=="USA"&unpc_1990_1$competitor2=="FRA"|
unpc_1990_1$competitor1=="USA"&unpc_1990_1$competitor2=="RUS"|
unpc_1990_1$competitor1=="CHN"&unpc_1990_1$competitor2=="FRA"|
unpc_1990_1$competitor1=="CHN"&unpc_1990_1$competitor2=="RUS"|
unpc_1990_1$competitor1=="FRA"&unpc_1990_1$competitor2=="RUS",
]
load("inst/extdata/unpc_1980.RData")
unpc_1980_1 <- unpc_1980[!unpc_1980$epsilon=="NaN",]
unpc_1980 <- unpc_1980_1[unpc_1980_1$competitor1=="USA"&unpc_1980_1$competitor2=="CHN"|
unpc_1980_1$competitor1=="USA"&unpc_1980_1$competitor2=="FRA"|
unpc_1980_1$competitor1=="USA"&unpc_1980_1$competitor2=="RUS"|
unpc_1980_1$competitor1=="CHN"&unpc_1980_1$competitor2=="FRA"|
unpc_1980_1$competitor1=="CHN"&unpc_1980_1$competitor2=="RUS"|
unpc_1980_1$competitor1=="FRA"&unpc_1980_1$competitor2=="RUS",
]
load("inst/extdata/unpc_1970.RData")
unpc_1970_1 <- unpc_1970[!unpc_1970$epsilon=="NaN",]
unpc_1970 <- unpc_1970_1[unpc_1970_1$competitor1=="USA"&unpc_1970_1$competitor2=="CHN"|
unpc_1970_1$competitor1=="USA"&unpc_1970_1$competitor2=="FRA"|
unpc_1970_1$competitor1=="USA"&unpc_1970_1$competitor2=="RUS"|
unpc_1970_1$competitor1=="CHN"&unpc_1970_1$competitor2=="FRA"|
unpc_1970_1$competitor1=="CHN"&unpc_1970_1$competitor2=="RUS"|
unpc_1970_1$competitor1=="FRA"&unpc_1970_1$competitor2=="RUS",
]
unpc_1<-bind_rows(unpc_2018,unpc_2010)
unpc_1<-bind_rows(unpc_1,unpc_2010)
unpc_1<-bind_rows(unpc_1,unpc_2000)
unpc_1<-bind_rows(unpc_1,unpc_1990)
unpc_1<-bind_rows(unpc_1,unpc_1980)
unpc_final<-bind_rows(unpc_1,unpc_1970)
unpc_final$year <- as.numeric(unpc_final$year)
save(unpc_final,file="inst/extdata/unpc_final.RData")
LuMesserschmidt/UNPC documentation built on Nov. 25, 2019, 8:17 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
rm(list=ls())
library(tidyverse)
library(readxl)
# Choose Country Codes----
#load("inst/extdata/UN-73new.RData")
#"%ni%" = Negate( "%in%" )
#codes<-completeVotes[completeVotes$year==2018,]
#codes<-completeVotes[,c("Country")]
#codes<-sort(unique(codes$Country))
#competed1<-codes[codes %ni% c("USA","CHN")]
#Problem with Taiwan
#codes<- read_excel("inst/extdata/country_codes.xlsx", sheet = 1,skip=1)
#codes<-codes[,c("official_name_en","ISO3166-1-Alpha-3","Developed / Developing Countries","Sub-region Name")]
#codes<-codes[codes$`ISO3166-1-Alpha-3`%in%completeVotes$Country,]
#competed1<- codes[codes$`ISO3166-1-Alpha-3`]
#competed1<-competed1$`ISO3166-1-Alpha-3`'
#codes<-completeVotes[completeVotes$year==2018,]
df<-table(codes$Country,codes$vote)
df<-as.data.frame(df)
df<-as.character(df$Var1)
df<-sort(unique(df))
df1<-df[df %ni% c("USA","RUS","CHN","FRA")]
codes<-completeVotes[completeVotes$year==2010,]
df<-table(codes$Country,codes$vote)
df<-as.data.frame(df)
df<-as.character(df$Var1)
df<-sort(unique(df))
df2<-df[df %ni% c("USA","RUS","CHN","FRA")]
codes<-completeVotes[completeVotes$year==2000,]
df<-table(codes$Country,codes$vote)
df<-as.data.frame(df)
df<-as.character(df$Var1)
df<-sort(unique(df))
df3<-df[df %ni% c("USA","RUS","CHN","FRA")]
codes<-completeVotes[completeVotes$year==1990,]
df<-table(codes$Country,codes$vote)
df<-as.data.frame(df)
df<-as.character(df$Var1)
df<-sort(unique(df))
df4<-df[df %ni% c("USA","RUS","CHN","FRA")]
codes<-completeVotes[completeVotes$year==1980,]
df<-table(codes$Country,codes$vote)
df<-as.data.frame(df)
df<-as.character(df$Var1)
df<-sort(unique(df))
df5<-df[df %ni% c("USA","RUS","CHN","FRA")]
codes<-completeVotes[completeVotes$year==1970,]
df<-table(codes$Country,codes$vote)
df<-as.data.frame(df)
df<-as.character(df$Var1)
df<-sort(unique(df))
df6<-df[df %ni% c("USA","RUS","CHN","FRA")]
df_2018<- c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF","CAN","CHE","CHL","CIV","CMR","COD"
,"COG","COL","COM","CPV","CRI","CUB","CYP","CZE","DEU","DJI","DMA","DNK","DOM","DZA","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM","GAB","GBR","GEO","GHA","GIN","GMB","GNB","GNQ","GRC","GRD","GTM","GUY"
,"HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN","KGZ","KHM","KIR","KNA","KOR","KWT","LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX","LVA","MAR"
,"MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNE","MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC","NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL","PRK"
,"PRT","PRY","QAT","ROU","RWA","SAU","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SRB","SSD","STP","SUR","SVK","SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN","TUR","TUV"
,"TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YEM","ZAF","ZMB","ZWE")
df_2010<- c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF",
"CAN","CHE","CHL","CIV","CMR","COD","COG","COL","COM","CPV","CRI","CUB","CYP","CZE","DEU","DJI","DMA","DNK","DOM","DZA","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM",
"GAB","GBR","GEO","GHA","GIN","GMB","GNB","GNQ","GRC","GRD","GTM","GUY","HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN"
,"KGZ","KHM","KIR","KNA","KOR","KWT","LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX","LVA","MAR","MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNE"
,"MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC","NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL","PRK","PRT","PRY","QAT","ROU","RWA"
,"SAU","SCG","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SRB","SSD","STP","SUR","SVK","SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN",
"TUR","TUV","TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YEM","YUG","ZAF","ZMB","ZWE")
df_2000<- c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF","CAN","CHE","CHL","CIV","CMR","COD","COG"
,"COL","COM","CPV","CRI","CSK","CUB","CYP","CZE","DDR","DEU","DJI","DMA","DNK","DOM","DZA","EAZ","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM","GAB","GBR","GEO","GHA","GIN","GMB","GNB","GNQ","GRC","GRD","GTM"
,"GUY","HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN","KGZ","KHM","KIR","KNA","KOR","KWT","LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX","LVA","MAR"
,"MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNE","MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC","NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL","PRK","PRT"
,"PRY","QAT","ROU","RWA","SAU","SCG","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SRB","SSD","STP","SUR","SVK","SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN","TUR","TUV","TWN"
,"TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YEM","YMD","YUG","ZAF","ZMB","ZWE")
df_1990<- c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF","CAN","CHE","CHL"
,"CIV","CMR","COD","COG","COL","COM","CPV","CRI","CSK","CUB","CYP","CZE","DDR","DEU","DJI","DMA","DNK","DOM","DZA","EAZ","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM","GAB","GBR","GEO"
,"GHA","GIN","GMB","GNB","GNQ","GRC","GRD","GTM","GUY","HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN","KGZ","KHM","KIR","KNA","KOR","KWT"
,"LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX","LVA","MAR","MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC"
,"NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL","PRK","PRT","PRY","QAT","ROU","RWA","SAU","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SSD","STP","SUR","SVK"
,"SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN","TUR","TUV","TWN","TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YMD","YUG","ZAF","ZMB","ZWE")
df_1980 <- c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF","CAN","CHE","CHL","CIV","CMR","COD"
,"COG","COL","COM","CPV","CRI","CSK","CUB","CYP","CZE","DDR","DJI","DMA","DNK","DOM","DZA","EAZ","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM","GAB","GBR","GEO","GHA","GIN","GMB","GNB","GNQ","GRC","GRD"
,"GTM","GUY","HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN","KGZ","KHM","KIR","KNA","KOR","KWT","LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX"
,"LVA","MAR","MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC","NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL"
,"PRK","PRT","PRY","QAT","ROU","RWA","SAU","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SSD","STP","SUR","SVK","SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN","TUR","TUV"
,"TWN","TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YMD","YUG","ZAF","ZMB","ZWE")
df_1970 <- c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF","CAN","CHE","CHL","CIV","CMR","COD"
,"COG","COL","COM","CPV","CRI","CSK","CUB","CYP","CZE","DDR","DJI","DMA","DNK","DOM","DZA","EAZ","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM","GAB","GBR","GEO","GHA","GIN","GMB","GNB","GNQ","GRC","GRD"
,"GTM","GUY","HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN","KGZ","KHM","KIR","KNA","KOR","KWT","LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX"
,"LVA","MAR","MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC","NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL"
,"PRK","PRT","PRY","QAT","ROU","RWA","SAU","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SSD","STP","SUR","SVK","SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN","TUR","TUV"
,"TWN","TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YMD","YUG","ZAF","ZMB","ZWE")
# Calculate UNPC for USA, CHN, FRA and RUS for 1970, 1980, 1990, 2000, 2010 and 2018 ----
competitors <- c("USA","RUS","CHN","FRA")
#df_2018
recipients = c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF","CAN","CHE","CHL","CIV","CMR","COD"
,"COG","COL","COM","CPV","CRI","CUB","CYP","CZE","DEU","DJI","DMA","DNK","DOM","DZA","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM","GAB","GBR","GEO","GHA","GIN","GMB","GNB","GNQ","GRC","GRD","GTM","GUY"
,"HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN","KGZ","KHM","KIR","KNA","KOR","KWT","LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX","LVA","MAR"
,"MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNE","MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC","NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL","PRK"
,"PRT","PRY","QAT","ROU","RWA","SAU","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SRB","SSD","STP","SUR","SVK","SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN","TUR","TUV"
,"TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YEM","ZAF","ZMB","ZWE")
triple_list_out <-
list_out <-
map(competitors,
function(comp1){
pmap(list(competitors[competitors != comp1],comp1),
function(comp1,comp2){
pmap(list(comp1,comp2,recipients),
function(comp1,comp2,competed){
print(comp1)
print(comp2)
print(competed)
pol_comp(competitor1 = comp1,
competitor2 = comp2,
competed = competed,
years = c(2018),
out = "all",
weights = c(0.5,0.5))
})
})
})
print(triple_list_out)
View(triple_list_out)
# bind lowest level
triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()))
# bind all levels
unpc_2018<- triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()) %>%
bind_rows()) %>%
bind_rows()
save(unpc_2018,file="inst/extdata/unpc_2018.RData")
# df_2010
recipients = c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF",
"CAN","CHE","CHL","CIV","CMR","COD","COG","COL","COM","CPV","CRI","CUB","CYP","CZE","DEU","DJI","DMA","DNK","DOM","DZA","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM",
"GAB","GBR","GEO","GHA","GIN","GMB","GNB","GNQ","GRC","GRD","GTM","GUY","HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN"
,"KGZ","KHM","KIR","KNA","KOR","KWT","LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX","LVA","MAR","MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNE"
,"MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC","NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL","PRK","PRT","PRY","QAT","ROU","RWA"
,"SAU","SCG","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SRB","SSD","STP","SUR","SVK","SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN",
"TUR","TUV","TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YEM","YUG","ZAF","ZMB","ZWE")
triple_list_out <-
list_out <-
map(competitors,
function(comp1){
pmap(list(competitors[competitors != comp1],comp1),
function(comp1,comp2){
pmap(list(comp1,comp2,recipients),
function(comp1,comp2,competed){
print(comp1)
print(comp2)
print(competed)
pol_comp(competitor1 = comp1,
competitor2 = comp2,
competed = competed,
years = c(2010),
out = "all",
weights = c(0.5,0.5))
})
})
})
print(triple_list_out)
View(triple_list_out)
# bind lowest level
triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()))
# bind all levels
unpc_2010<- triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()) %>%
bind_rows()) %>%
bind_rows()
save(unpc_2010,file="inst/extdata/unpc_2010.RData")
# df_2000
recipients = c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF","CAN","CHE","CHL","CIV","CMR","COD","COG"
,"COL","COM","CPV","CRI","CSK","CUB","CYP","CZE","DDR","DEU","DJI","DMA","DNK","DOM","DZA","EAZ","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM","GAB","GBR","GEO","GHA","GIN","GMB","GNB","GNQ","GRC","GRD","GTM"
,"GUY","HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN","KGZ","KHM","KIR","KNA","KOR","KWT","LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX","LVA","MAR"
,"MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNE","MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC","NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL","PRK","PRT"
,"PRY","QAT","ROU","RWA","SAU","SCG","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SRB","SSD","STP","SUR","SVK","SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN","TUR","TUV","TWN"
,"TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YEM","YMD","YUG","ZAF","ZMB","ZWE")
triple_list_out <-
list_out <-
map(competitors,
function(comp1){
pmap(list(competitors[competitors != comp1],comp1),
function(comp1,comp2){
pmap(list(comp1,comp2,recipients),
function(comp1,comp2,competed){
print(comp1)
print(comp2)
print(competed)
pol_comp(competitor1 = comp1,
competitor2 = comp2,
competed = competed,
years = c(2000),
out = "all",
weights = c(0.5,0.5))
})
})
})
print(triple_list_out)
View(triple_list_out)
# bind lowest level
triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()))
# bind all levels
unpc_2000<- triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()) %>%
bind_rows()) %>%
bind_rows()
save(unpc_2000,file="inst/extdata/unpc_2000.RData")
# df_1990
recipients = c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF","CAN","CHE","CHL"
,"CIV","CMR","COD","COG","COL","COM","CPV","CRI","CSK","CUB","CYP","CZE","DDR","DEU","DJI","DMA","DNK","DOM","DZA","EAZ","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM","GAB","GBR","GEO"
,"GHA","GIN","GMB","GNB","GNQ","GRC","GRD","GTM","GUY","HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN","KGZ","KHM","KIR","KNA","KOR","KWT"
,"LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX","LVA","MAR","MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC"
,"NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL","PRK","PRT","PRY","QAT","ROU","RWA","SAU","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SSD","STP","SUR","SVK"
,"SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN","TUR","TUV","TWN","TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YMD","YUG","ZAF","ZMB","ZWE")
triple_list_out <-
list_out <-
map(competitors,
function(comp1){
pmap(list(competitors[competitors != comp1],comp1),
function(comp1,comp2){
pmap(list(comp1,comp2,recipients),
function(comp1,comp2,competed){
print(comp1)
print(comp2)
print(competed)
pol_comp(competitor1 = comp1,
competitor2 = comp2,
competed = competed,
years = c(1990),
out = "all",
weights = c(0.5,0.5))
})
})
})
print(triple_list_out)
View(triple_list_out)
# bind lowest level
triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()))
# bind all levels
unpc_1990<- triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()) %>%
bind_rows()) %>%
bind_rows()
save(unpc_1990,file="inst/extdata/unpc_1990.RData")
# df_1980
recipients = c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF","CAN","CHE","CHL","CIV","CMR","COD"
,"COG","COL","COM","CPV","CRI","CSK","CUB","CYP","CZE","DDR","DJI","DMA","DNK","DOM","DZA","EAZ","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM","GAB","GBR","GEO","GHA","GIN","GMB","GNB","GNQ","GRC","GRD"
,"GTM","GUY","HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN","KGZ","KHM","KIR","KNA","KOR","KWT","LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX"
,"LVA","MAR","MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC","NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL"
,"PRK","PRT","PRY","QAT","ROU","RWA","SAU","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SSD","STP","SUR","SVK","SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN","TUR","TUV"
,"TWN","TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YMD","YUG","ZAF","ZMB","ZWE")
triple_list_out <-
list_out <-
map(competitors,
function(comp1){
pmap(list(competitors[competitors != comp1],comp1),
function(comp1,comp2){
pmap(list(comp1,comp2,recipients),
function(comp1,comp2,competed){
print(comp1)
print(comp2)
print(competed)
pol_comp(competitor1 = comp1,
competitor2 = comp2,
competed = competed,
years = c(1980),
out = "all",
weights = c(0.5,0.5))
})
})
})
print(triple_list_out)
View(triple_list_out)
# bind lowest level
triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()))
# bind all levels
unpc_1980<- triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()) %>%
bind_rows()) %>%
bind_rows()
save(unpc_1980,file="inst/extdata/unpc_1980.RData")
# df_1970
recipients = c("AFG","AGO","ALB","AND","ARE","ARG","ARM","ATG","AUS","AUT","AZE","BDI","BEL","BEN","BFA","BGD","BGR","BHR","BHS","BIH","BLR","BLZ","BOL","BRA","BRB","BRN","BTN","BWA","CAF","CAN","CHE","CHL","CIV","CMR","COD"
,"COG","COL","COM","CPV","CRI","CSK","CUB","CYP","CZE","DDR","DJI","DMA","DNK","DOM","DZA","EAZ","ECU","EGY","ERI","ESP","EST","ETH","FIN","FJI","FSM","GAB","GBR","GEO","GHA","GIN","GMB","GNB","GNQ","GRC","GRD"
,"GTM","GUY","HND","HRV","HTI","HUN","IDN","IND","IRL","IRN","IRQ","ISL","ISR","ITA","JAM","JOR","JPN","KAZ","KEN","KGZ","KHM","KIR","KNA","KOR","KWT","LAO","LBN","LBR","LBY","LCA","LIE","LKA","LSO","LTU","LUX"
,"LVA","MAR","MCO","MDA","MDG","MDV","MEX","MHL","MKD","MLI","MLT","MMR","MNG","MOZ","MRT","MUS","MWI","MYS","NAM","NER","NGA","NIC","NLD","NOR","NPL","NRU","NZL","OMN","PAK","PAN","PER","PHL","PLW","PNG","POL"
,"PRK","PRT","PRY","QAT","ROU","RWA","SAU","SDN","SEN","SGP","SLB","SLE","SLV","SMR","SOM","SSD","STP","SUR","SVK","SVN","SWE","SWZ","SYC","SYR","TCD","TGO","THA","TJK","TKM","TLS","TON","TTO","TUN","TUR","TUV"
,"TWN","TZA","UGA","UKR","URY","UZB","VCT","VEN","VNM","VUT","WSM","YMD","YUG","ZAF","ZMB","ZWE")
triple_list_out <-
list_out <-
map(competitors,
function(comp1){
pmap(list(competitors[competitors != comp1],comp1),
function(comp1,comp2){
pmap(list(comp1,comp2,recipients),
function(comp1,comp2,competed){
print(comp1)
print(comp2)
print(competed)
pol_comp(competitor1 = comp1,
competitor2 = comp2,
competed = competed,
years = c(1970),
out = "all",
weights = c(0.5,0.5))
})
})
})
print(triple_list_out)
View(triple_list_out)
# bind lowest level
triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()))
# bind all levels
unpc_1970<- triple_list_out %>%
map(~ .x %>%
map(~ .x %>% bind_rows()) %>%
bind_rows()) %>%
bind_rows()
save(unpc_1970,file="inst/extdata/unpc_1970.RData")
load("inst/extdata/unpc_2018.RData")
unpc_2018_1 <- unpc_2018[!unpc_2018$epsilon=="NaN",]
unpc_2018 <- unpc_2018_1[unpc_2018_1$competitor1=="USA"&unpc_2018_1$competitor2=="CHN"|
unpc_2018_1$competitor1=="USA"&unpc_2018_1$competitor2=="FRA"|
unpc_2018_1$competitor1=="USA"&unpc_2018_1$competitor2=="RUS"|
unpc_2018_1$competitor1=="CHN"&unpc_2018_1$competitor2=="FRA"|
unpc_2018_1$competitor1=="CHN"&unpc_2018_1$competitor2=="RUS"|
unpc_2018_1$competitor1=="FRA"&unpc_2018_1$competitor2=="RUS",
]
load("inst/extdata/unpc_2010.RData")
unpc_2010_1 <- unpc_2010[!unpc_2010$epsilon=="NaN",]
unpc_2010 <- unpc_2010_1[unpc_2010_1$competitor1=="USA"&unpc_2010_1$competitor2=="CHN"|
unpc_2010_1$competitor1=="USA"&unpc_2010_1$competitor2=="FRA"|
unpc_2010_1$competitor1=="USA"&unpc_2010_1$competitor2=="RUS"|
unpc_2010_1$competitor1=="CHN"&unpc_2010_1$competitor2=="FRA"|
unpc_2010_1$competitor1=="CHN"&unpc_2010_1$competitor2=="RUS"|
unpc_2010_1$competitor1=="FRA"&unpc_2010_1$competitor2=="RUS",
]
load("inst/extdata/unpc_2000.RData")
unpc_2000_1 <- unpc_2000[!unpc_2000$epsilon=="NaN",]
unpc_2000 <- unpc_2000_1[unpc_2000_1$competitor1=="USA"&unpc_2000_1$competitor2=="CHN"|
unpc_2000_1$competitor1=="USA"&unpc_2000_1$competitor2=="FRA"|
unpc_2000_1$competitor1=="USA"&unpc_2000_1$competitor2=="RUS"|
unpc_2000_1$competitor1=="CHN"&unpc_2000_1$competitor2=="FRA"|
unpc_2000_1$competitor1=="CHN"&unpc_2000_1$competitor2=="RUS"|
unpc_2000_1$competitor1=="FRA"&unpc_2000_1$competitor2=="RUS",
]
load("inst/extdata/unpc_1990.RData")
unpc_1990_1 <- unpc_1990[!unpc_1990$epsilon=="NaN",]
unpc_1990 <- unpc_1990_1[unpc_1990_1$competitor1=="USA"&unpc_1990_1$competitor2=="CHN"|
unpc_1990_1$competitor1=="USA"&unpc_1990_1$competitor2=="FRA"|
unpc_1990_1$competitor1=="USA"&unpc_1990_1$competitor2=="RUS"|
unpc_1990_1$competitor1=="CHN"&unpc_1990_1$competitor2=="FRA"|
unpc_1990_1$competitor1=="CHN"&unpc_1990_1$competitor2=="RUS"|
unpc_1990_1$competitor1=="FRA"&unpc_1990_1$competitor2=="RUS",
]
load("inst/extdata/unpc_1980.RData")
unpc_1980_1 <- unpc_1980[!unpc_1980$epsilon=="NaN",]
unpc_1980 <- unpc_1980_1[unpc_1980_1$competitor1=="USA"&unpc_1980_1$competitor2=="CHN"|
unpc_1980_1$competitor1=="USA"&unpc_1980_1$competitor2=="FRA"|
unpc_1980_1$competitor1=="USA"&unpc_1980_1$competitor2=="RUS"|
unpc_1980_1$competitor1=="CHN"&unpc_1980_1$competitor2=="FRA"|
unpc_1980_1$competitor1=="CHN"&unpc_1980_1$competitor2=="RUS"|
unpc_1980_1$competitor1=="FRA"&unpc_1980_1$competitor2=="RUS",
]
load("inst/extdata/unpc_1970.RData")
unpc_1970_1 <- unpc_1970[!unpc_1970$epsilon=="NaN",]
unpc_1970 <- unpc_1970_1[unpc_1970_1$competitor1=="USA"&unpc_1970_1$competitor2=="CHN"|
unpc_1970_1$competitor1=="USA"&unpc_1970_1$competitor2=="FRA"|
unpc_1970_1$competitor1=="USA"&unpc_1970_1$competitor2=="RUS"|
unpc_1970_1$competitor1=="CHN"&unpc_1970_1$competitor2=="FRA"|
unpc_1970_1$competitor1=="CHN"&unpc_1970_1$competitor2=="RUS"|
unpc_1970_1$competitor1=="FRA"&unpc_1970_1$competitor2=="RUS",
]
unpc_1<-bind_rows(unpc_2018,unpc_2010)
unpc_1<-bind_rows(unpc_1,unpc_2010)
unpc_1<-bind_rows(unpc_1,unpc_2000)
unpc_1<-bind_rows(unpc_1,unpc_1990)
unpc_1<-bind_rows(unpc_1,unpc_1980)
unpc_final<-bind_rows(unpc_1,unpc_1970)
unpc_final$year <- as.numeric(unpc_final$year)
save(unpc_final,file="inst/extdata/unpc_final.RData")
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.