I am currently working on my summer project for which I created the following plot with Mathematica:

Now I am not 100% satisfied with the results and one of my professors recommended PGF and TikZ. The problem is I don't know anything about PGF and TikZ and I have to submit my project in 1.5 months.
So should I try to learn how to create beautiful plots with PGF and TikZ (i.e. is it possible to learn it in a week or so?) or should I just stick with my Mathematica plot? And are there even other alternatives?
edit:
As a few people have requested it, here is the Mathematica code:
max = 102000;
psi[x0_, y0_] := Module[{x = x0, y = y0, n = 2, c = 0},
Do[If[Max[First[Transpose[FactorInteger[n]]]] <= y, c++]; n++;, {x}]; c]
data = Parallelize[Table[{n, psi[n, Ceiling[Sqrt[n]]]/n*100}, {n, 2, max, 1000}]];
p1 = Plot[{PrimePi[Sqrt[n]]/PrimePi[n]*100}, {n, 2, max}, PlotRange -> {{0, max}, {0, 55}},
PlotStyle -> {Gray, Thick}, Epilog -> {Inset[Style["\[Pi](\!\(\*SqrtBox[\(n\)]\))/\[Pi](n)",
FontSize -> 13, Bold], {40000, 7}], Inset[Style["\[Psi](n,\!\(\*SqrtBox[\(n\)]\))/n",
FontSize -> 13, Bold], {max/2, 43}]}];
p2 = ListLinePlot[data, PlotRange -> {{0, max}, {0, 100}}, PlotStyle -> {Thick, Gray}];
p3 = Plot[{30}, {n, 2, max}, PlotRange -> {{0, max}, {0, 100}}, PlotStyle -> {Gray, Dashed}];
Show[p1, p2, p3, AxesLabel -> Table[Text[Style[{"n", "%"}[[i]], FontSize -> 13, Bold, Italic]],
{i, 1, 2}], Ticks -> {Table[1/10*(max - 2000)*k, {k, 0, 9, 3}], Table[10 k, {k, 1, 10}]}]
LaTeXyou can learn enoughpgfplotsfunctionality in a week or so to do a 1.5 month project - particularly with help from this site - but I don't know whether TeX is powerful/convenient enough for the actual calculations you need. Those may call for mathematica, in which case the time invested in TeX may not pay off. – Ethan Bolker Jul 13 '13 at 16:22pgfplots, with the proviso mentioned by @EthanBolker than you may have a little 'fun' with the calculations.gnuplotcan help out with that, again depending on calculation complexity. – Joseph Wright Jul 13 '13 at 16:35Mathematica. 2) produce a file with the data and usepgfplotsto plot it – Red Jul 13 '13 at 17:21pgfplotscan not compete with Mathematica. That is not the point though, I export all complicated data to ascii files and use pgfplots to create the plots. Just try it out for an afternoon or so, it is not that complicated and the manual is great. – Alexander Jul 13 '13 at 17:21Mathematicaar rather disappointing, especially for the recent version (>5).TikZ, with or withoutpgfplotsis surely the best solution to provide nice looking graphs, but you can't make advanced calculations -- as you apparently need -- with it.An intermediate solution, if you don't want to invest the time and effort to learn, is to use
– Jhor Jul 13 '13 at 17:43gnuplotto plotdata exported fromMathematica.Mathematicacode? Why not to put it too? If it isn't too long, of course. – m0nhawk Jul 13 '13 at 18:27You can have a Look at this example to have an idea about the plotting of tabulated data. – Jhor Jul 13 '13 at 20:46