CODEWITHSUNDEEP
rdataframemergextsread.csv
Baska
Baska

Reputation: 1

How can I merge 3 time series in R?

I'm really new here and I'm really new in programming language like R. I would like to download 3 time series, choose 2 columns (dates and closing price) from each of them and then merge them into one. Merging them is my problem -- some dates are copied like here:

http://prntscr.com/avz7o6.jpg

I tried to use merge.xts() instead of merge() and change .xts into data.frame but it doesn't work.

My code:

#install packages quantmod i Quandl
install.packages(c("quantmod","Quandl"))
library('quantmod')
library('Quandl')

#download data (.xts) using Quandl
Wine<-Quandl("LSE/WINE",type="xts")

#download data from Yahoo!Finance (.xts)
Rennova.Health<-getSymbols("RNVA")

#download data from stooq.pl and change them into xts
data<-read.csv("http://stooq.pl/q/d/l/?s=EUR&i=d",header=TRUE)   
EUR<-xts(data[,-1],order.by=as.POSIXct(data[,1])) 

#choose closing price and name them 
zamkniecie1<-Wine$"Last Close"
zamkniecie2<-RNVA$RNVA.Close
zamkniecie3<-EUR$Zamkniecie

#MARGE! into one
all.in.one<-merge(zamkniecie1, zamkniecie2, zamkniecie3)

Thanks for your help!

Upvotes: 0

Views: 429

Answers (2)

Joshua Ulrich
Joshua Ulrich

Reputation: 176738

The problem is that Quandl and getSymbols both return xts objects with a Date classed index, but you create EUR with a POSIXct classed index.

The Date class does not have a timezone, and is therefore treated as if it is in the UTC timezone. as.POSIXct uses your local timezone by default, so the EUR object has a different timezone than the other two objects.

Here's a simplified version of your code that avoids this issue by using read.zoo, which correctly infers that the CSV downloaded from stooq.pl has a Date classed index.

library('quantmod')
library('Quandl')
# download data (.xts) using Quandl
Wine <- Quandl("LSE/WINE", type="xts")
# download data from Yahoo!Finance (.xts)
RNVA <- getSymbols("RNVA", auto.assign=FALSE)
# download data from stooq.pl and change them into xts
EUR <- as.xts(read.zoo("http://stooq.pl/q/d/l/?s=EUR&i=d", header=TRUE, sep=","))
# merge into one
all.in.one <- merge(Wine[,"Last Close"], RNVA[,"RNVA.Close"], EUR$Zamkniecie)

If you just want to update the offending line, you need to change your call to as.POSIXct to as.Date, or add tz="UTC" to your as.POSIXct call.

# download data from stooq.pl and change them into xts
data <- read.csv("http://stooq.pl/q/d/l/?s=EUR&i=d",header=TRUE)
EUR <- xts(data[,-1], order.by=as.Date(data[,1]))
# or:
EUR <- xts(data[,-1], order.by=as.POSIXct(data[,1], tz="UTC"))

Upvotes: 1

Bryce F
Bryce F

Reputation: 101

I think the problem you are having is that your xts time index for zamkniecie3 has a "PST" timezone appended to it. You can convert it with as.Date and then merge successfully.

index(zamkniecie3) <- as.Date(index(zamkniecie3))

#MERGE! into one
all.in.one <- merge(zamkniecie1, zamkniecie2, zamkniecie3)

Upvotes: 1

Related Questions