如下代碼所示：
data <- dat %>% arrange(desc(count)) #按照count一列降序排序
#data <- dat %>% arrange(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")