考虑在函数内部使用ggplot(...)的情况。 x <- seq(1,10,by=0.1) df <- data.frame(x,y1=x, y2=cos(2*x)/(1+x)) library(ggplot2) gg.fun <- function(){ i=2...

我正在编写一个需要加权回归的函数。使用weights参数时，我一直收到错误提示。我已经创建了一个最小可重现示例，您可以在此处找到： wt_reg <- function(form, data, wts) { lm(formula = as.formula(form), data =...