Help with abline, line not showing

[valijawsz]

Hi! I have this code
igiena<-read.csv("Populatia cu acces la igiena de baza.csv")
str(igiena)
igiena$Entity<-as.factor (igiena$Entity)
igiena$Entity<-as.numeric (igiena$Entity)
str (igiena)
summary(igiena)
cor_matrix<-cor (igiena)
cor(igiena, use ="complete.obs")
pairs (igiena)
install.packages("corrplot")
library(corrplot)
cor_matrix <- cor(igiena, use="pairwise.complete.obs")
corrplot(cor_matrix)
plot(igiena$hyg_lim ~ igiena$hyg_bas)
abline(lm(hyg_lim ~ hyg_bas, data = igiena), col = "green")
abline(h =mean(igiena$hyg_bas), col = "red")

I can see the green line but the red line doesnt show. What is the problem?

[technocrat]

@valijawsz

abline(h =mean(igiena$hyg_bas), col = "red")

try changing to

abline(h =mean(igiena$hyg_bas, na.rm = TRUE), col = "red")