I've been trying to directly add labels to my linear model scatter plot, with some difficulty. I've read these articles (How to show directlabels after geom_smooth and not after geom_line?)
and I think that I need to use the geom_dl
function in ggplot.
However, at the moment I can only get the labels to land on the final points, not the lines themselves. I've also managed to plot the names on the graph however again I can't get it line up with the lines.
Any ideas would be greatly appreciated!
Thanks
Here is my code:
p<-ggplot(Tabresults,aes(x=value,y=Mean),shape=variable)+stat_smooth(aes(colour=variable),size=1,method = "lm" ,span =0.3, se=F)+
TD_Scatter+
scale_color_manual(values=c("Cost Efficency"=col2,Simplicity=col1,"Reglatory Ease"=col3, Responsibility=col4,Approval=col5))
p+ geom_dl(aes(label=variable), method = list(box.color = NA, "angled.boxes"))
And my dummy dataset:
Tabresults<- structure(list(Mean = c(66.6666666666667, 16.6666666666667, 33.3333333333333,
NA, 66.6666666666667, NA, 66.6666666666667, NA, NA, NA, 83.3333333333333,
NA, NA, NA, 50, NA, NA, NA, NA, 33.3333333333333, NA, 50, 33.3333333333333,
NA, NA, NA, 33.3333333333333, NA, NA, NA, 33.3333333333333, NA,
33.3333333333333, NA, NA, NA, NA, NA, 83.3333333333333, NA, NA,
NA, 33.3333333333333, 66.6666666666667, NA, 50, 33.3333333333333,
NA, 50, 83.3333333333333, 66.6666666666667, 16.6666666666667,
33.3333333333333, NA, 66.6666666666667, NA, 66.6666666666667,
NA, NA, NA, 83.3333333333333, NA, NA, NA, 50, NA, NA, NA, NA,
33.3333333333333, NA, 50, 33.3333333333333, NA, NA, NA, 33.3333333333333,
NA, NA, NA, 33.3333333333333, NA, 33.3333333333333, NA, NA, NA,
NA, NA, 83.3333333333333, NA, NA, NA, 33.3333333333333, 66.6666666666667,
NA, 50, 33.3333333333333, NA, 50, 83.3333333333333, 66.6666666666667,
16.6666666666667, 33.3333333333333, NA, 66.6666666666667, NA,
66.6666666666667, NA, NA, NA, 83.3333333333333, NA, NA, NA, 50,
NA, NA, NA, NA, 33.3333333333333, NA, 50, 33.3333333333333, NA,
NA, NA, 33.3333333333333, NA, NA, NA, 33.3333333333333, NA, 33.3333333333333,
NA, NA, NA, NA, NA, 83.3333333333333, NA, NA, NA, 33.3333333333333,
66.6666666666667, NA, 50, 33.3333333333333, NA, 50, 83.3333333333333,
66.6666666666667, 16.6666666666667, 33.3333333333333, NA, 66.6666666666667,
NA, 66.6666666666667, NA, NA, NA, 83.3333333333333, NA, NA, NA,
50, NA, NA, NA, NA, 33.3333333333333, NA, 50, 33.3333333333333,
NA, NA, NA, 33.3333333333333, NA, NA, NA, 33.3333333333333, NA,
33.3333333333333, NA, NA, NA, NA, NA, 83.3333333333333, NA, NA,
NA, 33.3333333333333, 66.6666666666667, NA, 50, 33.3333333333333,
NA, 50, 83.3333333333333, 66.6666666666667, 16.6666666666667,
33.3333333333333, NA, 66.6666666666667, NA, 66.6666666666667,
NA, NA, NA, 83.3333333333333, NA, NA, NA, 50, NA, NA, NA, NA,
33.3333333333333, NA, 50, 33.3333333333333, NA, NA, NA, 33.3333333333333,
NA, NA, NA, 33.3333333333333, NA, 33.3333333333333, NA, NA, NA,
NA, NA, 83.3333333333333, NA, NA, NA, 33.3333333333333, 66.6666666666667,
NA, 50, 33.3333333333333, NA, 50, 83.3333333333333), Brands = c("A",
"A", "D", "A", "C", "B", "A", "C", "B", "D", "C", "A", "D", "A",
"B", "A", "C", "B", "D", "C", "D", "B", "C", "A", "C", "A", "B",
"B", "D", "C", "C", "B", "C", "C", "B", "C", "D", "B", "A", "B",
"B", "B", "B", "A", "C", "A", "C", "A", "A", "A", "A", "A", "D",
"A", "C", "B", "A", "C", "B", "D", "C", "A", "D", "A", "B", "A",
"C", "B", "D", "C", "D", "B", "C", "A", "C", "A", "B", "B", "D",
"C", "C", "B", "C", "C", "B", "C", "D", "B", "A", "B", "B", "B",
"B", "A", "C", "A", "C", "A", "A", "A", "A", "A", "D", "A", "C",
"B", "A", "C", "B", "D", "C", "A", "D", "A", "B", "A", "C", "B",
"D", "C", "D", "B", "C", "A", "C", "A", "B", "B", "D", "C", "C",
"B", "C", "C", "B", "C", "D", "B", "A", "B", "B", "B", "B", "A",
"C", "A", "C", "A", "A", "A", "A", "A", "D", "A", "C", "B", "A",
"C", "B", "D", "C", "A", "D", "A", "B", "A", "C", "B", "D", "C",
"D", "B", "C", "A", "C", "A", "B", "B", "D", "C", "C", "B", "C",
"C", "B", "C", "D", "B", "A", "B", "B", "B", "B", "A", "C", "A",
"C", "A", "A", "A", "A", "A", "D", "A", "C", "B", "A", "C", "B",
"D", "C", "A", "D", "A", "B", "A", "C", "B", "D", "C", "D", "B",
"C", "A", "C", "A", "B", "B", "D", "C", "C", "B", "C", "C", "B",
"C", "D", "B", "A", "B", "B", "B", "B", "A", "C", "A", "C", "A",
"A", "A"), Country = c("UK", "Italy", "Canada", "UK", "France",
"USA", "USA", "Canada", "France", "France", "Germany", "USA",
"USA", "Germany", "UK", "Canada", "USA", "UK", "Italy", "Spain",
"UK", "Canada", "France", "Germany", "UK", "Canada", "Germany",
"France", "Spain", "Canada", "National", "Spain", "USA", "Italy",
"USA", "Spain", "USA", "Canada", "National", "Spain", "Italy",
"Germany", "USA", "Italy", "USA", "Spain", "UK", "France", "USA",
"France", "UK", "Italy", "Canada", "UK", "France", "USA", "USA",
"Canada", "France", "France", "Germany", "USA", "USA", "Germany",
"UK", "Canada", "USA", "UK", "Italy", "Spain", "UK", "Canada",
"France", "Germany", "UK", "Canada", "Germany", "France", "Spain",
"Canada", "National", "Spain", "USA", "Italy", "USA", "Spain",
"USA", "Canada", "National", "Spain", "Italy", "Germany", "USA",
"Italy", "USA", "Spain", "UK", "France", "USA", "France", "UK",
"Italy", "Canada", "UK", "France", "USA", "USA", "Canada", "France",
"France", "Germany", "USA", "USA", "Germany", "UK", "Canada",
"USA", "UK", "Italy", "Spain", "UK", "Canada", "France", "Germany",
"UK", "Canada", "Germany", "France", "Spain", "Canada", "National",
"Spain", "USA", "Italy", "USA", "Spain", "USA", "Canada", "National",
"Spain", "Italy", "Germany", "USA", "Italy", "USA", "Spain",
"UK", "France", "USA", "France", "UK", "Italy", "Canada", "UK",
"France", "USA", "USA", "Canada", "France", "France", "Germany",
"USA", "USA", "Germany", "UK", "Canada", "USA", "UK", "Italy",
"Spain", "UK", "Canada", "France", "Germany", "UK", "Canada",
"Germany", "France", "Spain", "Canada", "National", "Spain",
"USA", "Italy", "USA", "Spain", "USA", "Canada", "National",
"Spain", "Italy", "Germany", "USA", "Italy", "USA", "Spain",
"UK", "France", "USA", "France", "UK", "Italy", "Canada", "UK",
"France", "USA", "USA", "Canada", "France", "France", "Germany",
"USA", "USA", "Germany", "UK", "Canada", "USA", "UK", "Italy",
"Spain", "UK", "Canada", "France", "Germany", "UK", "Canada",
"Germany", "France", "Spain", "Canada", "National", "Spain",
"USA", "Italy", "USA", "Spain", "USA", "Canada", "National",
"Spain", "Italy", "Germany", "USA", "Italy", "USA", "Spain",
"UK", "France", "USA", "France"), ResponseID = c("R_00WRlb700n1GjXv",
"R_07gbXR4Ha6OJB09", "R_0Au3bpA2SIJkoJv", "R_0DMu9qBNcmH06RT",
"R_0H9Ij1iJbxxauhv", "R_0HtzJMAlUmFd7eJ", "R_0kZVPF5OzpKx1JP",
"R_0l9w43DQvy3disZ", "R_1AqjSR9vOU1ecMB", "R_20nzAWfOPh7nRml",
"R_2iuk2vfsLzdbdLD", "R_2rzLvsPBavktV0V", "R_3mk8vHXoLibFJFb",
"R_3WAKxw6owkv5dtj", "R_3XjQKXAe1IVn6bX", "R_43flXUcbx5ZNwb3",
"R_4YZTJthDHPHz6Fn", "R_5ilw7k35mqiF43P", "R_5pOe7d5B7dh2y1L",
"R_5pR3aBjSgjNcgND", "R_6G8L4B63fGPld3v", "R_6gvwrXO1HJ9NGlL",
"R_6JOpk29oUfdYZY9", "R_6mX2XdSTblLZzyB", "R_6P8nBxzGBhTP9D7",
"R_73rsOrN9LV2A0ip", "R_79eIz74uWskf76Z", "R_7PvUht53GEWgmpf",
"R_7X37d6jGnnqUWJ7", "R_8Ag8VoBJNjTwxhz", "R_8jkjYiRh3PUj3rT",
"R_8oanUwlXQzRJmtL", "R_9nb3YiSBKl2UfHL", "R_9TDvGlh6Pr9B8YB",
"R_b1kxY4eRtLTUHXf", "R_bJwTh2AXEDsH1qZ", "R_cGAGTr9k3pRO4h7",
"R_cOLtGnG0L4dyJVj", "R_cu9j4828HAdCVAp", "R_d0TtYBrHAEW6BW5",
"R_d4J5MjkjxjJTagl", "R_dpxrFpx13GXqrGt", "R_e4H0mr5bZ6Ek3f7",
"R_egSsGaeyZskOkwl", "R_en9qnWap5NwCnnT", "R_ePpA9pU2ddLKnJP",
"R_erLj5m7VyGkLSC1", "R_eUSfJoA9fyciCbz", "R_eyXQvu35fK8dzLf",
"R_ezgC8GU1CBwlzOR", "R_00WRlb700n1GjXv", "R_07gbXR4Ha6OJB09",
"R_0Au3bpA2SIJkoJv", "R_0DMu9qBNcmH06RT", "R_0H9Ij1iJbxxauhv",
"R_0HtzJMAlUmFd7eJ", "R_0kZVPF5OzpKx1JP", "R_0l9w43DQvy3disZ",
"R_1AqjSR9vOU1ecMB", "R_20nzAWfOPh7nRml", "R_2iuk2vfsLzdbdLD",
"R_2rzLvsPBavktV0V", "R_3mk8vHXoLibFJFb", "R_3WAKxw6owkv5dtj",
"R_3XjQKXAe1IVn6bX", "R_43flXUcbx5ZNwb3", "R_4YZTJthDHPHz6Fn",
"R_5ilw7k35mqiF43P", "R_5pOe7d5B7dh2y1L", "R_5pR3aBjSgjNcgND",
"R_6G8L4B63fGPld3v", "R_6gvwrXO1HJ9NGlL", "R_6JOpk29oUfdYZY9",
"R_6mX2XdSTblLZzyB", "R_6P8nBxzGBhTP9D7", "R_73rsOrN9LV2A0ip",
"R_79eIz74uWskf76Z", "R_7PvUht53GEWgmpf", "R_7X37d6jGnnqUWJ7",
"R_8Ag8VoBJNjTwxhz", "R_8jkjYiRh3PUj3rT", "R_8oanUwlXQzRJmtL",
"R_9nb3YiSBKl2UfHL", "R_9TDvGlh6Pr9B8YB", "R_b1kxY4eRtLTUHXf",
"R_bJwTh2AXEDsH1qZ", "R_cGAGTr9k3pRO4h7", "R_cOLtGnG0L4dyJVj",
"R_cu9j4828HAdCVAp", "R_d0TtYBrHAEW6BW5", "R_d4J5MjkjxjJTagl",
"R_dpxrFpx13GXqrGt", "R_e4H0mr5bZ6Ek3f7", "R_egSsGaeyZskOkwl",
"R_en9qnWap5NwCnnT", "R_ePpA9pU2ddLKnJP", "R_erLj5m7VyGkLSC1",
"R_eUSfJoA9fyciCbz", "R_eyXQvu35fK8dzLf", "R_ezgC8GU1CBwlzOR",
"R_00WRlb700n1GjXv", "R_07gbXR4Ha6OJB09", "R_0Au3bpA2SIJkoJv",
"R_0DMu9qBNcmH06RT", "R_0H9Ij1iJbxxauhv", "R_0HtzJMAlUmFd7eJ",
"R_0kZVPF5OzpKx1JP", "R_0l9w43DQvy3disZ", "R_1AqjSR9vOU1ecMB",
"R_20nzAWfOPh7nRml", "R_2iuk2vfsLzdbdLD", "R_2rzLvsPBavktV0V",
"R_3mk8vHXoLibFJFb", "R_3WAKxw6owkv5dtj", "R_3XjQKXAe1IVn6bX",
"R_43flXUcbx5ZNwb3", "R_4YZTJthDHPHz6Fn", "R_5ilw7k35mqiF43P",
"R_5pOe7d5B7dh2y1L", "R_5pR3aBjSgjNcgND", "R_6G8L4B63fGPld3v",
"R_6gvwrXO1HJ9NGlL", "R_6JOpk29oUfdYZY9", "R_6mX2XdSTblLZzyB",
"R_6P8nBxzGBhTP9D7", "R_73rsOrN9LV2A0ip", "R_79eIz74uWskf76Z",
"R_7PvUht53GEWgmpf", "R_7X37d6jGnnqUWJ7", "R_8Ag8VoBJNjTwxhz",
"R_8jkjYiRh3PUj3rT", "R_8oanUwlXQzRJmtL", "R_9nb3YiSBKl2UfHL",
"R_9TDvGlh6Pr9B8YB", "R_b1kxY4eRtLTUHXf", "R_bJwTh2AXEDsH1qZ",
"R_cGAGTr9k3pRO4h7", "R_cOLtGnG0L4dyJVj", "R_cu9j4828HAdCVAp",
"R_d0TtYBrHAEW6BW5", "R_d4J5MjkjxjJTagl", "R_dpxrFpx13GXqrGt",
"R_e4H0mr5bZ6Ek3f7", "R_egSsGaeyZskOkwl", "R_en9qnWap5NwCnnT",
"R_ePpA9pU2ddLKnJP", "R_erLj5m7VyGkLSC1", "R_eUSfJoA9fyciCbz",
"R_eyXQvu35fK8dzLf", "R_ezgC8GU1CBwlzOR", "R_00WRlb700n1GjXv",
"R_07gbXR4Ha6OJB09", "R_0Au3bpA2SIJkoJv", "R_0DMu9qBNcmH06RT",
"R_0H9Ij1iJbxxauhv", "R_0HtzJMAlUmFd7eJ", "R_0kZVPF5OzpKx1JP",
"R_0l9w43DQvy3disZ", "R_1AqjSR9vOU1ecMB", "R_20nzAWfOPh7nRml",
"R_2iuk2vfsLzdbdLD", "R_2rzLvsPBavktV0V", "R_3mk8vHXoLibFJFb",
"R_3WAKxw6owkv5dtj", "R_3XjQKXAe1IVn6bX", "R_43flXUcbx5ZNwb3",
"R_4YZTJthDHPHz6Fn", "R_5ilw7k35mqiF43P", "R_5pOe7d5B7dh2y1L",
"R_5pR3aBjSgjNcgND", "R_6G8L4B63fGPld3v", "R_6gvwrXO1HJ9NGlL",
"R_6JOpk29oUfdYZY9", "R_6mX2XdSTblLZzyB", "R_6P8nBxzGBhTP9D7",
"R_73rsOrN9LV2A0ip", "R_79eIz74uWskf76Z", "R_7PvUht53GEWgmpf",
"R_7X37d6jGnnqUWJ7", "R_8Ag8VoBJNjTwxhz", "R_8jkjYiRh3PUj3rT",
"R_8oanUwlXQzRJmtL", "R_9nb3YiSBKl2UfHL", "R_9TDvGlh6Pr9B8YB",
"R_b1kxY4eRtLTUHXf", "R_bJwTh2AXEDsH1qZ", "R_cGAGTr9k3pRO4h7",
"R_cOLtGnG0L4dyJVj", "R_cu9j4828HAdCVAp", "R_d0TtYBrHAEW6BW5",
"R_d4J5MjkjxjJTagl", "R_dpxrFpx13GXqrGt", "R_e4H0mr5bZ6Ek3f7",
"R_egSsGaeyZskOkwl", "R_en9qnWap5NwCnnT", "R_ePpA9pU2ddLKnJP",
"R_erLj5m7VyGkLSC1", "R_eUSfJoA9fyciCbz", "R_eyXQvu35fK8dzLf",
"R_ezgC8GU1CBwlzOR", "R_00WRlb700n1GjXv", "R_07gbXR4Ha6OJB09",
"R_0Au3bpA2SIJkoJv", "R_0DMu9qBNcmH06RT", "R_0H9Ij1iJbxxauhv",
"R_0HtzJMAlUmFd7eJ", "R_0kZVPF5OzpKx1JP", "R_0l9w43DQvy3disZ",
"R_1AqjSR9vOU1ecMB", "R_20nzAWfOPh7nRml", "R_2iuk2vfsLzdbdLD",
"R_2rzLvsPBavktV0V", "R_3mk8vHXoLibFJFb", "R_3WAKxw6owkv5dtj",
"R_3XjQKXAe1IVn6bX", "R_43flXUcbx5ZNwb3", "R_4YZTJthDHPHz6Fn",
"R_5ilw7k35mqiF43P", "R_5pOe7d5B7dh2y1L", "R_5pR3aBjSgjNcgND",
"R_6G8L4B63fGPld3v", "R_6gvwrXO1HJ9NGlL", "R_6JOpk29oUfdYZY9",
"R_6mX2XdSTblLZzyB", "R_6P8nBxzGBhTP9D7", "R_73rsOrN9LV2A0ip",
"R_79eIz74uWskf76Z", "R_7PvUht53GEWgmpf", "R_7X37d6jGnnqUWJ7",
"R_8Ag8VoBJNjTwxhz", "R_8jkjYiRh3PUj3rT", "R_8oanUwlXQzRJmtL",
"R_9nb3YiSBKl2UfHL", "R_9TDvGlh6Pr9B8YB", "R_b1kxY4eRtLTUHXf",
"R_bJwTh2AXEDsH1qZ", "R_cGAGTr9k3pRO4h7", "R_cOLtGnG0L4dyJVj",
"R_cu9j4828HAdCVAp", "R_d0TtYBrHAEW6BW5", "R_d4J5MjkjxjJTagl",
"R_dpxrFpx13GXqrGt", "R_e4H0mr5bZ6Ek3f7", "R_egSsGaeyZskOkwl",
"R_en9qnWap5NwCnnT", "R_ePpA9pU2ddLKnJP", "R_erLj5m7VyGkLSC1",
"R_eUSfJoA9fyciCbz", "R_eyXQvu35fK8dzLf", "R_ezgC8GU1CBwlzOR"
), variable = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L,
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L,
5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L,
5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L,
5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L,
5L), .Label = c("Cost Efficency", "Simplicity", "Reglatory Ease",
"Responsibility", "Approval"), class = "factor"), value = c(33.33,
16.66, 0, NA, 83.33, NA, 66.66, NA, NA, NA, 83.33, NA, NA, NA,
83.33, NA, NA, NA, NA, 33.33, NA, 0, 66.66, NA, NA, NA, 33.33,
NA, NA, NA, 16.66, NA, 0, NA, NA, NA, NA, NA, 50, NA, NA, NA,
16.66, 83.33, NA, 33.33, 50, NA, 10, 16.66, 100, 33.3, 66.6,
NA, 0, NA, 0, NA, NA, NA, 33.3, NA, NA, NA, 16.6, NA, NA, NA,
NA, 16.6, NA, 50, 50, NA, NA, NA, 0, NA, NA, NA, 83.3, NA, 16.6,
NA, NA, NA, NA, NA, 0, NA, NA, NA, 16.6, 0, NA, 83.3, 100, NA,
100, 16.6, 83.3, 16.6, 50, NA, 100, NA, 33.3, NA, NA, NA, 100,
NA, NA, NA, 66.6, NA, NA, NA, NA, 66.6, NA, 33.3, 33.3, NA, NA,
NA, 0, NA, NA, NA, 16.6, NA, 16.6, NA, NA, NA, NA, NA, 0, NA,
NA, NA, 50, 100, NA, 83.3, 16.6, NA, 50, 83.3, 83.3, 100, 66.6,
NA, 100, NA, 33.3, NA, NA, NA, 33.3, NA, NA, NA, 66.6, NA, NA,
NA, NA, 100, NA, 66.6, 100, NA, NA, NA, 0, NA, NA, NA, 33.3,
NA, 33.3, NA, NA, NA, NA, NA, 100, NA, NA, NA, 50, 50, NA, 33.3,
0, NA, 16.6, 50, 33.33, 0, 50, NA, 0, NA, 0, NA, NA, NA, 63.33,
NA, NA, NA, 16.6, NA, NA, NA, NA, 100, NA, 83.33, 33.33, NA,
NA, NA, 16.6, NA, NA, NA, 50, NA, 0, NA, NA, NA, NA, NA, 83.33,
NA, NA, NA, 100, 50, NA, 50, 83.33, NA, 100, 33.33)), row.names = c(NA,
-250L), .Names = c("Mean", "Brands", "Country", "ResponseID",
"variable", "value"), class = "data.frame")
Working on solving the problem... this is as far as I have come now..
Used the following code for that
where geom_dl is (for me) not in ggplot2, but in directlabels. The positioning method is still not good... I am now looking in
http://directlabels.r-forge.r-project.org/docs/
where they describe the various Positioning Methods.
Edit: I start to think that they reason why these labels are now so messed up.. is because the method is trying not to collide the labels with each other.
Edit2: Circumventing the package... just using annotate
This brings the following image. Not ideal yet, but hey, it's something.