如何根据另一个向量的级别使一个方面中的行出现？

问题描述

目标是在每个构面内从上到下显示“开始时间”增加的“名称”。 A面是错误的；方面 B 是正确的。

library(tidyverse)
my_tribble <- tribble(
  ~name,~order.x,~startTime,~endTime,~order.y,~endTime.y,~diff,~area,"unit1","dump",1,"wait",2,"A","unit3",5,7,9,4,"unit4",8,10,"B","unit2",17,20,23,6,"B"
)

ggplot(my_tribble) +
  geom_linerange(aes(ymin = startTime,ymax = endTime.y,x = name),position = position_dodge(width = 0.2),size = 2) +
  facet_grid(area ~ .,scales = "free_y") +
  coord_flip() +
  scale_x_reordered() +
  scale_y_continuous(expand = c(0,0))

解决方法

my_tribble$name <- factor(my_tribble$name,levels = my_tribble$name[order(-my_tribble$startTime)])
ggplot(my_tribble) +
  geom_linerange(aes(ymin = startTime,ymax = endTime.y,x = name),position = position_dodge(width = 0.2),size = 2) +
  facet_grid(area ~ .,scales = "free_y") +
  coord_flip() +
  scale_y_continuous(expand = c(0,0))