I have the following code:

`q := 1.6*10^-19; me := 9.1*10^-31; (* Free electron rest mass in kg *) h := 6.63*10^-34; (* Reduced Planck's constant in J.s *) kb := 1.38*10^-23;(* Boltzmann constant in J/K *) LogPlot[Abs[Jschottky[V, 77]], {V, -0.5, 0.5}, PlotRange -> All, Frame -> True, FrameLabel -> {"Voltage (V)", "\!\(\*FractionBox[\(J\), SuperscriptBox[\(T\), \(3/2\)]]\)"}, BaseStyle -> {FontSize -> 15}, PlotStyle -> {Thick, Red} , AspectRatio -> GoldenRatio, ImageSize -> 400, FrameStyle -> Black, FrameTicks -> {{{#, Superscript[10, Log10@#]} & /@ ({10^-21, 10^-11, 10^-1, 10^9, 10^19}), None}, {Automatic, None}}] Plot[Abs[Jschottky[V, 77]], {V, -0.5, 0.5}, PlotRange -> All, Frame -> True, FrameLabel -> {"Voltage (V)", "\!\(\*FractionBox[\(J\), SuperscriptBox[\(T\), \(3/2\)]]\)"}, BaseStyle -> {FontSize -> 15}, PlotStyle -> {Thick, Blue} , AspectRatio -> GoldenRatio, ImageSize -> 400, FrameStyle -> Black] `

I get the following results:

Now I want to plot them on the same plot with the logplot on the left y axis and the linear plot on the right yaxis. What should I do? Also any recommendations for a good grayscale plot of the same?