[Must Learning with R_3] Ch4. 기본문법 3단계 연습문제

Wikidocs에 올라와있는 Must Learning with R 을 참고하며 방학동안 부족한 R programming 공부를 하고있습니다. 책에 나와있는 연습문제를 정리하려 합니다.

Ch3. 기본문법 3단계

연습문제1

HR 데이터에서 last_evaluation의 평균을 구하시오.

HR = read.csv('D://HR_comma_sep.csv')
mean(HR$last_evaluation)

결과

> mean(HR$last_evaluation)
[1] 0.7161017

연습문제2

HR 데이터에서 last_evaluation의 표준편차를 구하시오.

sd(HR$last_evaluation)

결과

> sd(HR$last_evaluation)
[1] 0.1711691

연습문제3

HR 데이터에서 department에 대한 빈도표를 작성하시오.

TABLE = as.data.frame(table(HR$department))
print(TABLE)

결과

#3. HR 데이터에서 department에 대한 빈도표를 작성하시오.
> TABLE = as.data.frame(table(HR$department))
> print(TABLE)
          Var1 Freq
1   accounting  767
2           hr  739
3           IT 1227
4   management  630
5    marketing  858
6  product_mng  902
7        RandD  787
8        sales 4140
9      support 2229
10   technical 2720

연습문제4

HR 데이터에서 left, salary에 대한 교차표를 작성하시오.

Medium_Left = subset(HR, salary_New == 2 & left == 1)
print(xtabs(~ Medium_Left$salary + Medium_Left$left))

결과

> TABLE2 = as.data.frame(xtabs(~ HR$left + HR$salary))
> print(TABLE2)
  HR.left HR.salary Freq
1       0       low 5144
2       1       low 2172
3       0    medium 5129
4       1    medium 1317
5       0      high 1155
6       1      high   82