[연습문제] smoke.xlsx

http://bigdata.dongguk.ac.kr/lectures/R/_book/%ED%80%B4%EC%A6%882.html#smoke.xlsx-%EB%8A%94-%EC%95%84%EB%9E%98%EC%99%80-%EA%B0%99%EC%9D%80-%EB%B3%80%EC%88%98%EB%93%A4%EB%A1%9C-%EA%B5%AC%EC%84%B1%EB%90%9C-%EC%9E%90%EB%A3%8C%EC%9D%B4%EA%B3%A0-%EC%95%84%EB%9E%98%EC%97%90%EC%84%9C-%EB%8B%A4%EC%9A%B4%EB%A1%9C%EB%93%9C%ED%95%A0-%EC%88%98-%EC%9E%88%EB%8B%A4.

A. 퀴즈-2 | R프로그래밍및실습

문제 출처 !!!!

 

##1. 주어진 엑셀 데이터를 읽어 r 데이터프레임 smokers로 저장하여라.
install.packages("readxl")
library(readxl)
smokers <- read_excel("C:/R work/smoke.xlsx")
as.data.frame(smokers)

##2. smokers에서 자료의 수(레코드의 수) 구하기
dim(smokers)
#or
nrow(smokers)

##3. smokers 자료의 앞에서부터 10개 레코드 출력
head(smokers, 10)

##4. 여자와 남자의 수 구하기
female <- sum(smokers$Gender == "F")
female
male <- sum(smokers$Gender == "M")
male

##5. 흡연자의 수와 흡연비율 구하기
#흡연자 수 
sp <- sum(smokers$Smoker == "yes")
sp
#흡연비율
sp / nrow(smokers)


##6. 성별 흡연자의 수와 흡연비율

#여자
#흡연자의 수 
b <- nrow(subset(smokers, Gender == "F" & Smoker == "yes"))
b
#흡연비율
b/female
#남자 
#흡연자의 수 
c <- nrow(subset(smokers, Gender == "M" & Smoker == "yes"))
c
#흡연비율
c/male

##7. BMI 구하기
smokers$bmi <- smokers$Weight / (smokers$Height/100)^2
smokers

-->>이거 틀리면 아래 문제 다 틀림 ! 키의 제곱은 (n/100)^2

##8. 성별 BMI의 평균과 표준편차

#여자
d <- subset(smokers, smokers$Gender == "F")
mean(d$bmi)
sd(d$bmi)

#남자
f <- subset(smokers, smokers$Gender == "M")
mean(f$bmi)
sd(f$bmi)

##9. 성별 BMI BOX PLOT
#여자
boxplot(d$bmi)
#남자
boxplot(f$bmi)


##10. 흡연 및 비흡연자의 bmi의 평균과 표준편차
#흡연자
g <- subset(smokers, smokers$Smoker == "yes")
mean(g$bmi)
sd(g$bmi)

#비흡연자
h <- subset(smokers, smokers$Smoker == "no")
mean(h$bmi)
sd(h$bmi)

##11. 흡연 및 비흡연자의 bmi box plot
boxplot(g$bmi)
boxplot(h$bmi)