geom_polygon具有來自資料的十六進制填充顏色

我有一個具有以下結構的小標題：

library(tidyverse)
dmd <- tibble(sample = rep(c(1,2,3), each = 2),
              time   = rep(c(1,2),3),
              score  = c(0.69,0.95,1,0.90,1,0.76)) %>%
  mutate(x = map(base::strsplit(paste(sample,
                                      sample   0.5,
                                      sample,
                                      sample - 0.5,
                                      sep = ","),
                                split = ","),
                 as.numeric)) %>%
  mutate(y = map(base::strsplit(paste(time   0.5,
                                      time,
                                      time - 0.5,
                                      time,
                                      sep = ","),
                                split = ","),
                 as.numeric)) %>%
  unnest(c(x,y)) %>%
  group_by(sample,time) %>%
  mutate(group_id = cur_group_id()) %>%
  ungroup

# A tibble: 24 × 6
   sample  time score     x     y group_id
    <dbl> <dbl> <dbl> <dbl> <dbl>    <int>
 1      1     1  0.69   1     1.5        1
 2      1     1  0.69   1.5   1          1
 3      1     1  0.69   1     0.5        1
 4      1     1  0.69   0.5   1          1
 5      1     2  0.95   1     2.5        2
 6      1     2  0.95   1.5   2          2
 7      1     2  0.95   1     1.5        2
 8      1     2  0.95   0.5   2          2
 9      2     1  1      2     1.5        3
10      2     1  1      2.5   1          3
# … with 14 more rows

然后我使用grDevices::rgb基于dcolor. score該if()陳述句在此示例中沒有做太多，但重要的是我保留此元素以實作我的代碼的功能化。

minsc <- min(dmd$score)
thrsh <- 0.75
if (minsc < thrsh) {
  floor <- minsc
} else {
  floor <- thrsh
}

dmd <- dmd %>% mutate(temp = (1 - score) / (1 - floor)) %>%
  mutate(dcolor = grDevices::rgb(temp,temp,temp)) %>%
  dplyr::select(-temp)

# A tibble: 24 × 7
   sample  time score     x     y group_id dcolor 
    <dbl> <dbl> <dbl> <dbl> <dbl>    <int> <chr>  
 1      1     1  0.69   1     1.5        1 #FFFFFF
 2      1     1  0.69   1.5   1          1 #FFFFFF
 3      1     1  0.69   1     0.5        1 #FFFFFF
 4      1     1  0.69   0.5   1          1 #FFFFFF
 5      1     2  0.95   1     2.5        2 #292929
 6      1     2  0.95   1.5   2          2 #292929
 7      1     2  0.95   1     1.5        2 #292929
 8      1     2  0.95   0.5   2          2 #292929
 9      2     1  1      2     1.5        3 #000000
10      2     1  1      2.5   1          3 #000000
# … with 14 more rows

dmd如果我用,繪制geom_polygon，dcolor則被解釋為一個因素。

ggplot(dmd)   
  geom_polygon(mapping = aes(x = x,
                             y = y,
                             group = group_id,
                             fill = dcolor),
               color = "black")  
  theme_void()

我想強制ggplot使用給出的十六進制值dcolor作為每顆鉆石的填充顏色。使用scale_fill_manual讓我更接近，但顏色仍然不正確（#000000應該是黑色，#FFFFFF應該是白色）。

pal <- dmd %>% dplyr::select(group_id, dcolor) %>%
  unique %>% dplyr::select(dcolor) %>% as_vector

ggplot(dmd)   
  geom_polygon(mapping = aes(x = x,
                             y = y,
                             group = group_id,
                             fill = dcolor),
               color = "black")  
  scale_fill_manual(values = palette(pal))  
  theme_void()

uj5u.com熱心網友回復：

您可以使用以下方法實作您想要的結果scale_fill_identity：

library(tidyverse)

ggplot(dmd)   
  geom_polygon(mapping = aes(x = x,
                             y = y,
                             group = group_id,
                             fill = dcolor),
               color = "black")  
  theme_void()  
  scale_fill_identity(guide = guide_legend())

標籤：r ggplot2 dplyr 颜色

上一篇：繪制時間序列資料

下一篇：ggplot2在圖表上缺少分面包裝標簽