Display Equation on plot

Hello,

I am using the lm to fit a linear model to data, I was wondering if 
there is a way to display the equation on a plot using the extracted lm 
coefficients?  I am using the plot() function to create the plot/.png.

Example:
lm_mod <- lm(data1~data2)

intercept = 48.54
slope = 0.4856

I want to display equation on a plot as y=0.4856x+48.54

Any thoughts or suggestions are appreciated.

Thanks,
Doug