如何解决revd中的错误:找不到对象“ Gmt_time”
我正在R中做一个小项目,从一开始我就遇到了一些困难。
这是代码段
#import dataframe,create ohlcv and change datatype to POSIXct format
#create a object of received dataframe
env
pr <- read.csv("C:/Users/GBPUSD_XXX.csv",sep=",",header = T)
#----pr.OHLCV --------
pr.OHLCV <- function(d,o,h,l,cl,v) {
# (d,v) - vector
require('margrittr')
require('dplyr')
require('anytime')
price <- cbind(Gmt_time= rev(d),Open = rev(o),High=rev(h),Low = rev(l),Close = rev(cl),Vol = rev(v)) %>% as.tibble()
price$Gmt_time %<>% anytime(.,tz = "CET")
return(price)
}
evalq({ pr <- pr.OHLCV(Gmt_time,Open,High,Low,Close,Volume)
rm(list = c("Gmt_time","Open","Low","Close","Volume"))
},env)
数据帧如下:
Gmt_time,Volume
12.10.2020 00:00:00.000,1.30298,1.30300,1.30265,1.30279,239.35
12.10.2020 00:01:00.000,1.30280,1.30281,1.30268,1.30271,139.3
12.10.2020 00:02:00.000,1.30273,1.30285,1.30272,209.98
12.10.2020 00:03:00.000,1.30284,1.30275,61.88
12.10.2020 00:04:00.000,88.94
我收到的错误是:
rev(d)中的错误:找不到对象'Gmt_time'
具有以下追溯:
8.rev(d)
7.cbind(Gmt_time = rev(d),High = rev(h),Vol = rev(v))
6.eval(lhs,parent,parent)
5.eval(lhs,parent)
4.cbind(Gmt_time = rev(d),Vol = rev(v)) %>% as.tibble()
3.pr.OHLCV(Gmt_time,Volume)
2.evalq({ pr <- pr.OHLCV(Gmt_time,Volume) rm(list = c("Gmt_time","Volume")) },env)
1.evalq({ pr <- pr.OHLCV(Gmt_time,env)
最好的问候
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。