[빅데이터분석] R _ 23. 그룹함수 LENGTH(세로)/TABLE(가로)/원형그래프)

문제1. 직업, 직업별 인원수를 출력하시오. LENGTH(세로출력)
1) SQL

select job, count(*)
	from emp
    group by job;​

2) R

X<-aggregate(empno~job,emp,length)
names(x)<- c('직업','인원수')
x​

문제2. 위의 결과를 가로로 출력하시오. TABLE(가로)
1) SQL

select count(decode(job,'ANALYST', empno,1, null) as 'ANALYST',
       count(decode(job,'ANALYST', empno,1, null) as 'SALESMAN',
       count(decode(job,'ANALYST', empno,1, null) as 'CLERK',
       count(decode(job,'ANALYST', empno,1, null) as 'MANAGER',
       count(decode(job,'ANALYST', empno,1, null) as 'PRESIDENT'
     from emp;​

2) R

table(emp$job)

문제 3. 직업과 직업별 인원수를 원형그래프로 시각화 하시오.

job_cnt <- table(emp$job)
pie(job_cnt,
    main='직업별 빈도 원형 그래프',           # Title of the pie chart
    col = rainbow(length(job_cnt)),           # Colors for the pie slices
    labels = paste(names(job_cnt), '\n', job_cnt)  # Labels for each slice
)​

문제4. 위 그래프 색깔을 변경하시오

 job_cnt <- table(emp$job)
    
    colors <- c("skyblue", "coral", "seagreen", "gold", "orchid")
    
    pie( job_cnt, 
         main="직업별 빈도 원형 그래프" ,
         col= colors,
         labels= paste(names(job_cnt), "\n", job_cnt ) )​

문제 5. 부서번호와 부서번호별 인원수를 원현그래프로 시작화 하시오.

 x<-table(emp$deptno)
    x

pie(x,
    main = '부서번호별 인원수 그래프',
    col=colors,
    labels= paste(names(x), "\n", x ))​