Я пытаюсь использовать facet_wrap для построения набора данных в виде точек рассеяния, каждая из которых имеет отдельную линию в них, указывающую, когда произошло определенное событие. Тем не менее, я не смог добиться того, чтобы линии отображались индивидуально на каждом графике, скорее, они все отображаются на всех графиках. После таяния данные выглядят так:
names(data) = c("Date","ID", "event_date", "variable", "value")
где я хочу, чтобы каждый график представлял собой точечный график значения ~ Дата, а каждый график делился на идентификатор с вертикальной линией, появляющейся на каждой «дате события», которая отображается для каждого идентификатора. Мои лучшие усилия заставили меня:
p <- qplot(Date, value, data=dat, colour=variable)
p <- p + geom_vline(xintercept=as.numeric(dat$event_date))
p + facet_wrap(~ID)
Который работает отлично, за исключением всех вертикальных линий, отображаемых на каждом участке. Какие-либо предложения? Прочитав документацию, я еще никуда не попал.