# How to add ticks without losing the default ones?

I am trying to add some ticks but I would like the default ticks on the $x$-axis to keep appearing. If I use the following they vanish:

Plot[x, {x, 0, 4}, Ticks -> {{Pi, 2}, Automatic}]

With

plot = Plot[x, {x, 0, 4}]

based on this answer:

ticks = Charting`FindTicks[{0, 1}, {0, 1}] @@ PlotRange[plot][[1]];
newticks = {{Pi, Pi}}~Join~ticks;
Show[plot, Ticks -> {newticks, Automatic}]

• could you edit it including new ticks also along the y-axis, such as Pi? – Andrea G May 7 '17 at 11:01
• @AndreaG That's easy and you can do it yourself: change [[1]] to [[2]], make some newticks2 like in the answer, and do Ticks -> {newticks, newticks2}. – corey979 May 7 '17 at 11:30
• what if I wanted only those new ticks to be red? – Andrea G Nov 27 '17 at 21:01
• Replace {Pi, Pi} with {Pi, Style[Pi, Red]}. – corey979 Nov 27 '17 at 22:32
• in this case it seems to me that only the text Pi gets red, but not the tick. Do you have any further suggestion? – Andrea G Nov 28 '17 at 12:59