自定义gggraph，使geom_abline图层仅在沿x轴的特定范围内显示

model <- lm(mpg ~ wt, mtcars)

ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point() + 
  geom_abline(intercept = coefficients(model)[1], slope = coefficients(model)[2])

library(ggplot2)

trendline <- data.frame(wt = c(2, 4)) 
trendline$mpg <- predict(model, newdata =
trendline)

ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point() + 
  geom_line(data = trendline)

R相关问答推荐

如何判断某列中由某些行组成的百分比

查找图下的面积

名称输出pmap on tible

如何根据组大小应用条件过滤？

获取列中值更改的行号

R Sapply函数产生的值似乎与for循环方法略有不同

使用列/行匹配将两个不同维度的矩阵相加

如果可能，将数字列转换为整数，否则保留为数字

在RStudio中堆叠条形图和折线图

方法：：slotName如何处理非类、非字符的参数？

如何在科学记数法中显示因子

按多列统计频次

仅在R中的数据集开始和结束时删除所有 Select 列的具有NA的行

从多层嵌套列表构建Tibble？

如何对r中包含特定(未知)文本的行求和？

将摘要图添加到facet_WRAP gglot的末尾

R预测包如何处理ARIMA(Auto.arima函数)中的缺失值

基于R中的引用将向量值替换为数据框列的值

如何将字符类对象中的数据转换为R中的字符串

子样本间系数检验的比较