% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/data-pew_energy_2018.R
\docType{data}
\name{pew_energy_2018}
\alias{pew_energy_2018}
\title{Pew Survey on Energy Sources in 2018}
\format{
The format is: List of 6 $ solar_panel_farms : List of responses on
solar farms.  $ wind_turbine_farms : List of responses on wind turbine
farms.  $ offshore_drilling : List of responses on offshore drilling.  $
hydrolic_fracturing : List of responses on hydrolic fracturing.  $
coal_mining : List of responses on coal mining.  $ nuclear_power_plants:
List of responses on nuclear.
}
\source{
\url{https://www.pewresearch.org/science/2018/05/14/majorities-see-government-efforts-to-protect-the-environment-as-insufficient/}
}
\usage{
pew_energy_2018
}
\description{
US-based survey on support for expanding six different sources of energy,
including solar, wind, offshore drilling, hydrolic fracturing ("fracking"),
coal, and nuclear.
}
\details{
We did not have access to individual responses in original dataset, so we
took the published percentages and backed out the breakdown
}
\examples{

data(pew_energy_2018)
lapply(pew_energy_2018, head)
lapply(pew_energy_2018, length)
lapply(pew_energy_2018, table)
Prop <- function(x) {
  table(x) / length(x)
}
lapply(pew_energy_2018, Prop)
}
\keyword{datasets}
