R help - Mar 2010 - How to create a line and bar panel chart with two different axes?

I need to create a line and bar panel chart with two different axes. I tried
in lattice but couldn't get it worked. Here is my code:

data(barley)
barchart(yield ~ variety | site, data = barley,
              groups = year, layout = c(1,6), stack = F, 
              auto.key = list(points = FALSE, rectangles = TRUE, space
"right"),
              ylab = "Barley Yield (bushels/acre)",
              scales = list(x = list(rot = 45)))

Suppose now I need to add two lines in each panel to show the cost (10^3
dollars) of each type (Svansota,....,Trebi) at different locations
(Waseca,..., Grand Rapids) for 1931 and 1932.

Can any body tell me how I should do to create this chart with two different
axes (one is yield, the other is cost)?

Thank you in advance!

Doug
-- 
View this message in context:
http://n4.nabble.com/How-to-create-a-line-and-bar-panel-chart-with-two-different-axes-tp1577173p1577173.html
Sent from the R help mailing list archive at Nabble.com.

On Wed, Mar 3, 2010 at 12:35 PM, DougNiu <dhua at umn.edu>
wrote:
>
> I need to create a line and bar panel chart with two different axes. I
tried
> in lattice but couldn't get it worked. Here is my code:
>
> data(barley)
> barchart(yield ~ variety | site, data = barley,
> ? ? ? ? ? ? ?groups = year, layout = c(1,6), stack = F,
> ? ? ? ? ? ? ?auto.key = list(points = FALSE, rectangles = TRUE, space >
"right"),
> ? ? ? ? ? ? ?ylab = "Barley Yield (bushels/acre)",
> ? ? ? ? ? ? ?scales = list(x = list(rot = 45)))
>
> Suppose now I need to add two lines in each panel to show the cost (10^3
> dollars) of each type (Svansota,....,Trebi) at different locations
> (Waseca,..., Grand Rapids) for 1931 and 1932.
>
> Can any body tell me how I should do to create this chart with two
different
> axes (one is yield, the other is cost)?
A couple of relevant examples:

http://lmdvr.r-forge.r-project.org/figures/figures.html?chapter=05;figure=05_13;
http://lmdvr.r-forge.r-project.org/figures/figures.html?chapter=08;figure=08_06;

-Deepayan