This is a way:
Plot[f[x] = x^3, {x, -3, 3},
PlotStyle ->
Directive[RGBColor[0.22, 0.24, 1.], AbsoluteThickness[1.945],
Arrowheads[{-.1, .1}]],
GridLines -> {Range[-3, 3, 1], Range[-27, 27, 6]},
Ticks -> {Range[-3, 3, 1], Range[-27, 27, 6]}] /. Line -> Arrow