В вашем исходном коде опция PlotStyle не повлияет на символы маркера, поэтому вы можете не указывать ее.Вместо этого измените свой параметр PlotMarkers на следующее:
PlotMarkers -> With[{markerSize = 0.04},
{Graphics[{Lighter[Red, #], Disk[]}], markerSize} & /@ Range[0.5, 1, 0.1]]
Это пока не будет иметь желаемого эффекта, пока вы не замените список рассылки на:
Map[List, dacount]
Путем увеличения глубиныТаким образом, для списка точек каждой точке назначается собственный стиль маркера из списка в PlotMarkers.Итак, окончательный код:
ListPlot[Map[List, dacount], AxesOrigin -> {-1, 0},
PlotMarkers ->
With[{markerSize =
0.04}, {Graphics[{Lighter[Red, #], Disk[]}], markerSize} & /@
Range[0.5, 1, 0.1]], Filling -> Axis,
FillingStyle -> Opacity[0.8], PlotRange -> {{-1, 4.5}, {0, 192}}]