PROSAGA码农传奇-模型可视化-R - ggplot2 - 可视化与基础模型的偏差

R - ggplot2 - 可视化与基础模型的偏差

作者: 薄情
发布时间: 2025-02-06 04:01:30 (1天前)
转自：

<div class =“post-text”itemprop =“text”>
  <P>
    不确定这是否是您正在寻找的。在这里，我计算每个模型和之间的差异;该
     <code>
      base
    </code>
     模型使用
     <code>
      purrr::map_df
    </code>
    。之后我将结果转换为长格式用于绘图w /
     <code>
      ggplot2
    </code>
  </p>
   <pre class="lang-r prettyprint-override">
    <code>
      library(tidyverse)

base = c(1.84,3.92,1.67,1.12,1.63,.62,.59)
e1 = c(.61,1.47,1.68,1.95,1.64,.61,.72)
e2 = c(.64,7.08,1.67,1.12,1.44,.46,.76)
e3 = c(.64,4.47,1.68,2.04,1.45,.4,1.35)
e4 = c(.78,1.61,1.62,1.09,1.46,.66,.76)
e5 = c(.78,.99,1.62,2.32,1.46,.73,.52)

df = data.frame(base, e1, e2, e3, e4, e5)

# calculate colwise differences
df %>% 
  map_df( ~ (. - base)) %>% 
  select(-base) %>% 
  # create id for each number
  mutate(id = row_number()) %>% 
  # convert to long format
  gather(key = "model", value = "diff", -id) -> df_dif

# plot the differences
ggplot(df_dif, aes(x = id, y = diff)) +
  geom_col(aes(fill = model), position = "dodge") +
  facet_grid(~ model) +
  theme_classic()

</code>
  </pre>
  <P>
    <img src =“https://i.imgur.com/8yjxSDN.png”alt =“”/>
  </p>
  <P>
    由2018-05-06创建
    <a href="http://reprex.tidyverse.org" rel="nofollow noreferrer">
      代表包
    </A>
     （v0.2.0）。
  </p>
</DIV>