Re: Rotate a 2D graph

*To*: mathgroup at smc.vnet.net*Subject*: [mg81655] Re: Rotate a 2D graph*From*: "David Park" <djmpark at comcast.net>*Date*: Mon, 1 Oct 2007 04:38:05 -0400 (EDT)*References*: <fdnlnp$kpk$1@smc.vnet.net>

Tom, This is how I would do it with DrawGraphics. Needs["DrawGraphics6`DrawingMaster`"] Needs["BarCharts`"] bottomticks = CustomTicks[(10 # + 1) &, {0, 0.3, 0.1, 5}]; topticks = CustomTicks[(# + 1) &, {0, 3, 1, 5}]; leftticks = {{0, "a"}, {1, "b"}, {2, "c"}, {3, "d"}}; Draw2D[ {{BarChart[{1, 2, 3, 2}, BarStyle -> Red, BarOrientation -> Vertical] // DrawGraphics, ListDraw[{1, 0.5, 3, 0.74}, Joined -> True, PlotStyle -> {Black, Thick}]} // RotateOp[-\[Pi]/2]}, Frame -> True, FrameTicks -> {{leftticks, None}, {bottomticks, topticks}}, FrameLabel -> {Style["f2", Blue], "x", "f1", None}, PlotRangePadding -> 0.05, ImageSize -> 300] -- David Park djmpark at comcast.net http://home.comcast.net/~djmpark/ <tomfabtastic at hotmail.com> wrote in message news:fdnlnp$kpk$1 at smc.vnet.net... > 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 > >