Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: rotate frametick labels

  • To: mathgroup at smc.vnet.net
  • Subject: [mg58977] Re: rotate frametick labels
  • From: Carsten Siegmund <carsten.siegmund at em.uni-karlsruhe.de>
  • Date: Tue, 26 Jul 2005 04:01:42 -0400 (EDT)
  • Organization: University of Karlsruhe, Germany
  • References: <dc1su6$4up$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

David,

thanks for your solution. It already looks like it should look like, 
but my arrays are too big, so that it seems quite complicated to define 
all the coordinates for labels manually.

I analyse communication matrices each of the size between 60x60 and 
100x100 and the labels on the x-axis indicate user-IDs (maximum length 5 
characters). My code looks like that:

Show[Graphics[RasterArray[eigVectorsMatrixAdjCRCol]],
   Frame -> True,
   FrameTicks -> {frameDes, frameEigValuesMatrixAdjCRN,
     None, frameEigValuesMatrixAdjCRCumFreq},
    RotateLabel -> False,
   FrameLabel -> {"Userid", DisplayForm[SubscriptBox["λ", "j"]], None,
       DisplayForm[FractionBox[RowBox[{UnderscriptBox["Σ", "m<N"], \
SubsuperscriptBox["λ", "j", "2"]}], RowBox[{UnderscriptBox["Σ", "N"],
    SubsuperscriptBox["λ", "j", "2"]}]]]}]

The tables I use contain this data:
eigVectorsMatrixAdjCRCol -> colour of each Eigenvector value (Hue[...])
frameDes -> matrix description (user-IDs, 5 characters)
frameEigValuesMatrixAdjCRN -> Eigenvalues
frameEigValuesMatrixAdjCRCumFreq -> cumulated Eigenvalues

Is there no way to make the FrameTicks-function work?

Regards,
Carsten


David Park wrote:
> Carsten,
> 
> How about something like this.
> 
> Show[Graphics[
>       {Rectangle[{0, 0}, {2, 1},
>           Show[Graphics[RasterArray[{{Hue[0.5], Hue[1]}}]],
>             AspectRatio -> Automatic, DisplayFunction -> Identity]],
>         Text["some text", {0.5, -0.05}, {0, 0.7}, {0, 1}],
>         Text["some more text", {1.5, -0.05}, {0, 0.7}, {0, 1}],
>         Text["Text Labeled Raster Array", {1, 1.1}]
>         }],
>     PlotRange -> {{-0.1, 2.1}, {-0.5, 1.3}},
>     AspectRatio -> Automatic,
>     Background -> Linen,
>     ImageSize -> 450
>     ];
> 
> The labels might be better if they were at a slant, but then it takes some
> finicky work to get them positioned correctly.
> 
> This kind of labeling isn't too great because it takes up a lot of space and
> there might be a better way if we knew what the labeling actually was.
> 
> David Park
> djmp at earthlink.net
> http://home.earthlink.net/~djmp/
> 
> 
> From: Carsten Siegmund [mailto:carsten.siegmund at em.uni-karlsruhe.de]
To: mathgroup at smc.vnet.net
> 
> 
> Hi!
> 
> I like to plot a raster array but for its elements it does not make
> sense to be described by numbers. Therefore I've labeled the frameticks
> manually and tried to rotate the labels to avoid overwriting for large
> arrays.
> 
> e.g.:
> 
> Show[Graphics[RasterArray[{{Hue[0.5], Hue[1]}}]],
>    Frame -> True,
>    FrameTicks -> {{{0.5, StyleForm["some text",
>                                    FontVariations->{RotationAngle->90}]},
>                    {1.5, StyleForm["some more text",
>                                    FontVariations->{RotationAngle->90}]},
>                   None,None,None}
> ]
> 
> I don't get any error messages but the plot looks the same as without
> the use of StyleForm[...]. Any suggestions?
> 
> Thanks,
> Carsten
> 
> [Mathematica 5.0, Windows XP Prof.]
> 
> 


  • Prev by Date: Re: Re: Mathematica 5.2: The 64-bit and multicore release
  • Next by Date: Re: Interpolation problem, optimization algorithms
  • Previous by thread: Re: rotate frametick labels
  • Next by thread: Re: rotate frametick labels