Would you plovide som sample data to go with your code? The function dput(); see ?dput is a handy way to do this or see
BTW, I can see why you want a dual y-axis but wy the two plots? Thanks