revd中的错误：找不到对象“ Gmt_time”

编程问答 2022-06-07

问题描述

我正在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 (将#修改为@）

dplyrdplyrmagrittrrr