Re: 오늘의 마지막 문제. SQL 포트폴리오 때 했던 데이터를 이용해서 오늘 배운 내용으로...

[19기_유동현]

# 진료과목별 서비스 건수 상위 10개 비율

t3 <- tapply(mdcr_21$Tot_Suplr_Srvcs, mdcr_21$Rfrg_Prvdr_Type,sum) #전체 진료과목별 서비스 건수 합산

order_t3 <- order(t3, decreasing=T) # 서비스 건수를 내림차순해서 그 데이터가 가지는 인덱스를 저장

order_t3 t4 <- t3[order_t3] # 인덱스로 표현된걸 데이터값으로 다시 저장

head(t4, 10) # 상위 10개 데이터 출력

t5 <- head(t4,10) # 상위 10개 데이터 저장

t5

library(doBy)

a <- orderBy(~ -Tot_Suplr_Srvcs, x[ , c("Rfrg_Prvdr_Type","Tot_Suplr_Srvcs")]) #전체 진료과목별 서비스 건수 합산을 세로로 출력 b <- head(a, 10) # 상위 10개 항목 저장

pct2 <- round(b$Tot_Suplr_Srvcs/sum(b$Tot_Suplr_Srvcs)*100,3) # 상위 10개 항목에 대한 비율 계산해서 저장

type_label2 <- paste( b$Rfrg_Prvdr_Type, ':',pct2,'%') # 원형 그래프에 표시할 라벨 저장

type_label2

library(plotrix)

pie3D(t5, explode=0.05, labels = type_label2,
      main = "상위 10개의 진료과목별 총 서비스 건수 비율") # 원형 그래프