The article “Where People Go To Check the Weather” is about what method does people use to check the weather. Author asked SurveyMonkey Audience to run a simple survey with 938 respondents. 1. 80% of the respondents check the weather daily 2. About age differences: what are the favorite method that younger and older respondents to check the weather 3. About weather sources they use 4. About Regional Variations

Articale Link: https://fivethirtyeight.com/features/weather-forecast-news-app-habits/

weather_data<- read.csv("https://raw.githubusercontent.com/fivethirtyeight/data/master/weather-check/weather-check.csv")
glimpse(weather_data)
## Rows: 928
## Columns: 9
## $ RespondentID                                                                                                                                 <dbl> …
## $ Do.you.typically.check.a.daily.weather.report.                                                                                               <chr> …
## $ How.do.you.typically.check.the.weather.                                                                                                      <chr> …
## $ A.specific.website.or.app..please.provide.the.answer.                                                                                        <chr> …
## $ If.you.had.a.smartwatch..like.the.soon.to.be.released.Apple.Watch...how.likely.or.unlikely.would.you.be.to.check.the.weather.on.that.device. <chr> …
## $ Age                                                                                                                                          <chr> …
## $ What.is.your.gender.                                                                                                                         <chr> …
## $ How.much.total.combined.money.did.all.members.of.your.HOUSEHOLD.earn.last.year.                                                              <chr> …
## $ US.Region                                                                                                                                    <chr> …
cleand_weather_data <- weather_data %>% 
  select(Age="Age",
         Do.you.typically.check.a.daily.weather.report.="Do.you.typically.check.a.daily.weather.report.",
         Weather_Check_Method = "How.do.you.typically.check.the.weather.",
         Iousehold_Income = "A.specific.website.or.app..please.provide.the.answer.",
         US.Region = "US.Region")
head(cleand_weather_data)
##       Age Do.you.typically.check.a.daily.weather.report.
## 1 30 - 44                                            Yes
## 2 18 - 29                                            Yes
## 3 30 - 44                                            Yes
## 4 30 - 44                                            Yes
## 5 30 - 44                                            Yes
## 6 18 - 29                                            Yes
##                                    Weather_Check_Method Iousehold_Income
## 1                 The default weather app on your phone                -
## 2                 The default weather app on your phone                -
## 3                 The default weather app on your phone                -
## 4                 The default weather app on your phone                -
## 5 A specific website or app (please provide the answer)       Iphone app
## 6 A specific website or app (please provide the answer)  AccuWeather App
##            US.Region
## 1     South Atlantic
## 2                  -
## 3    Middle Atlantic
## 4                  -
## 5    Middle Atlantic
## 6 West South Central
glimpse(cleand_weather_data)
## Rows: 928
## Columns: 5
## $ Age                                            <chr> "30 - 44", "18 - 29", "…
## $ Do.you.typically.check.a.daily.weather.report. <chr> "Yes", "Yes", "Yes", "Y…
## $ Weather_Check_Method                           <chr> "The default weather ap…
## $ Iousehold_Income                               <chr> "-", "-", "-", "-", "Ip…
## $ US.Region                                      <chr> "South Atlantic", "-", …
ggplot(cleand_weather_data, aes(x= Age, fill= Do.you.typically.check.a.daily.weather.report.))+
  geom_bar(position = "dodge")+
  labs(title="Do you typically check a daily weather report",
       x= "Age",
       y= "Count")+
  theme_bw()

ggplot(cleand_weather_data, aes(x= Age, fill= Weather_Check_Method))+
  geom_bar(position = "dodge")+
  labs(title="Weather Check Method by Age Group",
       x= "Age",
       y= "Count")+
  theme_bw()

ggplot(cleand_weather_data, aes(x= US.Region, fill= Do.you.typically.check.a.daily.weather.report.))+
  geom_bar(position = "dodge")+
  labs(title="Do You Typically Check A Daily Weather Report By Area",
       x= "US.Region",
       y= "Count")+
  theme_bw()+
  theme(axis.text.x = element_text(angle = 90, hjust = 1))

. In conclusion: The first and second plot shows how frequents respondents check the weather by age,and age 45-59 check the weather more frequents than others.Most of the younger(18-29 & 30-44) like use the default app the phone. And age 45-60+ like use local TV news to check the weather.

Last plot: On the article mentions respondents from New England got 94% checked the weather everyday. But in the graphic shows respondents from Pacific checked the weather more frequents than US region.