Thank you Jim and David for your help.
The 'levels' call is not a misdirection, in my actual dataset it is
necessary because the flows aren't symmetrical. So while your solution is
quite elegant David, it doesn't apply to my actual data, just the example.
Too bad, it's quite nice!
I do
On 2011-03-28 09:33, Pam Allen wrote:
Thank you Jim and David for your help.
The 'levels' call is not a misdirection, in my actual dataset it is
necessary because the flows aren't symmetrical. So while your solution is
quite elegant David, it doesn't apply to my actual data, just the example.
Hello Baptiste and others,
I tried your example with my dataset, and for a few days I thought it worked
for me. But I realized yesterday that the result wasn't quite what I hoped
for. In my actual data the flows aren't perfectly sinusoidal, and I used a
series of ifelse queries to code the
On Mar 25, 2011, at 3:23 PM, Pam Allen wrote:
Hello Baptiste and others,
I tried your example with my dataset, and for a few days I thought
it worked
for me. But I realized yesterday that the result wasn't quite what
I hoped
for. In my actual data the flows aren't perfectly sinusoidal,
Hello again,
I wrote an example that better represents my data, since the coloured points
are actually consecutive, but with variable lengths:
date=as.Date(c(1:300))
flow=sin(2*pi/53*c(1:300))
levels=c(rep(c(high,med,low),100))
data=cbind.data.frame(date, flow, levels)
library(zoo)
z -
On 03/26/2011 07:19 AM, Pam Allen wrote:
Hello again,
I wrote an example that better represents my data, since the coloured points
are actually consecutive, but with variable lengths:
date=as.Date(c(1:300))
flow=sin(2*pi/53*c(1:300))
levels=c(rep(c(high,med,low),100))
Hi All,
I'm trying to plot data that is a time series of flows that are associated
with a specific level, and I would like each level to represent a colour
in a line plot. Here is some data that approximates what I'm using:
date=c(1:300)
flow=sin(2*pi/53*c(1:300))
Hi!
Not an elegant solution, but seems to work:
date - c(1:300)
flow - sin(2*pi/53*c(1:300))
levels - factor(rep(c(high,med,low),100))
data - cbind.data.frame(date, flow, levels)
colours - as.numeric(levels)+1
# interpolate
resolution - 0.001
appres -
Hi,
because each colour is defined on non-consecutive points, you'll
probably need to cut the intervals to define segments around each
point. One approach might be the following,
d = transform(data, start = date - c(0, diff(date)/2), end = date +
c(0, diff(date)/2) )
d$start.y = approx(d$date,
Indeed, I forgot about the segments function.
with(d,plot(date,flow,type=n))
with(d,segments(start,start.y,end,end.y,col=colour))
Hi,
because each colour is defined on non-consecutive points, you'll
probably need to cut the intervals to define segments around each
point. One approach
On Mar 17, 2011, at 6:33 PM, Pamela Allen wrote:
Hi All,
I'm trying to plot data that is a time series of flows that are
associated
with a specific level, and I would like each level to represent a
colour
in a line plot. Here is some data that approximates what I'm using:
date=c(1:300)
11 matches
Mail list logo
