x <-  c(25, 15)
labels <- c("Pria, Wanita")
colors = c("Black","Red")
piepercent <- round(100*x/sum(x), 1)
labels <- paste(labels,piepercent)
labels <- paste(labels,"%",sep="")
pie(x, labels = labels, main = "Carlos Lucky 00000028757",col = colors)