R 表示散点图中变量的名称

我需要写一个函数来绘制变量的曲线图。问题是它没有打印变量的名称

visual<-function( x , y){      
   df<-cbind(x,y)
   df<-scale(df, center = TRUE, scale = TRUE)
   df<-as.data.frame(df)
   ggpairs(df, columns=1:2,xlab = colnames(df)[1],ylab =colnames(df)[2])
}

---

visual您可以使用
substitute
获取传递到函数中的对象的名称

visual<-function(x, y){
  xname <- substitute(x)
  yname <- substitute(y)

  df<-cbind(x,y)

  df<-scale(df, center = TRUE, scale = TRUE)

  df<-as.data.frame(df)

  names(df) <- c(xname, yname)

  GGally::ggpairs(df, columns=1:2, xlab = colnames(df)[1], ylab =colnames(df)[2])
}

b<-c(128.095014,  71.430997,  88.704595,  48.180638)
a<-c(10.584888,  10.246740,   4.422322,   9.621246)

visual(a,b)

visualWhere是
ggpairs
来源？那是包裹里的吗？非常感谢。太棒了。
visual<-function(x, y){
  xname <- substitute(x)
  yname <- substitute(y)

  df<-cbind(x,y)

  df<-scale(df, center = TRUE, scale = TRUE)

  df<-as.data.frame(df)

  names(df) <- c(xname, yname)

  GGally::ggpairs(df, columns=1:2, xlab = colnames(df)[1], ylab =colnames(df)[2])
}

b<-c(128.095014,  71.430997,  88.704595,  48.180638)
a<-c(10.584888,  10.246740,   4.422322,   9.621246)

visual(a,b)