ggplot error

[soniacruciani]

substitute

geom_text_repel(data=subset(subs, score>threshold), aes(Position, score, label=Position,size=3, color="red"), segment.size = 1,segment.color = "black")

with

geom_text_repel(data=subset(subs, score>threshold), aes(Position, score, label=Position**)**,size=3, color="red", segment.size = 1,segment.color = "black")

to avoid failure to print the plot (both scatterplot and barplot) when there is no position above the threshold defined by the plot function