PROSAGA码农传奇-模型可视化-手动填充geom

<div class =“post-text”itemprop =“text”>
  
    以下是一些技巧选项。首先，为了获得每个问题的完整级别，以便您在数据中没有空白，我使用了
     <code>
 tidyr::complete
 </code>
    。那是我将要使用的数据框架。
  
   <pre class="lang-r prettyprint-override">
 <code>
 library(ggplot2)
library(dplyr)
library(tidyr)
library(purrr)
library(patchwork)

df_full <- df %>%
 complete(nesting(Domain, Question_Code), RespondentLevel) %>%
 mutate(RespondentLevel = as.character(RespondentLevel))

</code>
 </pre>
  
    更简单的选择是通过更改alpha来近似渐变，并根据域设置色调（红色，绿色等）。这会使您选择的其他颜色失效，并且只使用每个调色板的最后，最暗的颜色。
  
  
    为此，我列出了所有调色板。在设置填充时，
     <code>
 map_chr(palettes, 5)
 </code>
     提取每个列表的第5个元素，这是每个列表中最暗的颜色。您可能想要调整或删除一个或两个图例。
  
   <pre class="lang-r prettyprint-override">
 <code>
 palettes <- list(Greens, Reds, Yellows, Blues)

ggplot(df_full, aes(x = RespondentLevel, y = Question_Code, fill = Domain, alpha = RespondentLevel)) +
  geom_tile() +
  theme_minimal() +
  facet_grid(rows = vars(Domain), scales = "free", space = "free") +
  scale_fill_manual(values = map_chr(palettes, 5))
#> Warning: Using alpha for a discrete variable is not advised.

</code>
 </pre>
  
    <img src =“https://i.imgur.com/q0ugFnJ.png”alt =“”/>
  
  
    更难的方法是按域分割数据并制作一个图表列表，然后将它们与
     <code>
 patchwork
 </code>
     包。好处是你可以保留全彩色调色板，但缺点是控制你从中调整大小的东西更加困难
     <code>
 facet_grid
 </code>
    ，这适用于某些域中列出的问题多于其他域中的问题。您可以手动调整这些大小
     <code>
 plot_layout
 </code>
     如果你认为这种方法是值得的。你还需要调整一些主题元素来模仿什么
     <code>
 facet_grid
 </code>
     会做。
  
   <pre class="lang-r prettyprint-override">
 <code>
 plot_list <- df_full %>%
 split(.$Domain) %>%
 map2(palettes, function(domain_df, pal) {
 ggplot(domain_df, aes(x = RespondentLevel, y = Question_Code, fill = RespondentLevel)) +
 geom_tile() +
 theme_minimal() +
 scale_fill_manual(values = pal) +
 theme(legend.position = "none") +
 labs(x = NULL, y = NULL)
 })

reduce(plot_list, `+`) +
  plot_layout(ncol = 1)

</code>
 </pre>
  
    <img src =“https://i.imgur.com/mFToBme.png”alt =“”/>
  
  
    注意通常，
     <code>
 patchwork
 </code>
     将情节放在一起就像
     <code>
 plot1 + plot2
 </code>
     模仿
     <code>
 ggplot
 </code>
     层次感。因为我在列表中有这些情节，所以我这样做了
     <code>
 purrr::reduce
 </code>
    。
  
</DIV>

手动填充geom_tile，按组分组