在R中的ggplot2中外推线性拟合散点图

Question

我想在ggplot2超出该数据区域的数据子集上推断数据的线性拟合（以便可视化外推的危险）。在下面的代码中，我想将1980-1990帧生成的线性拟合扩展到1990-2000，这样我就可以在整个时间段内添加一个完全拟合并可视化差异：

set.seed(123)           
frame <- data.frame(year = rep(1980:2000, 10), y = sample(1:1000, 210))
head(frame)

frame1 <- frame[frame$year %in% c(1980:1990),]
frame2 <- frame[frame$year %in% c(1980:2000),]

ggplot(frame1, aes(x = year, y = y)) + geom_point(shape = 1) + geom_smooth(method = lm) + xlim(1980, 2000)
ggplot(frame2, aes(x = year, y = y)) + geom_point(shape = 1) + geom_smooth(method = lm) + xlim(1980, 2000)

我是ggplot2的新手，所以关于如何从第一帧扩展线性拟合，然后添加数据和使用不同颜色的新拟合将是很好的。感谢。

Answer 1

你可以尝试

    let string = "split,a,string";
    let arrayOfStrings = string.split(',');