1 探究感到沮丧的频率与不同年龄段之间的关系
1.1 使用的包
dplyr
、ggplot2
、ggmosaic
、pander
、tidyr
其中,ggmosaic
的安装方法:
devtools::install_github("haleyjeppson/ggmosaic")
library(ggmosaic)
1.2 代码
# 设置工作路径并导入数据
setwd("C:\\Users\\lenovo\\Desktop\\rhomework")
load("C:\\Users\\lenovo\\Desktop\\rhomework\\brfss2013.RData")
# 加载需要使用的包
library(knitr)
library(pander)
library(ggplot2)
library(ggmosaic)
library(dplyr)
library(tidyr)
# 清洗数据,去除无意义数据和NAs,仅选取需要的列
cleaned_data<-brfss2013%>%muta