0
участок устьичной проводимости среди различных СО2, видов и дней.Ошибка при добавлении аннотаций к независимым грани
p<-ggplot(data=gssummary,aes(x=factor(day),y=Cond,fill=factor(co2)))+geom_bar(stat = "identity",position = "dodge",width=0.4,colour="black")+geom_errorbar(aes(ymin=Cond-ci,ymax=Cond+ci), width=.1,position = position_dodge(0.4))+theme_bw()+theme(panel.grid=element_blank())+labs(x="Day",y=expression(plain("g"["s"])))+facet_grid(~species)+theme(axis.ticks=element_line(size=rel(0.1)))+theme(axis.text=element_text(size = rel(0.5),family = "Times"))+theme(axis.title=element_text(size = 7,family = "Times"))+theme(plot.margin=unit(c(0,3,0,0),"cm"))+theme(strip.text=element_text(size=rel(0.6),family = "Times"),strip.background=element_rect(colour = "white",fill = "white"))+theme(panel.border=element_rect(colour = "black",size = 1))+guides(fill=guide_legend(title=NULL))+scale_fill_grey(start = 1,end = 0.75,labels=c(expression(plain("aCO"["2"])),expression(plain("eCO"["2"]))))
добавить информацию о значимости для сюжета (разница была значима только между ACO2 и ЭКО2 на 2 сентября 2016 года в видовых 0)
siglabel<-data.frame(species=c("0","1"),label=c("*"," "))
p+geom_text(x=1,y=0.6,aes(label=label),data = siglabel)
Ошибка: Эстетика должна быть либо длиной один , или такой же длины, как dataProblems: этикетка
Я пробовал, но все еще не могу решить эту проблему. Скажите, пожалуйста, как это решить. Большое спасибо!
Можете ли вы добавить «ggsumary» в качестве кода вместо изображения (возможно, с 'dput', но даже если вы просто скопируете и вставьте его из R)? Но я вижу, что «сиглабель» имеет две строки, но у вас есть только один набор координат x и y. Может быть, вы хотите построить только подмножество «сиглабель»? – aosmith
Я знаю, в чем проблема, и решил. Но благодарю вас за рассмотрение моего вопроса. – pandaJ
Вы можете поместить свое решение в качестве ответа. – aosmith