Try this script. I converted test_date to numeric decimal year
link <- "C:\\R_Home\\Charts & Graphs Blog\\R_Chart_Doc\\text_data.csv"
testdata<- read.table(link, head = T, sep = ",",na.strings = "na")
test_date = as.Date(testdata$Date,"%d-%m-%y")
# Convert dates to decimal year
my_yr <- as.numeric(format(test_date,format="%Y"))
my_mo <- as.numeric(format(test_date, format="%m"))
dec_yr <- my_yr + (my_mo+0.5)/12
plot(dec_yr, testdata$Model, type="l", log="y", xaxs="i", yaxs="i",
axes=T, xlim = c(2003, 2008))
points(dec_yr, testdata$BaseDataA, type = "l", col = "red")
points(dec_yr, testdata$BaseDataB, type = "l", col = "blue")
grid( col="grey",lty=1)
box()
Kelly
http://chartsgraphs.wordpress.com http://chartsgraphs.wordpress.com
gug wrote:
>
> Thanks - that works great.
>
> Do you have any suggestions about the grid() problem - i.e. that the
> vertical gridlines do not line up with the x-axis tickmarks (which are
> years)?
>
> I can't see on what basis the vertical gridlines are being positioned, but
> it doesn't look good that they are not lined up with anything.
>
> Thanks,
>
> Guy
>
>
> DKOD wrote:
>>
>> This script worked for me. Be sure to put in your correct link.
>>
>> link <- "C:\\R_Home\\Charts & Graphs Blog\\R_Chart_Doc\\text_data.csv"
>> testdata<- read.table(link, head = T, sep = ",",na.strings = "na")
>> test_date = as.Date(testdata$Date,"%d-%m-%y")
>>
>> plot(test_date, testdata$Model, type="l", log="y")
>> points(test_date, testdata$BaseDataA, type = "l", col = "red")
>> points(test_date, testdata$BaseDataB, type = "l", col = "blue")
>>
>> You add 2nd and 3rd series with points command
>>
>> Hope this helps.
>>
>> Kelly
>>
>> http://chartsgraphs.wordpress.com http://chartsgraphs.wordpress.com
>>
>>
>
>
--
View this message in context:
http://www.nabble.com/Simple-time-series-questions-tp25398419p25400652.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
