Вафельный сюжет с десятичными числами

Question

Когда у вас есть значения <1 в вафельном графике, они не будут отображаться.

library(waffle)
wp<-waffle(c(10,25,25,1,0.05,0.5,30,7.5,0.95),
           rows=10,
           colors=c("#CC0000", "#006600", "#669999", "#00CCCC", 
                    "#660099", "#CC0066", "#FF9999", "#FF9900", "black"))

Есть ли способ использовать вафлю или ggplot, чтобы заполнить оставшиеся поля их пропорциональным значением? например, несколько цветов на ячейку?

Answer 1

Это своего рода точка. Как сказал @camille, это своего рода точка вафельного сюжета - иметь 1 элемент на полное наблюдение.

Однако то, что вы (или любой другой человек, желающий получить аналогичный результат), могли бы слегка изменить форму данных, чтобы отразить эти небольшие наблюдения в своей категории "Другие":

parts <- c("A" = 10, "B" = 25, "C" = 25, "D" = 1, "G" = 30, "H" = 7.5, 
       "Others" = 0.95 + 0.05 + 0.5)
waffle(parts,
       rows=10,
       colors=c("#CC0000", "#006600", "#669999", "#00CCCC", 
                "#FF9999", "#FF9900", "blue"))