Problem with line segments in a dotplot
Due to incompatibility in base R graphics and grid graphics (which underlies lattice plots), functions like segments cannot be directly used. Alternatives for them have to be written using grid. There are already some such functions, in particular, the lsegments() function should do what you want.
--- Mitch Dawson <MDawson at cihi.ca> wrote:
Hi,
I am trying to create a dotplot with dots (to represent a starting date) and
lines to represent a length of stay. The code below works except the line I
expect from the segments function. Almost positive that this worked on
Splus in the past...
Any help would be greatly appreciated.
Mitch Dawson.
## using rw1041 -- windows
library(date)
library(lattice)
"ED" <-
structure(list(Resident.ID = c(490799, 490799, 490799, 490799,
490799, 490799, 490975, 491024, 491454, 491509, 491663, 491663,
491663, 491874, 492323, 492354, 492386, 492394, 492449, 492683
), AB1.Date.Of.Entry = structure(c(13370, 13509, 13583, 13629,
13867, 13954, 13492, 14381, 13622, 13845, 14062, 14074, 14091,
14014, 13976, 13358, 14285, 13815, 14332, 13886), class = "date"),
R4.Discharge.Date = structure(c(13379, 13523, 13588, 13635,
13880, 13958, 13513, 14494, 13631, 13883, 14066, 14090, 14101,
14040, 13982, 13360, 14384, 13843, 14364, 13901), class = "date")),
.Names = c("Resident.ID",
"AB1.Date.Of.Entry", "R4.Discharge.Date"), row.names = c("1",
"2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13",
"14", "15", "16", "17", "18", "19", "20"), class = "data.frame")
dotplot( Resident.ID ~ AB1.Date.Of.Entry, data=ED, col="black",
panel=function(x,y, Discharge.Date=ED$R4.Discharge.Date, ...) {
panel.dotplot(x,y, ...)
trellis.par.set( "dot.line", list(col="black",lty=2,lwd=1) )
segments( x,y, Discharge.Date, y, col="black", lty=1, lwd=2 )
} )
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html Send "info", "help", or "[un]subscribe" (in the "body", not the subject !) To: r-help-request at stat.math.ethz.ch _._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._
__________________________________________________ Yahoo! Movies - coverage of the 74th Academy Awards® -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html Send "info", "help", or "[un]subscribe" (in the "body", not the subject !) To: r-help-request at stat.math.ethz.ch _._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._