PIE Plot

x=c(21,62,10,53)

labels=c("london","newyork","singapore","Dubai")

piepercent=round(100*x/sum(x),1)

pie(x,labels,col=rainbow(length(x)),radius=1.0,main="popoular cities",clockwise = FALSE)

legend("topright",c("london","newyork","singapore","mumbai"), cex=0.8, fill=rainbow(length(x)))