Gráfico de la Ley de Ohm si R =1 ohm

Clear[v, R, i]; v = R*i

R = 1; 
    Plot[v, {i, 0, 10}, 
      AxesLabel  ->  {"Corriente[A]",  "Tensión[V]"}, 
      PlotLabel -> "LEY DE OHM"];

Gráfico de la Ley de Ohm si R =10 y R=15ohms

\(Clear[R]; v1 = v /. R -> 10; v2 = v /. R -> 15; 
    Plot[{v1, v2}, {i, 0, 10}, 
      AxesLabel\  -> \ {"Corriente[A]", \ "Tensión[V]"}, 
      PlotLabel -> "LEY DE OHM", 
      PlotStyle\  -> 
{Dashing[{0.03, 0.03}], 
          GrayLevel[
            0]}, 
\ \ \ \ PlotLegend\  -> \ {"R=10[Ω]", \ "R=15[Ω]"}, 
      LegendPosition\  -> \ {0.5, \(-0.1\)}];\)