MathGroup Archive 2007

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

Search the Archive

Rotate a 2D graph

  • To: mathgroup at smc.vnet.net
  • Subject: [mg81647] Rotate a 2D graph
  • From: tomfabtastic at hotmail.com
  • Date: Sun, 30 Sep 2007 04:04:06 -0400 (EDT)

Hello,

I would like to rotate the below graph so that the FrameLabel "f1"
reads at the top of the graph and "f2" is at the bottom. I want to
keep everything as is, but rotate the graph 90 degrees clockwise. Any
ideas ?

Needs["BarCharts`"]
aa = BarChart[{1, 2, 3, 2}, BarStyle -> Red,
   BarOrientation -> Vertical];
bb = ListPlot[{1, 0.5, 3, 0.74}, Joined -> True,
   PlotStyle -> {Black, Thick}];
comp = Show[{aa, bb}, PlotLabel -> "Plotting together", Frame -> True,
   FrameLabel -> {x, f1, None, StyleForm[f2, FontColor -> Blue]},
  FrameTicks -> {{{1, "a"}, {2, "b"}, {3, "c"}, {4, "d"}}, {1, 2, 3},
    None, Table[{y, Style[N[y/10], Blue]}, {y, 0, 3, 1}]}]

Thanks,
Tom



  • Prev by Date: Re: git + Mathematica = corrupt notebooks
  • Next by Date: 3D graphics resize unintentionally when rotated
  • Previous by thread: Re: Flat colour in RegionPlot; millions of little triangles
  • Next by thread: 3D graphics resize unintentionally when rotated