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
gug wrote:>
> I'm sure this is a really simple problem, but I've spent hours
digging and
> I keep running into roadblocks.
>
> I'm trying to get a simple chart with three time series. Similar to
the
> attached example
> http://www.nabble.com/file/p25398419/Excel%2Bchart%2Bexample.pdf
> Excel+chart+example.pdf , something that was quite easy to do in Excel,
> except that I need a log y-axis: something that R can do and Excel
can't.
>
> The data is in the attached CSV file
> http://www.nabble.com/file/p25398419/test%2Bchart%2Bdata.csv
> test+chart+data.csv . I can read it in OK, and create separate charts:
>
> testdata<- read.table("C:\\Files\\test chart data.csv", head =
T, sep > ",",na.strings = "na")
> test_date = as.Date(testdata$Date,"%d-%m-%y")
> test_data_model = testdata$Model
> test_date_baseA = testdata$BaseDataA
> test_date_baseB = testdata$BaseDataB
> plot(test_date, test_data_model,type='l',log="y")
> plot(test_date, test_data_baseA,type='l',log="y")
> plot(test_date, test_data_baseB,type='l',log="y")
> grid()
>
> (Clearly at this point, each chart over-writes the previous one.)
>
> Next I try to get them onto a single chart, sharing the same y-axis.
I'm
> sure I haven't done this very elegantly, but here goes:
>
> frame_model = data.frame(a=test_date,b=test_data_model)
> frame_A = data.frame(a=test_date,b=test_data_baseA)
> frame_B = data.frame(a=test_date,b=test_data_baseB)
> ts_model = ts(frame_model$b)
> ts_a = ts(frame_A$b)
> ts_b = ts(frame_B$b)
>
ts.plot(ts_model,ts_a,ts_b,col=c("blue","red","green"),log="y")
>
> The problem is that I no longer have the date along the y-axis. How can I
> get that back?
>
> Finally, when I plot the separate time series, the grid() function
> geneates a grid where the vertical lines are not lined up with the year
> tick marks. I interpreted the topic help as saying that by default they
> would match the tick marks. How can I achieve that?
>
> Thanks for any suggestions,
>
> Guy Green
>
http://chartsgraphs.wordperss.com http://chartsgraphs.wordperss.com
--
View this message in context:
http://www.nabble.com/Simple-time-series-questions-tp25398419p25398863.html
Sent from the R help mailing list archive at Nabble.com.