# 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

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