R help - Dec 2011 - Adding a modified top axis label using LatticeExtra and theEconomist theme

Hello,

I have the following code


asTheEconomist(bwplot(ver~quans,data=z,cex=0.5,subset=abs(quans)<1.1,scales=list(x=list(tick.num=20,cex=0.55,alternating=3))
      ,xscale.components = xscale.components.CF
       ,main=list('FOOO"',cex=0.8)))


The xscale.components displays the exponent of the labels on the bottom x-axis.

Without the asTheEconomist, it displays okay. Using TheEconomist, the
top axis disappears. How can i force the top axis to appear?

Thanks for your time
Saptarshi