R 我如何用图表来检查一个重要的预测因素以何种方式影响我的结果变量？

如何创造一个视觉效果来观察一天中的时间是如何影响道德水平的？时间是一个1/2的变量，道德是用一个量表来衡量的

Reg2<-lm(Morality~TimeofDay,data=Data316b)
summary(Reg2)

Call:
lm(formula = Morality ~ TimeofDay, data = Data316b)

Residuals:
     Min       1Q   Median       3Q      Max 
-1.43214 -0.48304 -0.06607  0.47589  1.21786 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept)   3.5500     0.1915  18.539   <2e-16 ***
TimeofDay     0.4821     0.1915   2.107   0.0418 *

Signif. codes:  0 ‘***' 0.001* * 0.01'*' 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.6633 on 38 degrees of freedom
  (3 observations deleted due to missingness)
Multiple R-squared:  0.1046,    Adjusted R-squared:  0.081 
F-statistic: 4.438 on 1 and 38 DF,  p-value: 0.04181

Reg2 | t |）
（截距）3.5500.191518.539我想你想要

plot(Morality~TimeofDay,data=Data316b)
Reg2 <- lm(Morality~TimeofDay,data=Data316b) summary(Reg2)
abline(Reg2)

PS你真的在衡量道德[sic]是作为一天中某个时间的函数，还是死亡率在变化？？？
我的研究是看道德是否从早上到下午都在变化，所以一天中的时间是1=早上参加调查的人，2=下午参加调查的人。我做错了吗？@LuceroNoyola-我想本想知道“道德”是否是一个拼写错误，而你实际上指的是“死亡”，即死亡人数或类似数字。
library("ggplot2")
ggplot(Data316b,aes(TimeofDay,Morality))+
   geom_point() + geom_smooth(method="lm")