E.g. this:
ggplot(aes(x = line_end, y = line_participant)) +
ggtitle("Relative frequency of elements within turns") +
scale_y_reverse() + # we reverse the axis because lines run top to bottom
geom_label(aes(
begin = line_begin-800,
end = line_end-800,
label = utterance)) +
xlab("Time (ms)") +
ylab("") +
theme_turnPlot()
...with the caveat that label scaling is not veridical to utterance duration
E.g. this: