Tengo los siguientes datos:

    I   II  Total 
A   15  25  40
B   5   45  50
C   15  5   20

R entrada de datos:

group <- c("A", "B", "C", "A", "B", "C")
subgroup <- c("I", "I", "I", "II", "II", "II")
yvar <- c(15, 5, 15, 25, 45, 5)

Cuando estaba pensando en una mejor manera de presentarlo, se me ocurrió la idea de un gráfico circular (preferiblemente 3D) combinado con un gráfico de barras (preferiblemente 3D). Aquí está mi bosquejo de mi idea donde el gráfico de barras está incrustado en el gráfico circular. Sugiérame si tiene alguna otra idea innovadora para presentar dichos datos.