r-美观控制错误

Question

我有数据帧

pGi.Fi <- data.frame(
    Metadata_Well = c("D01", "F01"), 
    Freq = c("0.3789279","0.4191564"), 
    control = c("Scramble2","Scramble2"))

置信区间CI <- c(0.03222640,0.03196117) 的一个向量

这个代码用于生成带有error_bar 的条形码

limits <- aes(ymax = Freq+CI, ymin = Freq-CI)
dodge <- position_dodge(width=0.9)
bp <- ggplot(data=pGi.Fi, aes(x=Metadata_Well, y=Freq, fill=control)) + 
    geom_bar(position = "dodge", stat="identity") + 
    geom_bar(position=dodge) + 
    geom_errorbar(limits, position=dodge, width=0.25) + 
    scale_fill_grey()

我有这个错误

美学必须是长度一，或者与数据长度相同问题：Metadata_Well，Freq

感谢您的回答

Answer 1

无法准确再现您的错误，但我认为有些问题与您传递美学的方式有关？一般来说，最好是引用传递给ggplot的数据上的变量，而不是混合一些对数据帧的引用和其他对本地环境中变量的引用。我还挂断了您的一个geom_bar()电话，因为它似乎是重复的。

pGi.Fi <- data.frame(
    Metadata_Well = c("D01", "F01"), 
    Freq = c(0.3789279,0.4191564), 
    control = c("Scramble2","Scramble2"),
    ci = c(0.03222640,0.03196117)
)
dodge <- position_dodge(width=0.9)
bp <- ggplot(
  data = pGi.Fi, 
  aes(
    x = Metadata_Well, 
    y = Freq, 
    fill = control
  )) + 
  geom_bar(
    position = "dodge", 
    stat = "identity"
  ) + 
  geom_errorbar(
    aes(
      ymax = Freq+CI, 
      ymin = Freq-CI
    ), 
    position = dodge, 
    width = 0.25
  ) + 
  scale_fill_grey()
bp