Plot[(4/π) Sin[x], {x, -2 π, 2  π},  
        PlotStyle  ->  RGBColor[1, 0, 0]];