期待今天的开盘价减去昨天的开盘价

Question

我正在尝试在名为TR的数据框中添加一列，其中包含根据今天的开盘价减去昨天开盘价计算的数据。有人可以帮忙吗？它非常简单，但结果为空。

library(quantmod)
myData <- new.env()
class(myData)
mySymbols <- c('AAPL','BABA')
startDate = Sys.Date()-180
endDate = Sys.Date()
getSymbols(mySymbols, env = myData, src = "yahoo", from = startDate, to = endDate)
head(myData$AAPL)
OpenPrice<-Op(myData$AAPL)
HighPrice<-Hi(myData$AAPL)
LowPrice<-Lo(myData$AAPL)
ClosePrice<-Cl(myData$AAPL)
Volume<-Vo(myData$AAPL)
n = nrow(myData$AAPL)
#TRAITEMENT MIDPOINT
MP = (HighPrice+LowPrice)/2
names(MP)[names(MP)=="AAPL.High"] <- "MP"
plot(MP)
chartSeries(MP,name="MidPoint in Local Currency")
head(MP)
NewDataSet <- data.frame(myData$AAPL,MP)
#TRAITEMENT TR
TR <- OpenPrice[2:n, 1]-OpenPrice[1:(n-1), 1]
head(TR)

Answer 1

在减去之前将值更改为numeric。

TR <- as.numeric(OpenPrice[2:n, 1])-as.numeric(OpenPrice[1:(n-1), 1])

这应该有用。