如何使用plotly将多个跟踪/趋势线（每个数据子集）添加到R中的单个散点图上

Question

在plotly包中，我使用的是ggplot()函数和ggplotly()函数。我想创建一个散点图，其中x轴上的CWD量和y轴上的草坪量。每个散点图应该有三行反映每年的线性关系（2013年，2014年，2015年）。每年草坪10分，CWD 10分。我的数据样本如下：

    Year CWD Lawn
 1  2013   0  420
 2  2013   6  390
 3  2013  14  410
 4  2013  12  349
 5  2013   3  348
 6  2013  46  354
 7  2013 121  311
 8  2013  56  381
 9  2013  42  386
 10 2013  26  381
 11 2014   2  121
 12 2014   2  163
 13 2014   3  298

以下是我正在使用的代码：

library(plotly)

### Amount of Lawn versus Amount of CWD
fit<-lm(Lawn~CWD,data=data)
lawn <- ggplot(data, aes(x=CWD, y=Lawn, colour=Year)) + geom_point()
ggplotly()
add_trace(data=data, x = CWD, y = fitted(fit), mode = "lines")

我知道上面的代码是不正确的，因为它只适用于图表中的一行而不考虑年份。我曾尝试使用geom_abline，但我不知道如何在此函数中提取数据子集。见下文：

首先，我如何绘制三条痕迹（每年一条）？我应该每年将我的数据导入到单独的.csv文件中吗？当然，在代码中有一种更简单的方法。 其次，如何更改点和线的颜色？

Answer 1

最简单的方法是ggplot本身，使用geom_smooth为您做回归：

lawn <- ggplot(dat, aes(x=CWD, y=Lawn, colour=factor(Year))) + 
  geom_point() +
  geom_smooth(method = 'lm', se = FALSE)

请注意，我将数据命名为dat，因为data是R中的一个函数。

随您提供样本数据：

关于颜色，请查看?scale_colour_discrete。