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