无法使用ggplot2 update1在R中绘制回归线

这些是数据和代码的一部分，我想用R中的ggplot2绘制回归。 结果不理想，你能告诉我我犯了什么错误吗

     age purchase_freq
   <dbl> <chr>        
 1    81 30           
 2    61 89           
 3    54 67           
 4    33 43           
 5    55 35           
 6    58 25           
 7    31 71           
 8    20 10           
 9    77 18           
10    45 23           
# … with 900 more rows```

---

purchase\u freq

是数据框中的一个

字符，这意味着它的y值是离散的，这会把事情搞砸。使用
as.numeric
将其转换为一个数字，事情应该会变得更好。
嗨，詹姆斯。你能帮我们澄清一下结果是不可取的吗？代码中没有错误，可能是错误的模型？对不起，我没有成功上传结果，我已经上传了@JasonPunyon
ggplot(test1, aes(x = age, y = purchase_freq)) +
   geom_point() +
   geom_smooth(method = "lm")