如何通过简单的（两个变量）ggplot2图表使用direct.label（）

Question

这是两个变量的简单ggplot图表：

library("ggplot2")
library("directlabels")
library("tibble")

df <- tibble(
  number = 1:10,
  var1 = runif(10)*10,
  var2 = runif(10)*10
)

ggplot(df, aes(number))+
  geom_line(aes(y=var1), color='red')+
  geom_line(aes(y=var2), color='blue')

是否可以使用如下表达式来标记var1和var2的最后一个值：

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

我遇到错误：

Error in UseMethod("direct.label") : 
  no applicable method for 'direct.label' applied to an object of 
class

Answer 1

玛丽亚，您最初需要通过“堆叠数据”来构建数据框架。我喜欢使用melt包的reshape2函数。这样一来，您只能使用一个geom_line。

稍后，您需要根据ggplot2生成一个对象。这个对象必须应用directlabels包。

library(ggplot2)
library(directlabels)
library(tibble)
library(dplyr)
library(reshape2)
set.seed(1)
df <- tibble::tibble(number = 1:10,
                     var1 = runif(10)*10,
                     var2 = runif(10)*10)

df <- df %>% 
  reshape2::melt(id.vars = "number")
p <- ggplot2::ggplot(df) +
  geom_line(aes(x = number, y = value, col = variable), show.legend = F) +
  scale_color_manual(values = c("red", "blue"))
p

directlabels::direct.label(p, 'last.points')