% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/data.R
\docType{data}
\name{votes}
\alias{votes}
\title{Plenary Vote Results in the Korean National Assembly (20th-22nd)}
\format{
A data frame with 8,050 rows and 13 variables:
\describe{
\item{bill_id}{Unique bill identifier (links to \code{bills$bill_id})}
\item{bill_no}{Numeric bill number}
\item{bill_name}{Full bill title in Korean}
\item{assembly}{Assembly number (20, 21, or 22)}
\item{committee}{Standing committee to which the bill was referred}
\item{vote_date}{Date of the plenary vote}
\item{result}{Vote outcome in Korean (e.g., passed as-is,
passed with amendments, rejected)}
\item{bill_type}{Type of bill (e.g., legislation, budget, resolution)}
\item{total_members}{Total number of assembly members at the time}
\item{voted}{Number of members who cast a vote}
\item{yes}{Number of yes votes}
\item{no}{Number of no votes}
\item{abstain}{Number of abstentions}
}
}
\source{
Open National Assembly Information API (Republic of Korea),
endpoint \code{ncocpgfiaoituanbr}.
}
\usage{
votes
}
\description{
Bill-level vote tallies from plenary sessions of the 20th through
22nd Korean National Assembly (2016-2026). Each row represents one
bill that went to a recorded floor vote.
}
\details{
Not all bills go to a floor vote. Most bills are disposed of in
committee or expire at the end of the assembly term. The \code{votes}
dataset captures only those that reached the plenary floor for a
recorded vote.

About 40\\% of \code{votes$bill_id} match \code{bills$bill_id},
because \code{bills} only contains legislator-proposed bills while
\code{votes} also includes committee alternatives, budget bills,
and resolutions that have separate identifiers.

See \code{\link{roll_calls}} for member-level voting records
(22nd assembly), useful for ideal point estimation or party
discipline analysis.
}
\examples{
data(votes)

# Votes per assembly
table(votes$assembly)

# Pass rate
table(votes$result)

# Average yes rate
votes$yes_rate <- votes$yes / votes$voted
summary(votes$yes_rate)

# Contentious votes (yes rate < 70\%)
contentious <- votes[votes$yes / votes$voted < 0.7, ]
nrow(contentious)
}
\keyword{datasets}
