R 按因子对分组条形图排序

这是一个我正在尝试做的可复制的例子

c <- structure(list(Observed = c(107, 62, 56, 63, 145, 72, 34, 79, 
107, 112, 45, 56, 72, 92, 158, 84, 129, 82, 140, 121, 99, 83, 
61, 69, 67, 58, 60, 75, 54, 56, 133, 70, 65, 150, 65, 97, 145, 
159, 90, 71, 80, 44, 145, 48, 112, 136), Treatday = c("Control_D0", 
"Treated_D0", "Treated_D0", "Control_D0", "Treated_D0", "Control_D0", 
"Treated_D0", "Control_D0", "Control_D0", "Control_D0", "Control_D0", 
"Treated_D0", "Control_D0", "Control_D0", "Treated_D0", "Control_D0", 
"Treated_D0", "Treated_D0", "Treated_D0", "Control_D0", "Control_D0", 
"Control_D0", "Treated_D0", "Treated_D0", "Treated_D0", "Control_D0", 
"Control_D0", "Control_D0", "Control_D0", "Treated_D0", "Treated_D0", 
"Treated_D0", "Control_D0", "Treated_D0", "Treated_D0", "Treated_D0", 
"Control_D0", "Control_D0", "Treated_D0", "Treated_D0", "Treated_D0", 
"Control_D0", "Treated_D0", "Control_D0", "Control_D0", "Treated_D0"
), Donor = structure(c(5L, 11L, 10L, 19L, 13L, 1L, 18L, 11L, 
2L, 9L, 7L, 17L, 8L, 4L, 14L, 10L, 23L, 1L, 16L, 12L, 21L, 15L, 
3L, 8L, 15L, 20L, 3L, 13L, 18L, 6L, 12L, 19L, 22L, 21L, 7L, 20L, 
14L, 23L, 4L, 9L, 22L, 6L, 5L, 17L, 16L, 2L), .Label = c("E", 
"I", "S", "P", "Y", "K", "J", "H", "Z", "U", "L", "A", "F", "M", 
"B", "G", "T", "N", "C", "X", "Q", "V", "D"), class = "factor")), .Names = c("Observed", 
"Treatday", "Donor"), row.names = c("P31605L01001", "P31605L01002", 
"P31605L01010", "P31605L01012", "P31605L01013", "P31605L01016", 
"P31605L01022", "P31605L01032", "P31605L01033", "P31605L01038", 
"P31605L01039", "P31605L01041", "P31605L01042", "P31605L01043", 
"P31605L01044", "P31605L01045", "P31605L01050", "P31605L01052", 
"P31605L01053", "P31605L01056", "P31605L01065", "P31605L01066", 
"P31605L01067", "P31605L01073", "P31605L01080", "P31605L01088", 
"P31605L01091", "P31605L01093", "P31605L01101", "P31605L01105", 
"P31605L01106", "P31605L01111", "P31605L01112", "P31605L01121", 
"P31605L01122", "P31605L01123", "P31605L01129", "P31605L01130", 
"P31605L01136", "P31605L01138", "P31605L01140", "P31605L01146", 
"P31605L01164", "P31605L01165", "P31605L01168", "P31605L01169"
), class = "data.frame")

c这对我很有用：

g <-  ggplot( c %>% arrange(Observed) %>%
    mutate(Donor=factor(Donor, levels=Donor[Treatday=="Treated_D0"])),
    aes(x = Donor, y = Observed, fill = Treatday)) +
    geom_bar(stat = "identity", position = position_dodge())

print(g)

g%排列（观察到）%>%
突变（供体=因子（供体，水平=供体[治疗日==“治疗日]）），
不良事件（x=供体，y=观察，填充=治疗日））+
几何图形栏（stat=“identity”，position=position\u dodge（））
印刷品（g）
作品可能重复完美。我已经在我的帖子中添加了最终想要的情节。
g <-  ggplot( c %>% arrange(Observed) %>%
    mutate(Donor=factor(Donor, levels=Donor[Treatday=="Treated_D0"])),
    aes(x = Donor, y = Observed, fill = Treatday)) +
    geom_bar(stat = "identity", position = position_dodge())

print(g)