qplot(disp,

mpg,

data = mtcars,

main = "MPG vs Eng. Displacement (span = 0.2)") +

stat_smooth(method = "loess",

method.args = list(degree = 0),

span = 0.2,

se = FALSE)

qplot(disp,

mpg,

data = mtcars,

main = "MPG vs Eng. Displacement (span = 1)") +

stat_smooth(method = "loess",

method.args = list(degree = 0),

span = 1,

se = FALSE)

qplot(disp,

mpg,

data = mtcars,

main = "MPG vs Eng. Displacement (span = 10)") +

stat_smooth(method = "loess",

method.args = list(degree = 0),

span = 10,

se = FALSE)

qplot(disp,

mpg,

data = mtcars,

main = "MPG vs Eng. Displacement (default span)") +

stat_smooth(method = "loess",

method.args = list(degree = 0),

se = FALSE)