He intentado varias formas de obtener unafacet_grid de gráficos circulares en ggplot2 para variar el ancho / radio de acuerdo con otra variable (fuerza).

geom_bar acepta ancho = 0.5 como parámetro pero se ignora una vezcoord_polar está agregado. @Adding width=0.5 al ggplotaes o agregando unaes ageom_bar no funciona. No puedo ver ninguna otra opción relevante paracoord_polar. ¿Cuál es la forma más fácil de hacer esto? El siguiente código hace una buena cuadrícula de gráficos circulares, pero no cambia el tamaño de los gráficos circulares. ¿Qué me estoy perdiendo

mydata <- data.frame(side1=rep(LETTERS[1:3],3,each=9),side2=rep(LETTERS[1:3],9,each=3),widget=rep(c("X","Y","Z"),9*3),val=runif(9*3),strength=rep(c(1,2,3),3,each=3))
ggplot(mydata, aes(x="",y = val, fill = widget, width = strength)) +
geom_bar(position="fill") + facet_grid(side1 ~ side2) +
coord_polar("y") + opts(axis.text.x = theme_blank())