r语言 - 需要调整geom_bar图上子组的顺序

Question

需要一些帮助来尝试对图中的各个柱线进行排序，以便它们在"接种前"和"接种后"类别中的顺序相同。我尝试在 ggplot 代码和创建数据帧本身的行中手动设置 disease.state 向量的级别。不知道为什么我遇到这样的麻烦。非常感谢！

df.graph1 <- data.frame(
exp.period = factor(c("Pre-innoculation", "Pre-innoculation", "Pre-innoculation", "Post-innoculation", "Post-innoculation", "Post-innoculation"), levels=c("Pre-innoculation", "Post-innoculation")),
disease.state = factor(c("Apparent", "Possible", "NA", "Apparent", "Possible", "NA"), levels = c("NA", "Possible", "Apparent")),
count = factor(c(3, 12, 15, 11, 18, 9),))
ggplot(df.graph1, aes(x=factor(exp.period, level=c('Pre-innoculation', 'Post-innoculation')), y=count, fill=disease.state)) + 
geom_bar(stat="identity", position=position_dodge(), colour="black") + 
theme_classic() + 
xlab("Experimental Period") + 
ylab("") +
guides(fill=guide_legend(title="Disease State"))

Answer 1

df.graph1$disease.state=factor(df.graph1$disease.state,levels = c("NA","Possible","Apparent"),ordered = T) #set order of bars
df.graph1$observations=as.numeric(as.character(df.graph1$count)) #convert count to numeric (try what happens, if you only convert to numeric, without converting to character first)
ggplot(df.graph1, aes(x=exp.period, y=observations,
fill=disease.state)) + 
geom_col(position=position_dodge(), colour="black") + 
theme_classic() + 
xlab("Experimental Period") + 
ylab("") +
guides(fill=guide_legend(title="Disease State"))