Learn R Programming

OIdata (version 1.0)

piracy: Piracy and PIPA/SOPA

Description

This data set contains observations on all 100 US Senators and 434 of the 325 US Congressional Representatives related to their support of anti-piracy legislation that was introduced at the end of 2011.

Usage

data(piracy)

Arguments

Format

A data frame with 534 observations on the following 8 variables.
name
Name of legislator.
party
Party affiliation as democrat (D), Republican (R), or Independent (I).
state
Two letter state abbreviation.
money_pro
Amount of money in dollars contributed to the legislator's campaign in 2010 by groups generally thought to be supportive of PIPA/SOPA: movie and TV studios, record labels.
money_con
Amount of money in dollars contributed to the legislator's campaign in 2010 by groups generally thought to be opposed to PIPA/SOPA: computer and internet companies.
years
Number of years of service in Congress.
stance
Degree of support for PIPA/SOPA with levels Leaning No, No, Undecided, Unknown, Yes
chamber
Whether the legislator is a member of either the house or senate.

Source

http://projects.propublica.org/sopa/ The list may be slightly out of date since many politician's perspectives on the legislation were in flux at the time of data collection.

Details

The Stop Online Piracy Act (SOPA) and the Protect Intellectual Property Act (PIPA) were two bills introduced in the US House of Representatives and the US Senate, respectively, to curtail copyright infringement. The bill was controversial because there were concerns the bill limited free speech rights. ProPublica, the independent and non-profit news organization, compiled this data set to compare the stance of legislators towards the bills with the amount of campaign funds that they received from groups considered to be supportive of or in opposition to the legislation.

For more background on the legislation and the formulation of money_pro and money_con, read the documentation on ProPublica, linked below.

References

OpenIntro, openintro.org

Examples

Run this code
data(piracy)

pipa <- piracy[piracy$chamber == "senate",]
tab  <- aggregate(money_pro ~ stance, data = pipa, mean)
barplot(tab$money_pro, names.arg = tab$stance)
boxplot(money_pro ~ stance, data = pipa)
boxplot(money_con ~ stance, data = pipa)

keep     <- pipa$money_pro > 0 & pipa$money_con > 0
for_pipa <- pipa$stance[keep] == "yes"
col      <- ifelse(for_pipa, 2, 1)
pch      <- ifelse(for_pipa, 20, 1)
plot(pipa$money_pro[keep], pipa$money_con[keep],
     log="xy", col=col, pch=pch)

Run the code above in your browser using DataLab