【原創(chuàng)】R語(yǔ)言數(shù)據(jù)可視化分析案例：探索BRFSS數(shù)據(jù)數(shù)據(jù)分析報(bào)告論文(附代碼數(shù)據(jù))【原創(chuàng)】R語(yǔ)言數(shù)據(jù)可視化分析案例：探索BRFSS數(shù)據(jù)數(shù)據(jù)分析報(bào)告論文(附代碼數(shù)據(jù))全文共10頁(yè)，當(dāng)前為第1頁(yè)。R語(yǔ)言數(shù)據(jù)可視化分析案例：探索BRFSS數(shù)據(jù)數(shù)據(jù)分析報(bào)告【原創(chuàng)】R語(yǔ)言數(shù)據(jù)可視化分析案例：探索BRFSS數(shù)據(jù)數(shù)據(jù)分析報(bào)告論文(附代碼數(shù)據(jù))全文共10頁(yè)，當(dāng)前為第1頁(yè)。加載包library(ggplot2)##Warning:package'ggplot2'wasbuiltunderRversion3.5.1library(dplyr)##Warning:package'dplyr'wasbuiltunderRversion3.5.1library(colorspace)library(tidyr)library(knitr)opts_chunk$set(echo=TRUE,fig.align="center")載入資料load("brfss2013.RData")第1部分：數(shù)據(jù)描述如何收集樣本中的觀測(cè)值，以及此數(shù)據(jù)收集方法對(duì)推斷范圍（可概括性/因果關(guān)系）的影響。/brfss/，以及下面的“有關(guān)數(shù)據(jù)的更多信息”部分。“BRFSS是一項(xiàng)橫斷面電話調(diào)查，州衛(wèi)生部門每月通過(guò)座機(jī)和蜂窩電話進(jìn)行電話調(diào)查，并獲得標(biāo)準(zhǔn)化問(wèn)卷和CDC的技術(shù)和方法支持。在進(jìn)行BRFSS座機(jī)電話調(diào)查時(shí)，訪問(wèn)員從一個(gè)家庭中隨機(jī)選擇的成年人那里收集數(shù)據(jù)。在進(jìn)行BRFSS【原創(chuàng)】R語(yǔ)言數(shù)據(jù)可視化分析案例：探索BRFSS數(shù)據(jù)數(shù)據(jù)分析報(bào)告論文(附代碼數(shù)據(jù))全文共10頁(yè)，當(dāng)前為第2頁(yè)。問(wèn)卷的蜂窩電話版本時(shí)，訪問(wèn)員從成年人中收集數(shù)據(jù)，該成年人通過(guò)使用蜂窩電話參與并居住在私人住宅或大學(xué)住宅中。”【原創(chuàng)】R語(yǔ)言數(shù)據(jù)可視化分析案例：探索BRFSS數(shù)據(jù)數(shù)據(jù)分析報(bào)告論文(附代碼數(shù)據(jù))全文共10頁(yè)，當(dāng)前為第2頁(yè)。推論范圍（普遍性/因果關(guān)系）：普遍性：調(diào)查數(shù)據(jù)是從50個(gè)州和美國(guó)領(lǐng)土收集的，這使得數(shù)據(jù)看起來(lái)足夠隨機(jī)樣本，從而可以將其推廣到整個(gè)美國(guó)人口。因果關(guān)系：由于所有參與者均未接受指定的治療和對(duì)照組的治療-無(wú)法假設(shè)因果關(guān)系-只能測(cè)量相關(guān)性。方法論，偏見(jiàn)和需要改進(jìn)的方面的問(wèn)題：通過(guò)電話調(diào)查，有可能低估了幾種類型的個(gè)人：1.沒(méi)有座機(jī)或手機(jī)的個(gè)人2.拒絕回答或參加電話調(diào)查的個(gè)人。3.在進(jìn)行調(diào)查時(shí)無(wú)法通過(guò)電話聯(lián)系/無(wú)法聯(lián)系到調(diào)查的個(gè)人。采訪問(wèn)題的答案尚未通過(guò)驗(yàn)證，這意味著受訪者可以通過(guò)以下方式修改其回答：1.過(guò)度報(bào)告理想的行為和/或特征。2.漏報(bào)不良行為。3.夸大或歪曲某些特征，例如身高，學(xué)歷或收入。4.錯(cuò)誤地提供關(guān)鍵信息（由于要求受訪者記住30天內(nèi)或更長(zhǎng)時(shí)間的詳細(xì)信息，因此他們的記憶可能不正確）。5.參與的國(guó)家機(jī)構(gòu)之間的面試做法和問(wèn)題集可能不一致。有關(guān)更多詳細(xì)信息，請(qǐng)?jiān)L問(wèn)CDC網(wǎng)站。供以后參考，如果數(shù)據(jù)集包含有關(guān)每個(gè)訪談的詳細(xì)信息，例如收集數(shù)據(jù)的時(shí)間和訪談的持續(xù)時(shí)間，將很有用。這些其他信息將提供有關(guān)可能參加或可能未參加調(diào)查的人員的進(jìn)一步見(jiàn)解?！驹瓌?chuàng)】R語(yǔ)言數(shù)據(jù)可視化分析案例：探索BRFSS數(shù)據(jù)數(shù)據(jù)分析報(bào)告論文(附代碼數(shù)據(jù))全文共10頁(yè)，當(dāng)前為第3頁(yè)。第2部分：研究問(wèn)題【原創(chuàng)】R語(yǔ)言數(shù)據(jù)可視化分析案例：探索BRFSS數(shù)據(jù)數(shù)據(jù)分析報(bào)告論文(附代碼數(shù)據(jù))全文共10頁(yè)，當(dāng)前為第3頁(yè)。研究問(wèn)題1：體重指數(shù)（BMI）是否與受訪者自己的健康看法相關(guān)/相關(guān)？這個(gè)問(wèn)題探討了BMI“正?！钡娜耸欠駥?duì)自己的健康狀況有更好的認(rèn)識(shí)。雖然BMI并不是完美的健康指標(biāo)，但仍被公認(rèn)為健康和健康的初始指標(biāo)。使用的總變量：2genhlth-一般健康X_bmi5cat-將BMI分為4類（體重過(guò)輕，正常，超重，肥胖）的計(jì)算變量————-研究問(wèn)題2：一個(gè)人的夜間睡眠時(shí)間與他們的能量水平之間是否存在相關(guān)性？性別之間有區(qū)別嗎？這是一個(gè)有趣的問(wèn)題，因?yàn)榻?jīng)常吹噓睡眠是維持良好總體健康的重要組成部分。研究表明，那些睡眠時(shí)間少于5小時(shí)的人甚至更容易患慢性或嚴(yán)重疾病。使用的總變量：3sleptim1-報(bào)告的睡眠時(shí)間qlhlth2-在過(guò)去30天中，有幾天被報(bào)告為“全力以赴”性別-報(bào)告的生物性別————-研究問(wèn)題3：總體生活滿意度與受教育程度之間是否存在相關(guān)性？性別之間有什么區(qū)別嗎？這個(gè)問(wèn)題將試圖看看總體生活滿意度和個(gè)人受教育程度之間是否存在任何關(guān)聯(lián)。一些研究表明，與受教育程度較低的人相比，受教育程度較高的人較少出現(xiàn)婚姻問(wèn)題，并且可能享有更好的健康狀況。它將進(jìn)一步探討男性和女性之間是否存在任何差異?！驹瓌?chuàng)】R語(yǔ)言數(shù)據(jù)可視化分析案例：探索BRFSS數(shù)據(jù)數(shù)據(jù)分析報(bào)告論文(附代碼數(shù)據(jù))全文共10頁(yè)，當(dāng)前為第4頁(yè)。使用的總變量：3【原創(chuàng)】R語(yǔ)言數(shù)據(jù)可視化分析案例：探索BRFSS數(shù)據(jù)數(shù)據(jù)分析報(bào)告論文(附代碼數(shù)據(jù))全文共10頁(yè)，當(dāng)前為第4頁(yè)。滿意-整體生活滿意度教育-教育水平性別-個(gè)人的生物性別第3部分：探索性數(shù)據(jù)分析研究問(wèn)題1：體重指數(shù)（BMI）是否與受訪者自身健康的看法相關(guān)/相關(guān)？load("brfss2013.RData")dim(brfss2013)##[1]491775330q1<-select(brfss2013,genhlth,X_bmi5cat)%>%na.omit()dim(q1)##[1]4632752擁有460,000多個(gè)觀察值，通過(guò)表格進(jìn)行觀察更容易，如下所示：prop.table(table(q1$genhlth,q1$X_bmi5cat),2)####UnderweightNormalweightOverweightObese##Excellent0.199878050.260194960.173738870.07933813【原創(chuàng)】R語(yǔ)言數(shù)據(jù)可視化分析案例：探索BRFSS數(shù)據(jù)數(shù)據(jù)分析報(bào)告論文(附代碼數(shù)據(jù))全文共10頁(yè)，當(dāng)前為第5頁(yè)。##Verygood0.264024390.350698680.354012380.26824837【原創(chuàng)】R語(yǔ)言數(shù)據(jù)可視化分析案例：探索BRFSS數(shù)據(jù)數(shù)據(jù)分析報(bào)告論文(附代碼數(shù)據(jù))全文共10頁(yè)，當(dāng)前為第5頁(yè)。##Good0.261463410.246675140.306984510.37088006##Fair0.158292680.097516400.119437590.19913468##Poor0.116341460.044914840.045826650.08239876

表中有大量的數(shù)據(jù)。

g1<-ggplot(q1)+aes(x=X_bmi5cat,fill=genhlth)+geom_bar(position="fill")g1?每列代表4種BMI類別（體重過(guò)輕，正常，超重，肥胖）和描述自己健康狀況的受訪者比例。g2<-g1+xlab("BMIcategory")+ylab("Proportion")+scale_fill_discrete(name="ReportedHealth")【原創(chuàng)】R語(yǔ)言數(shù)據(jù)可視化分析案例：探索BRFSS數(shù)據(jù)數(shù)據(jù)分析報(bào)告論文(附代碼數(shù)據(jù))全文共10頁(yè)，當(dāng)前為第6頁(yè)。g2【原創(chuàng)】R語(yǔ)言數(shù)據(jù)可視化分析案例：探索BRFSS數(shù)據(jù)數(shù)據(jù)分析報(bào)告論文(附代碼數(shù)據(jù))全文共10頁(yè)，當(dāng)前為第6頁(yè)。?可以得出結(jié)論，在一定程度上，對(duì)這一問(wèn)題的回答是“是”。個(gè)體的BMI與他或她自己對(duì)健康的看法之間似乎存在關(guān)聯(lián)。

研究問(wèn)題2：一個(gè)人的夜間睡眠時(shí)間與他們的能量水平之間是否存在相關(guān)性？性別之間有區(qū)別嗎？q2<-select(brfss2013,qlhlth2,sex,sleptim1)%>%filter(!is.na(qlhlth2),!is.na(sex),sleptim1<=12)q2%>%group_by(qlhlth2)%>%summary(count=n())【原創(chuàng)】R語(yǔ)言數(shù)據(jù)可視化分析案例：探索BRFSS數(shù)據(jù)數(shù)據(jù)分析報(bào)告論文(附代碼數(shù)據(jù))全文共10頁(yè)，當(dāng)前為第7頁(yè)。##qlhlth2sexsleptim1【原創(chuàng)】R語(yǔ)言數(shù)據(jù)可視化分析案例：探索BRFSS數(shù)據(jù)數(shù)據(jù)分析報(bào)告論文(附代碼數(shù)據(jù))全文共10頁(yè)，當(dāng)前為第7頁(yè)。##Min.:0.00Male:162Min.:2.000##1stQu.:2.00Female:2871stQu.:6.000##Median:15.00Median:7.000##Mean:15.56Mean:7.013##3rdQu.:28.003rdQu.:8.000##Max.:30.00Max.:12.000ggplot(data=q2,aes(x=sleptim1,y=qlhlth2))+geom_point(shape=1)+#Usehollowcirclesgeom_smooth(method=lm)+scale_x_continuous(limits=c(4,10),breaks=4:10)+facet_grid(.~sex)+xlab("sleptim1=HoursofSleep")+ylab("qlhlth2:Daysoffullenergyinthelast30days")##Warning:Removed12rowscontainingnon-finitevalues(stat_smooth).##Warning:Removed12rowscontainingmissingvalues(geom_point).【原創(chuàng)】R語(yǔ)言數(shù)據(jù)可視化分析案例：探索BRFSS數(shù)據(jù)數(shù)據(jù)分析報(bào)告論文(附代碼數(shù)據(jù))全文共10頁(yè)，當(dāng)前為第8頁(yè)。?【原創(chuàng)】R語(yǔ)言數(shù)據(jù)可視化分析案例：探索BRFSS數(shù)據(jù)數(shù)據(jù)分析報(bào)告論文(附代碼數(shù)據(jù))全文共10頁(yè)，當(dāng)前為第8頁(yè)。睡眠時(shí)間和充滿能量的天數(shù)之間似乎總體上呈正相關(guān)。女性的相關(guān)性似乎比男性略強(qiáng)，因?yàn)槟行缘臄?shù)據(jù)分布更廣泛。++++++++++++++++++++++++研究問(wèn)題3：總體生活滿意度與受教育程度之間是否存在相關(guān)性？性別之間有什么區(qū)別嗎？q3<-select(brfss2013,lsatisfy,sex,educa)%>%filter(!is.na(lsatisfy),!is.na(sex),!is.na(educa))【原創(chuàng)】R語(yǔ)言數(shù)據(jù)可視化分析案例：探索BRFSS數(shù)據(jù)數(shù)據(jù)分析報(bào)告論文(附代碼數(shù)據(jù))全文共10頁(yè)，當(dāng)前為第9頁(yè)。q3%>%group_by(lsatisfy)%>%summarise(count=n())【原創(chuàng)】R語(yǔ)言數(shù)據(jù)可視化分析案例：探索BRFSS數(shù)據(jù)數(shù)據(jù)分析報(bào)告論文(附代碼數(shù)據(jù))全文共10頁(yè)，當(dāng)前為第9頁(yè)。###Atibble:4x2##lsatisfycount##<fct><int>##1Verysatisfied5378##2Satisfied5506##3Dissatisfied598##4Verydissatisfied161q3%>%group_by(educa)%>%summarise(count=n())###Atibble:6x2##educacount##<fct><int>##1Neverattendedschooloronlykindergarten10##2Grades1through8(Elementary)496##3Grades9though11(Somehighschool)1078##4Grade12orGED(Highschoolgraduate)3708##5College1yearto3years(Somecollegeortechnicalschool)3055##6College4yearsormore(Collegegraduate)3296q3%>%g