使用分组数据绘制到xyplot上的绘图

Question

我的收入数据按年份分组，我使用格子中的xyplot绘制它。我想在每组数据中绘制OLS线。所以，我想每年有一条线（2013年，2014年，2015年和2016年）。我复制了下面的代码。

感谢您的帮助！

xyplot(revenue ~ subs, groups = year,
    main="Revenue v. Subscribers, Journals",
    xlab="Subscribers",
    ylab="Revenue",
    col=c(1, 2, 3, 4),
    pch=c(0, 1, 2, 5),
    key=list(columns=2, space="right",
    text=list(lab=c("2013","2014","2015","2016")),
    points=list(pch=c(0, 1, 0, 1), col=c(1, 2, 3, 4))
))