在R中使用smoothScatter在散点图上绘制趋势线

Question

我想在R中进行多元线性回归，其中两个自变量和因变量是在李克特量表上回答的问题（1 =“完全不担心”至5 =“非常担心”）。我想在进行分析之前检查一下假设。

但是，我找不到找到线性假设的方法。通常，我会绘制散点图以查看数据中是否存在线性趋势，这表明线性回归是使用的正确分析。但是，绘制常规散点图会得到25个点的图形，因为存在1到5且x轴和y轴，而这并不是非常有用。

使用smoothScatter，我制作了一个更为有用的绘图，但仅凭此判断关系是否线性还是不够的。我想通过平滑散点图绘制一条最适合的趋势线/线。我该怎么办？

编辑： 下面的代码提供的数据和散布图类似于我所描述的：

data <- matrix(nrow = 200, ncol = 3)

data[,1] <- sample(1:5, 200, replace = TRUE) #independent
data[,2] <- sample(1:5, 200, replace = TRUE) #independent
data[,3] <- sample(1:5, 200, replace = TRUE) #dependent

plot(data[,1], data[,3])  #regular scatterplot -> 25 dots
plot(data[,2], data[,3])  #regular scatterplot -> 25 dots

smoothScatter(data[,1], data[,3]) 
smoothScatter(data[,2], data[,3])