# NOT RUN {
bt <- data.frame(parties = c("PP", "CSU", "SPD", "AfD", "FDP", "UPyD", "CC", "Verdes"),
seats = c(200, 46, 153, 92, 80, 69, 67, 2),
cols = c("black", "blue", "red", "lightblue", "yellow", "purple", "lavenderblush", "grey"),
stringsAsFactors = FALSE)
Arc_Parlamentario(bt$parties, bt$seats, cols = bt$cols)
# }
Run the code above in your browser using DataLab