Los gráficos de sectores 3D no son realmente recomendables, pero si quieres crear uno puedes utilizar la función pie3D de la librería plotrix. El diagrama de sectores 3D por defecto será como el siguiente:
# install.packages("plotrix")
library(plotrix)
datos <- c(19, 21, 54, 12, 36, 12)
pie3D(datos)

Radio (ancho)
El argumento radius permite modificar el radio de la “tarta” en “unidades de usuario”. El valor por defecto es 1.
# install.packages("plotrix")
library(plotrix)
datos <- c(19, 21, 54, 12, 36, 12)
pie3D(datos,
radius = 0.75)

Altura
De manera similar, puedes cambiar la altura del diagrama con height. El valor por defecto es 0.1.
# install.packages("plotrix")
library(plotrix)
datos <- c(19, 21, 54, 12, 36, 12)
pie3D(datos,
height = 0.2)

Ángulo
También puedes cambiar el ángulo de visualización de la representación con theta. El valor por defecto es pi/6.
# install.packages("plotrix")
library(plotrix)
datos <- c(19, 21, 54, 12, 36, 12)
pie3D(datos,
theta = 1.5)


El color de cada sector se puede personalizar con col. En los siguientes ejemplos estamos utilizando la paleta "Spectral" y generando tantos colores como sectores.
# install.packages("plotrix")
library(plotrix)
datos <- c(19, 21, 54, 12, 36, 12)
pie3D(datos,
col = hcl.colors(length(datos), "Spectral"))

El color del borde se puede personalizar con el argumento border. En el siguiente bloque de código estamos estableciendo un borde blanco.
# install.packages("plotrix")
library(plotrix)
datos <- c(19, 21, 54, 12, 36, 12)
pie3D(datos,
col = hcl.colors(length(datos), "Spectral"),
border = "white")

Por último, puedes cambiar el sombreado del borde del diagrama, para modificar el efecto 3D. Esto hará más claros o más oscuros los colores correspondientes.
# install.packages("plotrix")
library(plotrix)
datos <- c(19, 21, 54, 12, 36, 12)
pie3D(datos,
col = hcl.colors(length(datos), "Spectral"),
shade = 0.5)
pie3D
Puedes agregar etiquetas al gráfico de sectores representando los valores, etiquetas o porcentajes de cada sección pasando un vector de la misma longitud que el número de sectores al argumento labels.
# install.packages("plotrix")
library(plotrix)
datos <- c(19, 21, 54, 12, 36, 12)
pie3D(datos,
col = hcl.colors(length(datos), "Spectral"),
labels = datos)

Si tienes un vector numérico que no representa porcentajes considera transformarlos como en el siguiente ejemplo.
# install.packages("plotrix")
library(plotrix)
datos <- c(19, 21, 54, 12, 36, 12)
lab <- paste0(round(datos/sum(datos) * 100, 2), "%")
pie3D(datos,
col = hcl.colors(length(datos), "Spectral"),
labels = lab)

El color y tamaño de las etiquetas se puede personalizar con los argumentos labelcol y labelcex. El valor por defecto de este último es 1.5.
# install.packages("plotrix")
library(plotrix)
datos <- c(19, 21, 54, 12, 36, 12)
pie3D(datos,
col = hcl.colors(length(datos), "Spectral"),
labels = datos,
labelcol = "red",
labelcex = 0.75)

explode

También puedes “explotar” el gráfico con explode.
# install.packages("plotrix")
library(plotrix)
datos <- c(19, 21, 54, 12, 36, 12)
pie3D(datos, mar = rep(1.75, 4),
col = hcl.colors(length(datos), "Spectral"),
labels = datos,
explode = 0.2)
También te puede interesar