library(plotrix)
data <- c(19, 21, 54, 12, 36, 12)
pie3D(data)

data <- c(19, 21, 54, 12, 36, 12)
pie3D(data,
col = hcl.colors(length(data), "Spectral"),
border = "white")

data <- c(19, 21, 54, 12, 36, 12)
pie3D(data,
col = hcl.colors(length(data), "Spectral"),
shade = 0.5)

data <- c(19, 21, 54, 12, 36, 12)
pie3D(data,
col = hcl.colors(length(data), "Spectral"),
labels = data)

pie3D(data,
col = hcl.colors(length(data), "Spectral"),
labels = data,
labelcol = "red",
labelcex = 0.75)

pie3D(data, mar = rep(1.75, 4),
col = hcl.colors(length(data), "Spectral"),
labels = data,
explode = 0.2)

##https://r-charts.com/part-whole/pie3d/