Круговые диаграммы в ggplot2 с переменными размерами круговых диаграмм

Я пробовал различные способы получить facet_grid круговых диаграмм в ggplot2, чтобы варьировать ширину / радиус в соответствии с другой переменной ( сила).

geom_bar принимает в качестве параметра ширину = 0,5, но игнорируется при добавлении corre_polar . Добавление ширины = 0,5 в ggplot aes или добавление aes в geom_bar не работает. Я не вижу других подходящих опций для corre_polar . Как это сделать проще всего? Приведенный ниже код создает красивую сетку круговых диаграмм, но не меняет размеры круговых диаграмм. Что мне не хватает?

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())