gygam <- gam(gydat$高管薪酬总额~ s(gydat$企业类型), data= gydat, bs="cr")Error in names(dat) <- object$term : 'names' attribute [1] must be the same length as the vector [0]