The R Project SVN R

Rev

Rev 77881 | Rev 80947 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 77881 Rev 78767
Line 234... Line 234...
234 
plotNchk(y74[1:8]) # 3 warnings *and* no error anymore
 234 
plotNchk(y74[1:8]) # 3 warnings *and* no error anymore
235 
plotNchk(y74[1:2]) #    (ditto)
 235 
plotNchk(y74[1:2]) #    (ditto)
236 
 
 236 
 
237 
 
 237 
 
238 
## dotchart(*, pch=., groups=*) -- PR#16953
 238 
## dotchart(*, pch=., groups=*) -- PR#16953
239 
x <- setNames(0:5, c('a','aa', 'aaa', 'b', 'bb', 'bbb'))
 239 
## dotchart(*, ylab=.) for groups;
- 
 
 240 
g <- rep(1:3, each=2)
240 
y <- nchar(names(x)) # (minimal plot:)
 241 
dotchart(VADeaths[1:2, 1:3], color=g, pch=g,
- 
 
 242 
         ylab = "Grouping:  {Urbanity . Gender} x Age",
241 
dotchart(x, color=y, pch=y, groups=y, xaxt="n", frame.plot=FALSE)
 243 
         xaxt="n", frame.plot=FALSE)
242 
## now pch and colors match groups
 244 
## now pch and colors match groups;
- 
 
 245 
## ylab placement; group (row) labels show again