Clinton" & table2$RC=="Donald Trump"), c(1:3, 5, 7)] #merge tables df <- rbind(table1, table2) names(df)[4:5] <- c("Clinton", "Trump") #format...
"#333366", "#FF3333", "#993333") labs = c("Clinton vs. Trump", "Sanders vs. Trump", "Trump vs. Clinton", "Trump vs. Sanders") results = df #breaks() returns...