ggplot2优雅的绘制流程图.+'),
x = -2.5 * x,y = 5 * y,type = case_when(str_detect(label, '\\?') - 1.2
box_height <- 1.25
boxes <- output %>%mutate(xmin = x - box_width,xmax = x + box_width,ymin = case_when (
str_detect(step, '(legs|reading|write)') ~ y - 1.5 * box_height,T ~ y - box_height),
ymax = case_when %>%
mutate(y = ifelse(s_e == "from", ymin, ymax)) %>%
select(-c(ymin, ymax)) %>%
mutate(x = case_when 