Hi
Dataframefdf contains
bin rate overlay
1 1 90 Assign First/cc _from_SN_53 RNC_20_to_SN_50 RNC_21_Success
Rate
2 2 93 Assign First/cc _from_SN_53 RNC_20_to_SN_50 RNC_21_Success
Rate
3 1 90 Assign First/cc _from_SN_50 RNC_21_to_SN_53 RNC_20_Success
Rate
4 2 94 Assign First/cc _from_SN_50 RNC_21_to_SN_53 RNC_20_Success
Rate
time
1 (04/01/08 16:02:30)
2 (04/01/08 16:07:30)
3 (04/01/08 16:02:30)
4 (04/01/08 16:07:30)
And then I write the following lines of code to plot a xygraph on a pdf
file
n - length(unique(fdf$time))
x -sort(unique(fdf$time))
y-UTCsecs2chron(x)
xscales - computeTimeScales(y)
yscales-NULL
scales-c(xscales,yscales)
ylab-session transfer rate
xlab-time
lgnd.txt-levels(fdf$overlay)
celnet.trellis.device(device=pdf, file=ravi_st.pdf, width=10,height
= 10)
main-this is the first report
formd=rate ~ as.numeric(time)
print(
xyplot(formula(formd),
data = fdf, groups = overlay,
type = b, as.table = TRUE, cex=0.20,
#subset = ok, commented to show breaks in graph
main = main, xlab = Time, ylab = ylab,
scales = scales,
key = simpleKey(text = lgnd.txt, cex = 3/4,
points = FALSE, lines = TRUE),
page = function(n) annotate(opts$ann),
sub = ,
layout = c(1,1)
)
)
computeTimeScales -
function(z, rot=0) ## z is a chron object
{browser()
## how many days do the data span?
n.days - ceiling(diff(range(z, na.rm = TRUE)))
## compute x ticks, pretty labels
x - as.numeric(z)
r - range(x, na.rm = TRUE)
at.x - seq(from = r[1], to = r[2], length = 7)
two_digits - function(x){
x - paste(0, x, sep=)
substring(x,nchar(x)-1)
}
## heuristics: use hh:mm when range of data falls within one day,
## otherwise use MM-DD hh:mm.
at.z - chron(at.x)
hh - paste(two_digits(hours(at.z)), two_digits(minutes(at.z)),
sep=:)
if(0){## hh:ss # this is commented as for more than one day
from/to time no date was printed
at.lbls - hh
}
else { ## MM-DD\nhh:ss
m - month.day.year(at.z)
dd - paste(two_digits(m$month), two_digits(m$day), sep=-)
at.lbls - paste(dd, hh, sep=\n)
}
list(x=list(at = at.x, rot=rot, labels = at.lbls))
}
celnet.theme -
function()
{
celnet.theme - canonical.theme(pdf, color = TRUE)
if(tolower(.Device) ==png)
celnet.theme$background$col - white
else
canonical.theme(pdf, color = TRUE)
celnet.theme$background$col - transparent
celnet.theme
}
celnet.trellis.device -
function(device, file, width = NULL, height = NULL,...)
{
## analogous to trellis.device() -- this is just tailored to Celnet
if(is.null(width))
width - 8
if(is.null(height))
height - 6
if(tolower(device)==png){
if(missing(width)) width - 72 * width
if(missing(height)) height - 72 * height
}
if(tolower(device)==x11)
trellis.device(device, width=width, height=height,
theme=celnet.theme())
if(tolower(device)==ps || tolower(device)==postscript)
trellis.device(postscript, file=file, color = TRUE,
width=width, height=height, theme=celnet.theme())
else
trellis.device(device, file=file,
width=width, height=height, theme=celnet.theme())
}
annotate -
function(str, ...)
## print a metadata message at the top-bottom of current trellis
display
{ else if(n==1){
x - 0.95
hjust - right
} else if(n==2){
x - c(0.05, 0.95)
hjust - c(left, right)
} else if(n==3){
x - c(0.05, 0.50, 0.95)
hjust - c(left, center, right)
}
x - unit(x, npc)
y - unit(1.5, lines)## at 0.5, 1.5, ... lines
for(i in seq(along = x)){
grid.text(label = str[i],
x = x[i], y = y, just = c(hjust[i], bottom), ...)
}
invisible(str)
}
n - length(str) ## one line per string
if(n==0)
return(invisible(str))
}
But I did nt get any desired o/p on a file ravi_st.pdf
Can any one tell how can I get the desired o/p
[[alternative HTML version deleted]]
__
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.
