kd <- read.csv("data.csv")
pd <- table(kd$어린이집유형구분)

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="사례수")