R devel - Aug 2002 - interaction.plot() legend too narrow when mfcol > 2 (PR#1899)

Here is an example:

 The legends (mainly the factor level names) are cut off on the
 right.  Somehow the internal calculation which computes
 horizontal space for the legend is not flexible enough.

## Call a new graphics window {with default par()s !}:
get(getOption("device"))()
par(mfrow = c(2,2))

## part of  example(interaction.plot)  _improved_ using with() :
data(OrchardSprays)
with(OrchardSprays, {
    interaction.plot(treatment, rowpos, decrease)
    interaction.plot(rowpos, treatment, decrease)
})

data(esoph)
with(esoph, {
    interaction.plot(agegp, alcgp, ncases/ncontrols)
    interaction.plot(agegp, tobgp, ncases/ncontrols,
trace.label="tobacco",
                     fixed=TRUE)
})

-------------------------------

Something that should be easy to fix, but needs some care (and
time). 
Volunteers?

Martin Maechler <maechler@stat.math.ethz.ch>
http://stat.ethz.ch/~maechler/
Seminar fuer Statistik, ETH-Zentrum  LEO C16	Leonhardstr. 27
ETH (Federal Inst. Technology)	8092 Zurich	SWITZERLAND
phone: x-41-1-632-3408		fax: ...-1228			<><


-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel 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-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

maechler@stat.math.ethz.ch wrote:
> 
> Here is an example:
> 
>  The legends (mainly the factor level names) are cut off on the
>  right.  Somehow the internal calculation which computes
>  horizontal space for the legend is not flexible enough.
> 
> ## Call a new graphics window {with default par()s !}:
> get(getOption("device"))()
> par(mfrow = c(2,2))
> 
> ## part of  example(interaction.plot)  _improved_ using with() :
> data(OrchardSprays)
> with(OrchardSprays, {
>     interaction.plot(treatment, rowpos, decrease)
>     interaction.plot(rowpos, treatment, decrease)
> })
> 
> data(esoph)
> with(esoph, {
>     interaction.plot(agegp, alcgp, ncases/ncontrols)
>     interaction.plot(agegp, tobgp, ncases/ncontrols,
trace.label="tobacco",
>                      fixed=TRUE)
> })
> 
> -------------------------------
> 
> Something that should be easy to fix, but needs some care (and
> time).
> Volunteers?
Martin, 

not right now (may be easy, but obviously not very easy ;-)). 
I'd like to comment that I filed this already as bug report #1305,
including a suggestion for a fix for a second bug related to axis
annotation.

Best,
Uwe

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel 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-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._