Estoy intentando utilizar el paquete directlabels para etiquetar dos líneas que tengo en una trama sencilla (estoy usando ggplot2)¿Cómo se puede usar directlabels y ggplot2?
Mi código es el siguiente:
# 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')
Sin embargo Aparece el siguiente mensaje de error:
Error in direct.label.ggplot(p, "last.points") :
Need colour aesthetic to direct label.
He intentado agregar varios argumentos a la función direct.label()
, pero no entiendo qué argumento estético debería usarse.
Algunas cinco años después: ¿Funcionó la respuesta para usted? – MERose