data<- c(161,70,42,35,21)
labels<- c("5.機車","4.公車","3.捷運","2.步行","1.腳踏車")
#drawing the pie chart
pie(data, labels, main="主要的通勤方式", 
        col=rainbow(length(data)))