Построение графиков в R

Конечный вид графика scatter plot с регрессионной прямой (lowess).
Нужно поставить легенду, как ее правильно оформить, нужно отметить и красные круглые точки-данные, и обозначение регрессионной прямой?
Начал так-
legend(locator(1),c("data","lowess"),fill=c("red","yellow"))
Как записать линию, ее толщину, и тот факт, что треугольники закрашены желтым, а точки красным?