将文本传递到R Studio中的用户定义函数

Question

我是R.的新手。我想设置一些函数来生成图形并接受文本作为参数，以便它成为标题。我想将文本添加到变量xTitle和MainTitle中...而且，我无法管理它。

用于创建具有定义中断数

的histogrm的函数

REDhistogramNamed<-function(x, y, xTitle, MainTitle) {
   h<-hist(x, breaks=y, col="red", xlab=xTitle, main=MainTitle) 
   xfit<-seq(min(x),max(x),length=40) 
   yfit<-dnorm(xfit,mean=mean(x),sd=sd(x)) 
   yfit <- yfit*diff(h$mids[1:2])*length(x) 
   lines(xfit, yfit, col="blue", lwd=2)
   return(h)
}

最后这就是我得到的。

REDhistogram<-function(x, y, MainTitle, xTitle) {
  MainTitle<-eval(parse(text = "MainTitle"))
  xTitle<-eval(parse(text = "xTitle"))

  h<-hist(x, breaks=y, col="red", xlab=xTitle, 
          main=MainTitle) 
  xfit<-seq(min(x),max(x),length=40) 
  yfit<-dnorm(xfit,mean=mean(x),sd=sd(x)) 
  yfit <- yfit*diff(h$mids[1:2])*length(x) 
  lines(xfit, yfit, col="blue", lwd=2)
  (h)
}

a <-runif(1000,0,1000)   
REDhistogram(a,15,"main title", "xtitle")

我设法让它最终发挥作用。我觉得我累了