Add legend to draw for fs splines ?

[remip48]

Hello,

Is it possible to add a legend for the color of the fs splines of X, when fitted according to a factor Xt ? Xt + s(X, bs = 'cs') + s(X, by = Xt, bs = c('cs', 'fs'))

Thanks a lot

[gavinsimpson]

See #77