Re: Kombinieren von Grafiken

[Bernhard Schnizer <schnizer@XXXXXXX.at>]

In Version 5 kann man das mit der Option PlotRegion -> {{},{}}   
erreichen:


opts = {PlotRange -> {{0, 10}, Automatic}, Frame -> True};
GraphicsColumn[{ListPlot[Range[10], Sequence @@ opts, FrameLabel ->  
{"", ""}, \
PlotRegion  ->   {{0.115, 1}, {0, 1}}],
   ListPlot[Range[-1000, -990], Sequence @@ opts, FrameLabel ->  
{"x", "y"}]}]

B. Schnizer



On May 25, 2007, at 2:01 PM, Martin Heimann wrote:

> Bin aber jetzt doch fündig geworten - mit der Option ImagePadding  
> kann man den Bereich für die Labels, Ticks etc. ausserhalb des  
> durch PlotRange definierten Datenbereichs definieren. Damit kann  
> man die Grafiken exakt ausrichten.
>
> Gibt es erst seit Version 6.
>
> Gruss,
> Martin
>
>
> On May 25, 2007, at 13:13, Martin Heimann wrote:
>
> > dies ist genau das Problem: weil die Ticks unterschiedlich gross  
> > sind in den beiden Grafiken, werden sie beim Zusammenfügen  
> > unterschiedlich skaliert und dann sind die beiden horizontalen  
> > Achsen nicht mehr exakt ausgerichtet.
> >
> > Es handelt sich doch um eine Standardanwendung, z.B. verschiedene  
> > Zeitreihen untereinander mit exakt ausgerichteten horizontalen  
> > Achsen darzustellen. Erstaunlich dass dies Mathematica nicht kann,  
> > resp. nicht ohne mit manuell gesetzten Offsets die Grösse der  
> > Ticks und Labels auszugleichen.
> >
> > Gruss,
> > Martin
> >
> >
> > On May 25, 2007, at 13:00, Patrick Scheibe wrote:
> >
> > > Moin,
> > >
> > > ich glaube, dass was hier gewuenscht war sind 2 Grafiken  
> > > uebereinander (also eine oben, die andere unten).
> > > Da die Grafiken separat gerendert werden und bei der einen die y  
> > > Achse im Negativen ist und somit jeder Tick ein Minuszeichen vor  
> > > seiner Zahl hat, sind beide Grafiken nicht exakt ausgerichtet.
> > >
> > > Die GraphicsColumn Funktion weiss doch aber gar nicht, was sie da  
> > > in die obere und in die untere Box packt und kann das Problem  
> > > nicht beheben. Man muesste von vornerein die beiden Grafiken in  
> > > das selbe Format bringe, so dass sie das gleiche Scaling haben  
> > > und das die x-Koordinaten uebereinstimmen.
> > >
> > > Ohne Ticks funktioniert das Ganze. Aber wie man das vernuenftig  
> > > hinkriegt... keine Ahnung.
> > >
> > > p1 = ListPlot[Range[10], FrameLabel -> None, Ticks -> None];
> > > p2 = ListPlot[-Range[10], FrameLabel -> {"x", "y"}, Ticks -> None];
> > > GraphicsColumn[{p1, p2}, Frame -> All]
> > >
> > > Cheers
> > > Patrick
> > >
> > > Am 25.05.2007, 11:59 Uhr, schrieb Jens-Peer Kuska  
> > > <kuska@XXXXXXX.de>:
> > >
> > > > Hallo,
> > > >
> > > > die gab es schon immer, die Version 6.0 Variante
> > > >
> > > > opts = {PlotRange -> {{0, 10}, {-10, 10}}, Frame -> True};
> > > > GraphicsColumn[{ListPlot[Range[10], Sequence @@ opts,
> > > >    FrameLabel -> {"", "y"}],
> > > >   ListPlot[-Range[10], Sequence @@ opts, FrameLabel -> {"x",  
> > > > "y"}]}]
> > > >
> > > >
> > > > aber
> > > > natürlich ist
> > > >
> > > > ListPlot[
> > > >  {Range[10], -Range[10]}, FrameLabel -> {"x", "y"},Frame->True]
> > > >
> > > > hübscher.
> > > >
> > > > Gruss
> > > >   Jens
> > > >
> > > >
> > > >
> > > > Martin Heimann wrote:
> > > > > Gibt es jetzt in Mathematica v6 ein einfaches Rezept, wie man zwei
> > > > > Grafiken so übereinander anordnen kann, dass die x-Achse bei  
> > > > > beiden
> > > > > Grafiken die selbe Länge hat und gleichweit vom linken Rand  
> > > > > beginnt?
> > > > >
> > > > > GraphicsColumn[{ListPlot[Range[10], FrameLabel -> None],
> > > > > ListPlot[-Range[10], FrameLabel -> {"x", "y"}]}]
> > > > >
> > > > > Gruss,
> > > > > Martin
> > > > >
> > > > > --------
> > > > > Max-Planck-Institute for Biogeochemistry, PF 100164, D-07701 Jena,
> > > > > Germany
> > > > > Street Address:  Beutenberg Campus, Hans-Knoell-Straße 10,  
> > > > > D-07745 Jena
> > > > > Office:     +49-3641-57-6350/6301
> > > > > *SIP (VoIP):   1-747-617-6659                 *
> > > > > *Mobile - (NEW):     +49-172-360 6519*
> > > > > Home:     +49-3641-618247
> > > > > Fax.:     +49-3641-57-7300
> > > > > Email:     martin.heimann@XXXXXXX.de
> > > > > <mailto:martin.heimann@XXXXXXX.de>
> > > > > Web:     http://www.bgc-jena.mpg.de/~martin.heimann
> > > > > <http://www.bgc-jena.mpg.de/%7Emartin.heimann>
> > >
> > >
> > >
> > > --
> > > Erstellt mit Operas revolutionärem E-Mail-Modul: http:// 
> > > www.opera.com/mail/
> >
> > --------
> > Max-Planck-Institute for Biogeochemistry, PF 100164, D-07701 Jena,  
> > Germany
> > Street Address:  Beutenberg Campus, Hans-Knoell-Straße 10, D-07745  
> > Jena
> > Office:     +49-3641-57-6350/6301
> > SIP (VoIP):   1-747-617-6659
> > Mobile - (NEW):     +49-172-360 6519
> > Home:     +49-3641-618247
> > Fax.:     +49-3641-57-7300
> > Email:     martin.heimann@XXXXXXX.de
> > Web:     http://www.bgc-jena.mpg.de/~martin.heimann
>
> --------
> Max-Planck-Institute for Biogeochemistry, PF 100164, D-07701 Jena,  
> Germany
> Street Address:  Beutenberg Campus, Hans-Knoell-Straße 10, D-07745  
> Jena
> Office:     +49-3641-57-6350/6301
> SIP (VoIP):   1-747-617-6659
> Mobile - (NEW):     +49-172-360 6519
> Home:     +49-3641-618247
> Fax.:     +49-3641-57-7300
> Email:     martin.heimann@XXXXXXX.de
> Web:     http://www.bgc-jena.mpg.de/~martin.heimann