Hey can anyone help me with this trend line? Why is it not fitting the data? Thanks

Fish$log.Weight <- log10(Fish$Weight)

Fish$log.Width <- log10(Fish$Width)

fish.lm <- lm(log.Weight ~ log.Width, Fish)

# qqplot:

plot(fish.lm, which =2, las=1)

# histogram

hist(resid(fish.lm), main = "Residuals", las=1)

summary(fish.lm)

plot(log.Weight~log.Width, data=Fish, pch=16, las=1,

xlab=expression(paste("log.Width", (cm))),

ylab="log.Weight (g)", log="xy")

#add the regression line from the fitted model:

abline(fish.lm, col='blue')