# markdown은 웹 편집 전용

현재 보시는 내용은 그냥 문장으로 웹페이지 전환

그냥 문장으로 웹페이지 전환

kind.data <- read.csv("data.csv")

#kind.data

kd <- kind.data

#kd$어린이집유형구분

table(kd$어린이집유형구분)

## 
##         가정       국공립         민간   법인·단체 사회복지법인 
##        24165         3786        18136         1053         2231 
##         직장         협동 
##         1299          172

pd<- table(kd$어린이집유형구분)

pie(pd,col = rainbow(length(pd)))

per <- round(pd/sum(pd)*100, 1)
lab <- paste(names(pd), "\n", per, "%");

pie(pd, lab=lab, col=rainbow(length(pd)), main="유형별 사례수 비율")

library(plotrix)
pie3D(pd, labels=lab, col=rainbow(length(pd)), main="사례수")