Population growth and extinction

In Feb, 2013, The Center for Biological Diversity conducted a national poll of 657 registered voters (see: http://www.biologicaldiversity.org/news/press releases/2013/population-poll-03-01-2013.html)

• 64 percent said that, with the human population expected hit 10 billion by 2050, wildlife will be adversely affected.
• 60 percent said they strongly agreed or somewhat agreed that human population growth is driving animal species to extinction.

I polled my students in Biometry to see how their responses compare. Either there has been a change in public opinion, or my students are not a random sample :)

Data Analysis

Load libraries

library(mosaic)
library(dplyr)
library(googlesheets)
options(width=150)

Read in data from google form, tally, graph

mydat<-gs_title("Population growth and extinction (Responses)" )

## Sheet successfully identified: "Population growth and extinction (Responses)"

Survres<-gs_read(mydat)

## Accessing worksheet titled 'Form Responses 1'.

## Parsed with column specification:
## cols(
##   Timestamp = col_character(),
##   `Human population growth is driving animal species to extinction` = col_character()
## )

names(Survres)[2]<-"response"

“Human population growth is driving animal species to extinction”, do you

• Strongly agree
• Somewhat agree
• Neither agree or disagree
• Somewhat disagree
• Stongly disagree

tally(~response, data=Survres, format="percent")

## response
## Neither agree or disagree            Somewhat agree            Strongly agree 
##                  2.702703                 32.432432                 64.864865

bargraph(~response, data=Survres, type="percent", xlab="")