draw_partylabels.Rd

% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/draw_partylabels.R
\name{draw_partylabels}
\alias{draw_partylabels}
\title{Draw labels for political parties and seats per party}
\usage{
draw_partylabels(
  type = c("semicircle", "horseshoe"),
  names = TRUE,
  seats = TRUE,
  party_names = party_names,
  party_colours = party_colours,
  party_seats = party_seats
)
}
\arguments{
\item{type}{Define type. Currently only supports semicircle and horseshoe style parliaments.}

\item{names}{If TRUE, finds party names from data. Defaults to TRUE.}

\item{seats}{If TRUE, finds party seats from data. Defaults to TRUE.}

\item{party_names}{A column containing party names.}

\item{party_colours}{A column containing party colours.}

\item{party_seats}{A column containing party seats.}
}
\description{
Draw labels for political parties and seats per party
}
\examples{
data <- election_data[
  election_data$country == "USA" &
    election_data$house == "Representatives" &
    election_data$year == "2016",
]
usa_data <- parliament_data(
  election_data = data,
  type = "semicircle",
  party_seats = data$seats,
  parl_rows = 8
)
ggplot2::ggplot(usa_data, ggplot2::aes(x, y, colour = party_long)) +
  geom_parliament_seats() +
  draw_partylabels(
    type = "semicircle",
    party_names = party_long,
    party_seats = seats,
    party_colours = colour
  ) +
  ggplot2::scale_colour_manual(
    values = usa_data$colour,
    limits = usa_data$party_long
  ) +
  theme_ggparliament()
}
\author{
Zoe Meers
}