Недавно я обнаружил эту визуализацию связи между ожирением и голодом с помощью JESS3: http://jess3.com/obesity-and-hunger-infographic/
Поскольку мне нравится соотношение информация/пространство, я попытался создать аналогичный график в R (то есть полярный график с точками разброса в центре, а в конце центра гистограмма с накоплением начинается с новой оси от 0 до х. Однако я не нашел способа реализовать стекирование разных версий polarplot в plotrix или ggplot2.
Чтобы проиллюстрировать, как в очень простой версии должны выглядеть два отдельных графика, я создал простой пример с пакетом mtcars:
library(plotrix)
##load mtcars as example dataset
d.raw <- mtcars
## draw inner polar plot with scatter plot for mpg
polar.plot(d.raw$mpg, clockwise=TRUE, rp.type="s", start=90)
#### draw additional polar plot (which should be added outside of first plot in the end) as stacked bar chart with hp and a fictitious added column with random values between 1 and 100%
##come up with percentages and multiply the with hp bar to get a random stacked bar of hp and this
d.raw$fict <- sample(100,32)*0.01
d.raw$hpshare <- d.raw$fict*d.raw$hp
## draw plot (first the hp and then add on top a second layer with the share of hp)
polar.plot(d.raw$hp, clockwise=TRUE, rp.type="r", lwd=5, line.col=2, start=90, radial.lim=c(0,350))
par(new=T)
polar.plot(d.raw$hpshare, clockwise=TRUE, rp.type="r", lwd=5, line.col=4, start=90, radial.lim=c(0,350))
Возможно ли это, и если да, то как я могу добиться того, чтобы новая ось начиналась, а столбцы добавлялись вне диаграммы рассеяния?
Заранее большое спасибо, все подсказки очень ценятся!