data = read.csv("https://raw.githubusercontent.com/Patel-Krutika/Data_607/main/weather-check.csv")
head(data)
## RespondentID Do.you.typically.check.a.daily.weather.report.
## 1 3887201482 Yes
## 2 3887159451 Yes
## 3 3887152228 Yes
## 4 3887145426 Yes
## 5 3887021873 Yes
## 6 3886937140 Yes
## How.do.you.typically.check.the.weather.
## 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)
## 6 A specific website or app (please provide the answer)
## A.specific.website.or.app..please.provide.the.answer.
## 1 -
## 2 -
## 3 -
## 4 -
## 5 Iphone app
## 6 AccuWeather App
## 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.
## 1 Very likely
## 2 Very likely
## 3 Very likely
## 4 Somewhat likely
## 5 Very likely
## 6 Somewhat likely
## Age What.is.your.gender.
## 1 30 - 44 Male
## 2 18 - 29 Male
## 3 30 - 44 Male
## 4 30 - 44 Male
## 5 30 - 44 Male
## 6 18 - 29 Male
## How.much.total.combined.money.did.all.members.of.your.HOUSEHOLD.earn.last.year.
## 1 $50,000 to $74,999
## 2 Prefer not to answer
## 3 $100,000 to $124,999
## 4 Prefer not to answer
## 5 $150,000 to $174,999
## 6 $100,000 to $124,999
## US.Region
## 1 South Atlantic
## 2 -
## 3 Middle Atlantic
## 4 -
## 5 Middle Atlantic
## 6 West South Central
## The data frame created from the original data set omits some columns not directly relevant to the question being answered.
## Original Columns
names(data)
## [1] "RespondentID"
## [2] "Do.you.typically.check.a.daily.weather.report."
## [3] "How.do.you.typically.check.the.weather."
## [4] "A.specific.website.or.app..please.provide.the.answer."
## [5] "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."
## [6] "Age"
## [7] "What.is.your.gender."
## [8] "How.much.total.combined.money.did.all.members.of.your.HOUSEHOLD.earn.last.year."
## [9] "US.Region"
df = data.frame(Daily = data$Do.you.typically.check.a.daily.weather.report., Source = data$How.do.you.typically.check.the.weather., Specific_Source = data$A.specific.website.or.app..please.provide.the.answer., Check_On_Apple_Watch = data$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., Age = data$Age, Gender = data$What.is.your.gender.)
## Subset Columns (Renamed)
names(df)
## [1] "Daily" "Source" "Specific_Source"
## [4] "Check_On_Apple_Watch" "Age" "Gender"
## The following columns were not added to the data frame as they were not directly relevant to the questions being answered, and would not aid in any direct analysis.
## "RespondentID", "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.", "How.much.total.combined.money.did.all.members.of.your.HOUSEHOLD.earn.last.year.", "US.Region"
head(df)
## Daily Source Specific_Source
## 1 Yes The default weather app on your phone -
## 2 Yes The default weather app on your phone -
## 3 Yes The default weather app on your phone -
## 4 Yes The default weather app on your phone -
## 5 Yes A specific website or app (please provide the answer) Iphone app
## 6 Yes A specific website or app (please provide the answer) AccuWeather App
## Check_On_Apple_Watch Age Gender
## 1 Very likely 30 - 44 Male
## 2 Very likely 18 - 29 Male
## 3 Very likely 30 - 44 Male
## 4 Somewhat likely 30 - 44 Male
## 5 Very likely 30 - 44 Male
## 6 Somewhat likely 18 - 29 Male