library(openxlsx) sample1<-read.xlsx("http://kanggc.iptime.org/book/data/stat-1.xlsx", sheet=1, startRow=1, colNames = T) slices<-c(1,2,3,4,5,6,7,8) lbls<-c("1µî±Þ","2µî±Þ","3µî±Þ","4µî±Þ","5µî±Þ","6µî±Þ","7µî±Þ","8µî±Þ") pie(slices, labels=lbls, main="Pie Chart of Total Score")