# Mathemathica: How to plot diagram? [duplicate]

i want to plot a diagram by this command using mathemathica. but it plotted as a beeline while it must be have a bit aberration.what is my fault in plotting?

i want to display my diagram such as this.

-

## marked as duplicate by Kuba, ciao, Yves Klett, gpap, Oleksandr R.Jun 18 '14 at 9:11

This question was marked as an exact duplicate of an existing question.

Do not use AxesOrigin which forces scale that does not match your data's deviation scale. Looks like an exact duplicate of recent question. – Kuba Jun 18 '14 at 7:56

Is this what you expected? I used Show[ ] to superimpose two ListPlot[ ] graphics; the first ListPlot has the blue data points, and the second ListPlot has a dashed red line connecting data points.

There is a more efficient way to get the same result in a single graphic using ListLinePlot, but it might take you awhile to track down the right option settings. This two graphic method always works and involves only a quick copy/paste operation and an option setting or two.

    sdata = {4.67884, 4.67874, 4.67862, 4.67850, 4.67843, 4.67845,
4.67856, 4.67872, 4.67885};

Show[
ListPlot[

sdata,

Frame -> True,

FrameLabel -> {"\[Alpha] (10^-1)", " R[\[HBar]\[Omega]] (eV)"},

PlotRange -> {{0, 10}, {4.6782, 4.6790}},

ImageSize -> 8*72,

PlotStyle -> {Darker[Blue, 0.5], PointSize[0.012]},

BaseStyle -> 16],

ListPlot[

sdata,

Frame -> True,

FrameLabel -> {"\[Alpha] (10^-1)", " R[\[HBar]\[Omega]] (eV)"},

PlotRange -> {{0, 10}, {4.6782, 4.6790}},

ImageSize -> 8*72,

PlotStyle -> {Dashed, Darker[Red, 0.5]},

Joined -> True,

BaseStyle -> 16]]

-
first thanks for your answer. i edited my question.i add a diagram that shows my expected. – hadi Jun 18 '14 at 9:58
thanks very much. very useful . – hadi Jun 27 '14 at 7:38