Tons.
Here's some code. I removed the integral part as I had to manually adjust that one and it resulted in messy code when I converted it to raw format to display here.
Code:
myText = Graphics[{Blue,
Text[Style["This is a test", 15,
FontFamily -> "Monotype Corsiva"],
{2.4, 2}]}];
Show[{Plot[x^2, {x, 1, 5},
Ticks -> {{{1, 1}, {2, 2},
{Pi, Style[Pi, 40]}}, Automatic},
TicksStyle -> Directive[Red, 20]],
myText}, PlotRange ->
{{0, 5}, {0, 5}}, PlotLabel ->
Style["f(x)=\!\(\*SuperscriptBox[\(x\)\
, \(2\)]\)", 20, Darker[Green]]]