我查看了几篇帖子以获得解决我的问题的帮助,但没有成功实现解决方案。我的问题很简单,我想将变量名从 Reshape 包传递给强制转换函数。变量“时间”是我正在创建的用户定义函数中的一个参数。我想通过强制转换函数传递这个参数。
我经常使用的伪数据:
dates <-seq(as.Date("2010-01-01"), by = "day", length.out= 1080)
myData <- expand.grid( Day, Hour)
names(myData) <- c("Date","Hour")
myData$Adspend <- apply(myData, 1, function(x) foo(x[2], x[1]))
myData$Date <-dates
myData$Demand <-(rnorm(1,mean = 0, sd=1)+.75*myData$Adspend)
myData$Hour<-as.factor(myData$Hour)
这是我正在测试的部分用户定义函数:
AddLag <- function(DF,Date,Time,RESP,AD,LAG=9) {
Lags<-24-LAG
ADDATE<-DF[,c(1,2,4)]
RESPDATE<-cbind(DF[[Date]],DF[[Time]],DF[[RESP]])
HOURAD<-melt(ADDATE, id=c(Date,Time), measured =c(AD))
HOURAD<- cast(HOURAD,as.formula(paste0(" ...~"),Time))
return(HOURAD)
}
我遇到的错误。我尝试过各种粘贴配置,我怀疑这是一个我无法弄清楚的简单问题:
Bo<-AddLag(myData,"Date","Hour","Demand","Adspend")
Error in parse(text = x) : <text>:2:0: unexpected end of input
1: ...~
^
最佳答案
我明白了。这是对paste0如何与as.formula函数一起工作的误解。 下面是转换函数的编写方式:
require(reshape2)
HOURAD<- dcast(HOURAD,as.formula(paste0("... ~",Time))) ## was a parenthesis error here
关于r - 将 data.frame 变量名称传递给 r 中的熔化和类型转换,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/19338165/