группировка переменных по оси y с использованием geom_segment в ggplot2

Question

Я использую сегментированный график линии и хочу сгруппировать переменные по оси y на основе коэффициента (в данном случае идентификатора пациента). Как изменить ширину тиков на y, чтобы пациент был сгруппирован по его/ее идентификатору, и для каждого уникального идентификатора дается только одна метка?

Приведенный ниже пример моих данных и графика.

ggplot(data) + 
    geom_segment(aes(x=age1, xend=age2, 
        y=PatientID, yend=PatientID, colour=mortality)) + 
    scale_colour_manual(values=c("green", "red", "black")) 

данных:

PatientID age1  age2 mortality 
11313   0  30  low 
11313   31  50  low 
11313   51  65  med 
11313   0  10  med 
11313   0  50  hi 
131NY   0  30  med 
143CA   24  27  hi 
165099   23  45  med 
165099   46  55  hi 
165099   40  55  med 

Answer 1

Я использовал данные выборки при условии, но выход, кажется, похож на желаемый результат, как описано в этом вопросе. Пациенты сгруппированы по ID и имеют только одну метку (см. Ниже 11313). Я что-то упускаю?

library(ggplot2) 

mytext <- "PatientID,age1,age2,mortality 
11313,0,30,low 
11313,31,50,low 
11313,51,65,med 
131NY,0,30,med 
143CA,24,27,hi 
165099,23,45,med 
165099,46,55,hi" 

dat <- read.table(textConnection(mytext), sep = ",", 
        check.names = FALSE, 
        strip.white = TRUE, 
        header = TRUE) 

ggplot(dat) + 
    geom_segment(aes(x = age1, xend = age2, 
        y = PatientID, yend = PatientID, colour = mortality)) + 
    scale_colour_manual(values = c("green", "red", "black"))