brewer 에서 제공하는 그래프 색 세트
m_data_type <- c("Accent","Dark2","Paired","Pastel1","Pastel2","Set1","Set2","Set3")
m_data_idx <-c(8,8,12,9,8,9,8,12)
for (i in 1:8) {
main_a <-m_data_type[i]
path <- paste(main_a,".jpg")
number <-m_data_idx[i]
pal <- brewer.pal(number,main_a)
m_data_1 <- c(rep(1,number))
jpeg(path)
pie(m_data_1, main = main_a, col=pal, border = 1)
dev.off()
}
![](https://t1.daumcdn.net/cfile/cafe/99D0CF335A02857E04)
![](https://t1.daumcdn.net/cfile/cafe/9992EA335A02857F3A)
![](https://t1.daumcdn.net/cfile/cafe/99E22E335A02857F1E)
![](https://t1.daumcdn.net/cfile/cafe/999C6E335A0285800B)
![](https://t1.daumcdn.net/cfile/cafe/99C206335A02858006)
![](https://t1.daumcdn.net/cfile/cafe/997A24335A0285810F)
![](https://t1.daumcdn.net/cfile/cafe/99C486335A02858121)
![](https://t1.daumcdn.net/cfile/cafe/9959D6335A0285821C)