> ggplot(df, aes(x = W, y = S)) + + geom_point(size = 3, color = "#1b6ca8") + + geom_line(color = "#1b6ca8", linewidth = "0.6") + + geom_smooth(method = "lm", se = FALSE, linetype = "dashed", color = "firebrick") + + labs(title = "Filter drag vs. Areal dust density", x = "Areal dust density, W (g/m^2)", y = "Filter drag, S = P/V (Pamin/m)") + + annotate("text", x = max(df$W)0.55, y = min(df$S) + 0.2(max(df$S)-min(df$S)), label = eq, hjust = 0, size = 4) + Error: unexpected numeric constant in: " labs(title = "Filter drag vs. Areal dust density", x = "Areal dust density, W (g/m^2)", y = "Filter drag, S = P/V (Pamin/m)") + annotate("text", x = max(df$W)0.55" > plot(W, S, pch = 19, col = "navy", xlab = "Areal dust density, W (g/m^2)", + ylab = "Filter drag, S = P/V (Pamin/m)", + main = "Filter drag vs. Areal dust density") abline(lm(S ~ W), col = "firebrick", lty = 2, lwd = 2) Error: unexpected symbol in: " ylab = "Filter drag, S = P/V (Pamin/m)", main = "Filter drag vs. Areal dust density") abline" correct the errors