如下代码所示：

data <- dat %>% arrange(desc(count)) #按照count一列降序排序
data$trait<-factor(data$trait,levels = unique(data$trait),ordered = T) #按照trait一列作为X轴排序
p=ggplot(data,aes(x=trait, y=count, fill=qtl))+geom_bar(stat='identity',position="dodge")