PROSAGA码农传奇-模型可视化-R a中表的条件格式化更好的方法？

<div class =“post-text”itemprop =“text”>
  
    这个怎么样：
  
   <pre>
 <code>
 library(dplyr)
library(ggplot2)
thi <- data.frame(
 RH = c(1, 1, 1, 2, 2, 2, 3, 3, 3), 
 T = c(1, 2, 3, 1, 2, 3, 1, 2, 3), 
 THI = c(8, 8, 5, 7, 5, 10, 5, 8, 7)
)

names(thi) = c('col1', 'col2', 'thi')

ggplot(thi, aes(x = col1, y = col2, fill = factor(thi), label = thi)) +
  geom_tile() +
  geom_text()

</code>
 </pre>
  
    <a href="https://i.stack.imgur.com/cETNs.png" rel="nofollow noreferrer">
      <img src =“https://i.stack.imgur.com/cETNs.png”alt =“选项1”/>
    </A>
  
  
    或者取决于是否
     <code>
 thi
 </code>
     是真的
     <code>
 factor
 </code>
     （离散）或连续变量，你可能想要这样的东西：
  
   <pre>
 <code>
 ggplot(thi, aes(x = col1, y = col2, fill = thi, label = thi)) +
 geom_tile() +
 geom_text(color = 'white')

</code>
 </pre>
  
    <a href="https://i.stack.imgur.com/qaM5z.png" rel="nofollow noreferrer">
      <img src =“https://i.stack.imgur.com/qaM5z.png”alt =“选项2”/>
    </A>
  
  
    
      注意：您可能希望避免使用保留字或缩写的列或变量名（例如，避免调用某些内容
       <code>
 T
 </code>
       因为那是关键字的缩写
       <code>
 TRUE
 </code>
      ）。在上面的代码中，我重命名了data.frame的列。
    
  
  <HR />
  
    既然问题是表格的条件格式，你可能想要考虑
    <a href="https://gt.rstudio.com/index.html" rel="nofollow noreferrer">
       <code>
 gt
 </code>
    </A>
     包：
  
   <pre>
 <code>
 library(gt)

thi %>% gt()

</code>
 </pre>
  
    <a href="https://i.stack.imgur.com/WayDh.png" rel="nofollow noreferrer">
      <img src =“https://i.stack.imgur.com/WayDh.png”alt =“GT Table One”/>
    </A>
  
  
    或这个：
  
   <pre>
 <code>
 thi %>% gt() %>% 
 data_color(
 columns = vars(thi), 
 colors = scales::col_factor(
 palette = "Set1",
 domain = NULL
 ))

</code>
 </pre>
  
    <a href="https://i.stack.imgur.com/b3U1r.png" rel="nofollow noreferrer">
      <img src =“https://i.stack.imgur.com/b3U1r.png”alt =“GT Table 2”/>
    </A>
  
  
    或许这个：
  
   <pre>
 <code>
 thi %>% gt() %>%
 tab_style(
 style = cells_styles(
 bkgd_color = "#F9E3D6",
 text_style = "italic"),
 locations = cells_data(
 columns = vars(thi),
 rows = thi <= 7
 )
 )

</code>
 </pre>
  
    <a href="https://i.stack.imgur.com/KK3pV.png" rel="nofollow noreferrer">
      <img src =“https://i.stack.imgur.com/KK3pV.png”alt =“GT Table 3”/>
    </A>
  
</DIV>