DEVHIDE
Login Or Sign up

Adding labels onto calculated stat_smooth lines ggplot geom_dl

1.1k Views Asked by At

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_dlfunction 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")
r ggplot2 direct-labels
Original Q&A
1

There are 1 best solutions below

5
On

Working on solving the problem... this is as far as I have come now..

Used the following code for that

p = ggplot(Tabresults,aes(x=value,y=Mean),shape=variable)+stat_smooth(aes(colour=variable),size=1,method = "lm" ,span =0.3, se=F)
p +  geom_dl(aes(label = variable), method = list("angled.boxes"))

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

# Get mean positions of all the variables..
test = Tabresults[,.(mean_value = mean(value,na.rm = TRUE),mean_mean = mean(Mean, na.rm = TRUE)),by = variable]

# Getting the angle was a bit more difficult.
# I could not find the values from the stat_smooth object in the ggplot_object.. so I had to re-do the calculations
list_variable = unique(Tabresults$variable)
list_angle = c()

for(i in 1:length(list_variable)){

    i_variable = list_variable[i]
    list_angle[i] = coef(lm(Mean ~ value, data = Tabresults[variable == i_variable][!is.na(Mean)]))[2]

}
# Combine all the obtained results into one data.table
test_test = data.table(variable = list_variable, angle = list_angle)

# Add these angles to the original mean-location per variable
final_markup = merge(test,test_test,by = "variable")
# Correct some angles
final_markup[,angle := angle*100]
final_markup[angle <0, angle := 360 - abs(angle)]
# And finally plot it
p + annotate("text", x = final_markup$mean_value, y = final_markup$mean_mean,angle = final_markup$angle*2,label = final_markup$variable)

This brings the following image. Not ideal yet, but hey, it's something.

enter image description here

Related Questions in R

Related Questions in GGPLOT2

Related Questions in DIRECT-LABELS

Trending Questions

Popular # Hahtags

javascript python java c# php android html jquery c++ css ios sql mysql r reactjs node.js arrays c asp.net json python-3.x ruby-on-rails .net sql-server swift django angular objective-c pandas excel

Popular Questions

Copyright © 2021 Jogjafile Inc.