r - directlabels と ggplot2 はどのように使用できますか?

Question

directlabelsパッケージを使用して、単純なプロットにある 2 つの行にラベルを付けようとしています ( 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()が、どの審美的な引数を使用すべきかわかりません。

Answer 1

2 つのデータフレームを使用する代わりに、それらを結合して溶かすことができます。

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)

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

# merge both dataframes
df2 <- merge(df, df1, by = "X")

# melt them
df2m <- melt(df2, id = "X")

# plot 
p2 <- ggplot(df2m, aes(x = X, y = value, col = variable)) +
  geom_line() +
  scale_color_manual(values = rep("#56B4E9", 2))

direct.label(p2, 'last.points')

直接ラベルが必要であるが、色の美しさを使用したくない場合は、 directlabels 2.0 の新しい geom_dl を使用することもできます。

install.packages("directlabels")
ggplot(df2m, aes(x = X, y = value))+
  geom_line(aes(group=variable))+
  geom_dl(aes(label=variable),method="last.points")