Maple like simple plot in Mathematica [closed]

The following graphic is from Maple

How to make a same graphic by using Mathematica

I tried:

ListPlot[{Table[EulerPhi[n], {n, 2, 40}],
Table[PrimePi[n], {n, 2, 40}]}, PlotStyle -> {Blue, Red},
Filling -> Bottom, AxesStyle -> Black, AspectRatio -> 0.45]

How to make background horizontal black lines, and same Filling lines?

=================

=================

1 Answer
1

=================

In the original Plot the x values are slightly offset from the integer values so that the markers and filling lines do not completely overlap. Also, the AxesOrigin is slightly shifted.

EDIT: Added PlotMarkers option

offset = 0.1;

ListPlot[{
Table[{n – offset, EulerPhi[n]}, {n, 2, 40}],
Table[{n + offset, PrimePi[n]}, {n, 2, 40}]},
GridLines -> {None, Range[10, 30, 10]},
GridLinesStyle -> LightGray,
PlotStyle -> {Blue, Red},
PlotMarkers -> {●, ◆},
PlotRange -> {{1.5, 40.5}, Automatic},
Filling -> Bottom,
FillingStyle -> Dotted,
AspectRatio -> 0.5,
ImageSize -> 400,
AxesOrigin -> {1.5, 0}]

  

 

Hanson How Can I change red circle to red rhombus?
– vito
Oct 5 at 21:39

  

 

@vito – see edit
– Bob Hanlon
Oct 5 at 21:51