That's a scatterplot with loess smoother + confidence intervals, all done with this simple call:
qplot(x = FICO
, y = ir
, data = loansData
, color = Loan.Length
, geom = c('point', 'smooth')
, ylab = "Interest Rate"
, xlab = "FICO Score"
)
How awesome is that?