presidential %>% mutate(id = 33 + row_number()) %>% ggplot(aes(start, id, color = party)) + geom_point(size = 4) + geom_segment(aes(xend = end, yend = id), ...
確定！ 回上一頁
