错误：美学必须是长度1或与数据（2）相同：x，y

Question

我正在使用ggplot2准备一个最简单的条形图，我被卡住了：（

我想生成一个条形图，我想添加重要的星号和行，但我遇到了问题，这是我的代码：

p <- ggplot(data=AIG_samples, aes(x=X1, y=Colony_number, fill=X1)) +
  geom_bar(stat="identity", color="black")+
  geom_errorbar(aes(ymin=Colony_number-sd, ymax=Colony_number+sd), width=.1) +
  labs(y="Colony number",x="")+
  theme_minimal()

p + theme(legend.title = element_blank()) + 
  scale_fill_manual(values=c("#999999","#333333"))+
  #Change the square proportion
  coord_fixed(ratio = .008) +
  #Remove X axis labels
  theme(axis.title.x=element_blank(),
        axis.text.x=element_blank(),
        axis.ticks.x=element_blank()) +
  #Adding asterisks
  geom_path(x=c(1,1,2,2),y=c(480,490,490,480)) +
  annotate("text",x=1.5,y=440,label="*", cex=7)

这是我的数据：

X1 | Colony_number | sd

Control|210.5|22.52

sh|387.5|33.96

我知道错误是由以下行geom_path(x=c(1,1,2,2),y=c(480,490,490,480))

给出的

我想这是一个愚蠢的问题，但我是ggplot2的新手：）

Answer 1

Animal a =new Dog(typeof(Dog));
Animal a1=new Dog(typeof(Dog));
var c = Dog.CountDogs;