Заполните эстетику, использованную дважды, с непрерывными и дискретными шкалами - PullRequest
Новая
       34

Заполните эстетику, использованную дважды, с непрерывными и дискретными шкалами

1 голос
/ 20 апреля 2019

У меня есть данные, подобные приведенным ниже: 

structure(list(bucket = structure(1:23, .Label = c("(1.23,6.1]", 
"(6.1,10.9]", "(10.9,15.6]", "(15.6,20.4]", "(20.4,25.1]", "(25.1,29.9]", 
"(29.9,34.6]", "(34.6,39.4]", "(39.4,44.2]", "(44.2,48.9]", "(48.9,53.7]", 
"(53.7,58.4]", "(58.4,63.2]", "(63.2,68]", "(68,72.7]", "(72.7,77.5]", 
"(77.5,82.2]", "(82.2,87]", "(87,91.7]", "(91.7,96.5]", "(96.5,101]", 
"(101,106]", "(106,111]"), class = "factor"), value = c(0.996156321090158, 0.968144290236367, 0.882793110384066, 0.719390676388129, 0.497759597498133, 
0.311721580067415, 0.181244079443301, 0.0988516758834657, 0.0527504526341006, 
0.0278716018561911, 0.0145107725175315, 0.00785033086321829, 
0.00405759957072942, 0.00213190168252939, 0.00109610249274952, 
0.000578154695264754, 0.000301095727545301, 0.000155696457494707, 
8.2897211122996e-05, 4.09225082176349e-05, 2.33782236798641e-05, 
1.21665352966827e-05, 6.87373003802479e-06), bucket_id = 1:23), class = c("tbl_df", 
"tbl", "data.frame"), row.names = c(NA, -23L))

, которые я хочу визуализировать как круговой столбчатый график: 

cutoff_values <- seq(0, 115, by = 5)


library(tidyverse)
ex %>% 
  mutate(r0 = cutoff_values[-length(cutoff_values)],
         r = cutoff_values[-1]) %>% 
  mutate(x0 = 100, 
         y0 = 50) %>% 
  ggplot(aes(x0 = x0, y0 = y0, r0 = r0, r = r)) +
  ggforce::geom_arc_bar(aes(start = 0, end = 2 * pi, fill = value),
                        colour = NA) +
  theme_void() +
  labs(fill = 'colour')

enter image description here

Но я также должен быть в состоянии выделить какое-то конкретное ведро с различным наполнением в лучшем случае.Поэтому мне нужно иметь возможность сохранять заполнение, используя value с непрерывной шкалой, а также заполнять один конкретный слой (скажем, bucket == 15) другим цветом, оставляя другие слои (сегменты) такими, как они есть.Является ли это возможным?Каковы альтернативы для выделения 15-го ведра?

1 Ответ

1 голос
/ 20 апреля 2019

Я полагаю, что это можно сделать с помощью пакета relayer, который все еще очень экспериментален.Вы можете скопировать подмножество ваших данных в отдельном объекте и придать ему другую эстетику.Этот отдельный geom может быть затем передан в rename_geom_aes(), и вам придется установить scale_fill_*() для переименованной эстетики.Вы, вероятно, получите предупреждение о том, что геом игнорирует неизвестную эстетику, но я не знаю, можно ли с этим чем-то помочь.

Ниже приведен пример изготовления красного ведра 15. 

library(tidyverse)
library(relayer) # https://github.com/clauswilke/relayer

ex <- df %>% 
  mutate(r0 = cutoff_values[-length(cutoff_values)],
         r = cutoff_values[-1]) %>% 
  mutate(x0 = 100, 
         y0 = 50)

ggplot(ex, aes(x0 = x0, y0 = y0, r0 = r0, r = r)) +
  ggforce::geom_arc_bar(aes(start = 0, end = 2 * pi, fill = value),
                        colour = NA) +
  ggforce::geom_arc_bar(data = ex[ex$bucket_id == 15,], # Whatever bucket you want
                        aes(start = 0, end = 2 * pi, fill2 = as.factor(bucket_id))) %>% 
  rename_geom_aes(new_aes = c("fill" = "fill2")) +
  scale_fill_manual(aesthetics = "fill2", values = "red", guide = "legend") +
  theme_void() +
  labs(fill = 'colour', fill2 = "highlight")
...