R заполнить в процентах в geom_point - PullRequest
Новая
       77

R заполнить в процентах в geom_point

0 голосов
/ 06 февраля 2019

Я хотел бы сделать круговую диаграмму, где значения в столбце rec соответствуют проценту от круга, который должен быть заполнен черным цветом.Я сделал пример в Photoshop (см. А и В на рисунке 1).В своих поисках я нашел некоторые объяснения для bar_plot, но ни одно из них не сработало в моем сценарии

Кто-нибудь знает, как это сделать, или предложит другой вариант графика, который бы продемонстрировал то, что я хотел? 

ggplot(Dataset, aes(sp,log(num))) + 
  geom_point(aes(size = pref, color=as.factor(ex)), shape = 21, stroke = 2)+
  scale_size_continuous(range = c(4,10)) +
  scale_colour_manual(values=c("black", "red")) + # set the border to the bg color
  ggthemes::theme_few() +
  guides(color = FALSE) + # remove the legend for the border
  theme(axis.text.x = element_text(angle = 90, vjust = .5))

Данные: 

grupo   sp  num porc_rec    rec pref    ex
ave A   47  74.46808511 35  7   0
ave B 22    22.72727273 5   3   0
ave C   5   0   0   0   0
ave D   4   0   0   0   0
ave E   2   0   0   0   0
ave F   2   0   0   0   0
ave G   2   0   0   0   1
ave H   2   0   0   0   0
ave I   1   0   0   1   0
ave J   1   0   0   0   0
ave L 1 0   0   0   0
ave M   1   0   0   0   0
ave N   1   0   0   0   0
ave O   1   0   0   0   0
ave P   1   0   0   0   0
ave Q   1   0   0   0   0
ave R   1   0   0   0   0
ave S   1   0   0   0   1
ave T   1   0   0   0   1
ave U   1   0   0   0   1

enter image description here

1 Ответ

0 голосов
/ 09 февраля 2019

Используя пакет scatterpie, вы можете сгенерировать что-то похожее на то, что вы просили (масштабирование радиуса не идеально, но должно быть настраиваемым для получения желаемых результатов: 

dat = structure(list(group = c("ave", "ave", "ave", "ave", "ave", "ave", 
        "ave", "ave", "ave", "ave", "ave", "ave", "ave", "ave", "ave", 
        "ave", "ave", "ave", "ave", "ave"), sp = c("A", "B", "C", "D", 
        "E", "F", "G", "H", "I", "J", "L", "M", "N", "O", "P", "Q", "R", 
        "S", "T", "U"), num = c(47L, 22L, 5L, 4L, 2L, 2L, 2L, 2L, 1L, 
        1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), porc_rec = c(74.46808511, 
        22.72727273, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
        0, 0), rec = c(35L, 5L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
        0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), pref = c(7L, 3L, 0L, 0L, 0L, 
        0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), 
        ex = c(0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 
        0L, 0L, 0L, 0L, 1L, 1L, 1L)), class = "data.frame", row.names = c(NA, 
        -20L))

library(ggplot2)
library(scatterpie)

dat$idx = as.numeric(1:nrow(dat))

input = dat[,c("idx","num","porc_rec","ex","pref")]
input$recip = 100 - input$porc_rec
input$radius = abs(0.4 / scale((input$pref + 1)/ max(input$pref),center = 7))
ggplot() + geom_scatterpie(data=input, aes(x=idx, y=log(num),color = factor(ex), r = radius), cols=c("porc_rec","recip")) +
  coord_equal() +
  scale_fill_manual(values = c("black","white")) + scale_colour_manual(values = c("black","red"))

enter image description here

...