Мне нужно повторить то, что сделано в: крошечные круговые диаграммы для представления каждой точки диаграммы рассеяния с использованием ggplot2, но я столкнулся с проблемой, что пакет ggsubplot недоступен для версии 3.3.1 R.
По сути, мне нужна гистограмма или круговая диаграмма в предопределенных точках на диаграмме рассеяния. Вот тот же код, который используется в цитируемом сообщении:
foo <- data.frame(X=runif(30),Y=runif(30),A=runif(30),B=runif(30),C=runif(30))
foo.m <- melt(foo, id.vars=c("X","Y"))
ggplot(foo.m, aes(X,Y))+geom_point()
ggplot(foo.m) +
geom_subplot2d(aes(x = X, y = Y, subplot = geom_bar(aes(variable,
value, fill = variable), stat = "identity")), width = rel(.5), ref = NULL)
В коде использовались библиотеки reshape2, ggplot2 и ggsubplot.
Изображение, которое я хочу видеть, находится в сообщении, процитированном выше
UPD: я скачал старые версии R (3.0.2 и 3.0.3) и пакет контрольных точек и использовал:
checkpoint("2014-09-18")
как было описано в комментарии ниже. Но я получаю сообщение об ошибке:
Using binwidth 0.0946
Using binwidth 0.0554
Error in layout_base(data, vars, drop = drop) :
At least one layer must contain all variables used for facetting
Что я не могу обойти, потому что когда я пытаюсь включить фасет, возникает следующая ошибка:
Error: ggsubplots do not support facetting