Как вы можете использовать directlabels и ggplot2?

Я пытаюсь использовать пакет directlabels , чтобы пометить две строки, которые у меня есть в простом графике (я использую ggplot2 )

Мой код составляет:

# libraries
library(ggplot2)
library(directlabels)

# Variables
A = array(1000,100)
F = seq(length=100, from=0, by=10)
f = array(5,100)

# make data frame 1
df <- data.frame(X = F * f/A, Y = F/A)

# plot line 1
p = ggplot(df, aes(x=X,y=Y)) 
p = p + geom_line(colour="#56B4E9") 

# make data frame 2
df1 <- data.frame(X = F * f * 2/A, Y = F/A)

# plot line 2
p =  p + geom_line(aes(x=X,y=Y), data=df1, colour="#56B4E9")    

# label line
direct.label(p, 'last.points')

Однако я получаю следующее сообщение об ошибке:

Error in direct.label.ggplot(p, "last.points") : 
  Need colour aesthetic to direct label.

Я попытался добавить несколько аргументов к функции direct.label () , но я не понимаю, какой эстетический аргумент следует использовать.