Of the many possible ways to do this, here is perhaps a critical and concise single-line font, followed by an explanation:
Show[Plot[#, {x,

-, # Slot ## SlotSequence, f @@@ expr - Apply[f,expr,{1}]], :
Show[Apply[Plot[
, - list . # - ( , , , 3x) ##2 - ( Sequence, Sequence[0, 4]). , , Plot[3x, {x,0,4}].
, Map:
plotter[{func_, interval__}] := Plot[func, {x, interval}]
Show[plotter /@ list]
, !