% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/data.R
\docType{data}
\name{wealth}
\alias{wealth}
\title{Legislator Asset Declarations (2015-2025)}
\format{
A data frame with 2,928 rows and 14 variables:
\describe{
\item{member_id}{Legislator identifier (links to \code{legislators$member_id})}
\item{year}{Disclosure year (2015-2025)}
\item{name}{Legislator name in Korean}
\item{total_assets}{Total declared assets, in thousands of KRW}
\item{total_debt}{Total declared liabilities, in thousands of KRW}
\item{net_worth}{Net worth (assets minus debt), in thousands of KRW}
\item{real_estate}{Total real estate value, in thousands of KRW}
\item{building}{Total building/structure value, in thousands of KRW}
\item{land}{Total land value, in thousands of KRW}
\item{deposits}{Total bank deposits, in thousands of KRW}
\item{stocks}{Total stock holdings, in thousands of KRW}
\item{n_properties}{Total number of properties disclosed}
\item{has_seoul_property}{Logical: owns property in Seoul}
\item{has_gangnam_property}{Logical: owns property in Gangnam (Seoul's wealthiest district)}
}
}
\source{
OpenWatch (\url{https://docs.openwatch.kr/data/national-assembly}), CC BY-SA 4.0 license.
}
\usage{
wealth
}
\description{
Panel data of asset declarations for 773 Korean National Assembly members
across 13 reporting periods (2015-2025). Derived from mandatory public
disclosures via the OpenWatch project.
}
\details{
All monetary values are in thousands of KRW (1 unit = 1,000 won).
To convert to billions of won, divide by 1,000,000. For example,
a net_worth of 1,670,000 means 1.67 billion won (approximately
USD 1.2 million).

Legislators are required by law to disclose their assets annually.
Not all legislators appear in every year, as the panel is unbalanced
(entries correspond to active service periods).
}
\examples{
data(wealth)

# Distribution of net worth (in billions of won)
hist(wealth$net_worth / 1e6, breaks = 50,
     main = "Legislator Net Worth", xlab = "Billion KRW")

# Real estate as share of total assets
wealth$re_share <- wealth$real_estate / wealth$total_assets
summary(wealth$re_share)

# Gangnam property owners vs others
tapply(wealth$net_worth / 1e6, wealth$has_gangnam_property, median, na.rm = TRUE)
}
\keyword{datasets}
