PROSAGA码农传奇-模型可视化-将设置列值添加为R上的最小/最大误差条

<div class =“post-text”itemprop =“text”>
  <P>
    您需要使用以下内容重新整形数据
     <code>
      melt()
    </code>
     和
     <code>
      dcast()
    </code>
     功能来自
     <code>
      reshape2
    </code>
    ：
  </p>
   <pre>
    <code>
      library(reshape2)
library(ggplot2)

df <- data.frame(
  row.names = c("PV1", "PV2"),
  AvgRead = c(20, 40),
  MinRead = c(10, 20),
  MaxRead = c(40, 80),
  AvgUniq = c(40, 80),
  MinUniq = c(20, 40),
  MaxUniq = c(70, 160)
)

df$name <- row.names(df)

df_molten <- melt(df)
df_molten$var1 <- substr(df_molten$variable, 1, 3)
df_molten$var2 <- substr(df_molten$variable, 4, 10000)

df_cast <- dcast(df_molten, name + var2 ~ var1, value.var = "value")

ggplot(data = df_cast, aes(x = name, y = Avg, fill = var2)) +
  geom_bar(stat = "identity", position = "dodge") +
  geom_errorbar(
    aes(ymin = Min, ymax = Max),
    width = 0.5,
    size = 1.3,
    position = position_dodge(0.9)
  )

</code>
  </pre>
  <P>
    <a href="https://i.stack.imgur.com/iOFWw.png" rel="nofollow noreferrer">
      <img src =“https://i.stack.imgur.com/iOFWw.png”alt =“在此处输入图片说明”/>
    </A>
  </p>
  <P>
    的<strong>
      编辑：
    </强>
     要更改条形图的顺序，需要将var2更改为因子并相应地对级别进行排序：
  </p>
   <pre>
    <code>
      df_cast <- dcast(df_molten, name + var2 ~ var1, value.var = "value")
df_cast$var2 <- factor(df_cast$var2, levels = c("Uniq", "Read"))

</code>
  </pre>
</DIV>