#creating dataset
data<- c(185,82,36,28,25)
labels<- c("5.娛樂休閒","4.知識閱讀","3.體育競技競技","2.科學創新","1.公益活動")
#drawing the pie chart
pie(data, labels, main="次數分配表", 
        col=rainbow(length(data)))