sales <- c(122.3,169,198,110,173)
names <- c("小刚","小丽","小花","小兰","小美")
per.sales <- paste(round(100 * sales / sum(sales),2),"%")
slice.col <- rainbow(10)
pie(sales,labels=per.sales,col= slice.col,main="X销售部第N周销售业绩情况")legend("topright",names,cex=0.85, fill=slice.col)