Adjust smooth line only in ggduo

[Sibojang9]

Anyway to adjust the smooth line size, color only or complete remove it? I looked around, but could not find instruction. For example, I want the smooth line to be red.

Other options either adjust the dots or adjust dots and smooth line at the same time.

Sample code and figure:

ggduo(
  psychademic, c("locus_of_control", "self_concept" ),c ( "read","math") ,
  types = list(continuous = "smooth_lm"),
  title = "Between Academic and Psychological Variable Correlation",
  xlab = "Psychological",
  ylab = "Academic"
)