Homework Assignment 2

What are the Religious Population Proportions in each State in the United States?

Loading needed Libraries and Data

library(readr)
library(dplyr)
library(ggplot2)
ReligionData <- read_csv("/Users/Deepakie/Documents/Queens College/SOC712/Data/Religion 2010.csv")

Previewing Data

head(ReligionData)

Renaming Variables

ReligionData2<- rename(ReligionData, 
       "Statename"= Geo_Name,
       "TotalPopulation" = RCMS10_T001_001, 
       "PercentReligious" = RCMS10_NV009_001)

Selecting Variables to Keep

• State Name
• Total Population
• Percent Religious

ReligionData2<- select(ReligionData2,
                       Statename, TotalPopulation, PercentReligious)

Creating New Variable

• Total Religious Population

ReligionData2<- mutate(ReligionData2,
ReligiousPopulation = TotalPopulation * (PercentReligious/100))

Using one script to Run all commands togther

ReligionData3<- ReligionData%>%
  rename("Statename"= Geo_Name,
       "TotalPopulation" = RCMS10_T001_001, 
       "PercentReligious" = RCMS10_NV009_001)%>%
  select(Statename, 
         TotalPopulation, 
         PercentReligious)%>%
  mutate(ReligiousPopulation = TotalPopulation * (PercentReligious/100))

Looking at Edited Data

head(ReligionData3)

Plot Bar Chart of Percent Religious for each state

Which States have religious population of 50% or more?

Plot of Reglious States > 50

ReligionData4<- ReligionData3%>%
  filter(PercentReligious>50)
ggplot(data=ReligionData4)+
  geom_col(aes(x=Statename,y=PercentReligious))+
  coord_flip()

Which States have religious population of 50% or less?

Plot of Reglious States < 50

ReligionData5<- ReligionData3%>%
  filter(PercentReligious<50)
ggplot(data=ReligionData5)+
  geom_col(aes(x=Statename,y=PercentReligious))+
  coord_flip()

Summary

First I extracted and downladed the data set from https://www.socialexplorer.com, once the data is imported into R studio, i load the needed packages for this assignment. I thought it would be interesting to analyze the religious percentages in eaach state. To do so, I renamed the variables Geo_Name ,RCMS10_T001_001 and RCMS10_NV009_001 according and dropped the other variables. To have the total population number of those who are religious in each state, we created a new varaible named - ReligiousPopulation. Once I had the data set as I wanted it, i previewed it before I ploted a bar graph. The bar graph shows the religious percentage per state where X = state Name and Y= Percent Religious.Furthermore, I wanted to see which states are more reglious than others so I ploted two different bar graphs showing those which have a higher percentage than 50 of religious population and those who have lower percentage than 50 of religious population. We can see some states that have the higher percentages of religious population are Utah, North Dakota, Alabama, Louisana, etc. Maine, Oregon, Alaska, Washington, etc are of those which some of the lowest religious populations.