geom_abline does not show a line

tidyverse
1

Hi all I have used following code to draw a plot. But Geom abline won't appear.

r<-cor(is.na(bmi$HT),is.na(bmi$WT))

bmi %>% ggplot(aes(HT,WT)) + geom_point(alpha=0.5) + geom_abline(intercept=0,slope=r)

What I got is

Rplot
Rplot305×420 17.4 KB

Please help

2

If you calculate the value of r*160, I think you will find that the value does not lie within the displayed y values.