在趋势线中显示随时间的差异值

Question

我的问题类似于one。

在链接的问题中，图表显示了值随时间的差异，我想显示线图以及值的差异。

我想要实现的目标也是全年的价值观趋势线。我怎样才能做到这一点 。

要复制的数据（类似于链接问题）

       library(ggplot2)
       library(dplyr)
       original.df  <- read.table(text = "year Arabica Robusta
                                1990 100 200
                                1995 180 120
                                2000 200 190
                                2005 190 210
                                2012 230 120", header = TRUE)


        df <- original.df %>% 
          mutate(direction = ifelse(Robusta - Arabica > 0, "Up", "Down"))%>%
          melt(id = c("year", "direction"))
        g1 <- ggplot(df, aes(x=year, y = value, color = variable, group = year )) + 
  geom_point(size=4) + 

 geom_path(aes(color = direction), arrow=arrow())

情节（在链接的问题中）看起来像。 如果我添加geom_smooth，它不会显示任何内容，这对我来说很有意义，因为我知道geom_smooth不知道要引用哪些点，无论是阿拉比卡还是罗布斯塔。

Answer 1

我尝试了很少的东西并且能够明显地解决它

ggplot(df, aes(x=year, y = value, color = variable))+geom_line()+geom_point(size=4)+geom_path(aes(color=direction,group=year),arrow = arrow())