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/