как построить линию регрессии с указанием формулы

Question

Я пытаюсь построить линию регрессии, которая проходит через начало координат. Я использую следующий код:

library(ggplot2) 
library(ISwR) 
thuesen 
cc <- complete.cases(thuesen) 
tcc <- thuesen[cc,] 
attach(tcc) 
m <- lm(short.velocity~blood.glucose -1) 
m 
graph <- ggplot(data=tcc, aes(x=blood.glucose, y=short.velocity)) + geom_point() 
graph + geom_smooth(method="lm", formula=m) 
Error in model.frame.lm(formula = formula, data = data, weights = weight, : 
objet 'weight' introuvable 

Я не понимаю это сообщение об ошибке, есть ли у кого-нибудь решение этой проблемы?

Answer 1

Для того, чтобы использовать ту же формулу в пределах ggplot2:

graph + geom_smooth(method="lm", formula=y~x-1)