# Get the library:
#install.packages("plotrix",repos = "https://cloud.r-project.org")
library(plotrix)

# Create data for the graph:
x <-  c(21, 62, 10,53)
lbl <-  c("London","New York","Singapore","Mumbai")

# Give the chart file a name:
png(file = "3d_pie_chart.jpg")

# Plot the chart:
pie3D(x,labels = lbl,explode = 0.1, main = "Pie Chart of Countries ")

# Save the file:
dev.off()

