n <- 50
x <- rnorm(n)
y1 <- 0.2*x+rt(n,2)
y2 <- 0.8*x+rt(n,2)
res1 <- lm(y1~x)
res2 <- lm(y2~x)
plot(y,x,pch=1)
abline(res1,lty="solid")
abline(res2,lty="dashed")
legend("topleft",c(expression(beta==0.2),expression(beta==0.8)),cex=1,lty=c("solid","dashed"),seg.len=5)
设置 seg.len 的参数来调整长度