Message Boards

WOLFRAM COMMUNITY

4545 Views

4 Replies

0 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Physics Mathematica

Problem with Color of Plot

Sarmed Hussain

Posted 10 years ago

Hello, I have a problem regarding the color of my plots. This is my code. You can find the used data in the attachment. dataOffOffOff = Import["Final/Resonance/(03.08.2015)(12-30-46).FreqScan.Data.txt", "Table"]; dataOnOffOff = Import["Final/Resonance/(03.08.2015)(13-00-26).FreqScan.Data.txt", "Table"]; << PlotLegends` << Errorbarplots` << Errorbarlogplots` OffOffOff = Table[{dataOffOffOff[[i, {1, 2}]], ErrorBar[dataOffOffOff[[i, 3]]]}, {i, 2, Length[dataOffOffOff]}]; OnOffOff = Table[{dataOnOffOff[[i, {1, 2}]], ErrorBar[dataOnOffOff[[i, 3]]]}, {i, 2, Length[dataOnOffOff]}]; OnOffOffPlot = LangPlot = ErrorListLogLinearPlot[{OnOffOff}, PlotLegends -> {"OnOffOff"}, PlotRange -> Full, Frame -> True, FrameLabel -> {"Frequenz [Hz]", "Amplitude [mV]"}, LabelStyle -> {FontFamily -> "Times New Roman", 12, GrayLevel[0]}, ImageSize -> Medium, PlotStyle -> {Thickness[0.002], PointSize[0.007]}, Joined -> True, GridLines -> Automatic, GridLinesStyle -> Directive[Dotted, GrayLevel[0.80], Thickness[0.002]]] As you see I have set a certain thickness and point size for my data points. However if change the color the standard settings are used and the datapoints appear thicker: OnOffOffPlot = LangPlot = ErrorListLogLinearPlot[{OnOffOff}, PlotLegends -> {"OnOffOff"}, PlotRange -> Full, Frame -> True, FrameLabel -> {"Frequenz [Hz]", "Amplitude [mV]"}, LabelStyle -> {FontFamily -> "Times New Roman", 12, GrayLevel[0]}, ImageSize -> Medium, PlotStyle -> {Green, Thickness[0.002], PointSize[0.007]}, Joined -> True, GridLines -> Automatic, GridLinesStyle -> Directive[Dotted, GrayLevel[0.80], Thickness[0.002]]] Besides if i want to plot two datasets in one diagram, only the first dataset adapts the chosen plotstyle. OffOffOffPlot = ErrorListLogLinearPlot[{OnOffOff, OffOffOff}, PlotLegends -> {"OnOffOff", "OffOffOff"}, PlotRange -> Full, Frame -> True, FrameLabel -> {"Frequenz [Hz]", "Amplitude [mV]"}, LabelStyle -> {FontFamily -> "Times New Roman", 12, GrayLevel[0]}, ImageSize -> Medium, PlotStyle -> {Thickness[0.002], PointSize[0.007]}, Joined -> True, GridLines -> Automatic, GridLinesStyle -> Directive[Dotted, GrayLevel[0.80], Thickness[0.002]]] Attachments:

Hello,

I have a problem regarding the color of my plots. This is my code. You can find the used data in the attachment.

dataOffOffOff = Import["Final/Resonance/(03.08.2015)(12-30-46).FreqScan.Data.txt", "Table"];
dataOnOffOff = Import["Final/Resonance/(03.08.2015)(13-00-26).FreqScan.Data.txt", "Table"];

<< PlotLegends`
<< Errorbarplots`
<< Errorbarlogplots`

OffOffOff = Table[{dataOffOffOff[[i, {1, 2}]], ErrorBar[dataOffOffOff[[i, 3]]]}, {i, 2, Length[dataOffOffOff]}];
OnOffOff = Table[{dataOnOffOff[[i, {1, 2}]], ErrorBar[dataOnOffOff[[i, 3]]]}, {i, 2, Length[dataOnOffOff]}];

OnOffOffPlot = 
 LangPlot = ErrorListLogLinearPlot[{OnOffOff}, PlotLegends -> {"OnOffOff"}, 
   PlotRange -> Full, Frame -> True, FrameLabel -> {"Frequenz [Hz]", "Amplitude [mV]"}, 
   LabelStyle -> {FontFamily -> "Times New Roman", 12, GrayLevel[0]}, ImageSize -> Medium, 
   PlotStyle -> {Thickness[0.002], PointSize[0.007]}, Joined -> True, GridLines -> Automatic, 
   GridLinesStyle -> Directive[Dotted, GrayLevel[0.80], Thickness[0.002]]]

enter image description here

As you see I have set a certain thickness and point size for my data points. However if change the color the standard settings are used and the datapoints appear thicker:

OnOffOffPlot = 
 LangPlot = ErrorListLogLinearPlot[{OnOffOff}, PlotLegends -> {"OnOffOff"}, 
   PlotRange -> Full, Frame -> True, FrameLabel -> {"Frequenz [Hz]", "Amplitude [mV]"}, 
   LabelStyle -> {FontFamily -> "Times New Roman", 12, GrayLevel[0]}, ImageSize -> Medium, 
   PlotStyle -> {Green, Thickness[0.002], PointSize[0.007]}, Joined -> True, GridLines -> Automatic, 
   GridLinesStyle -> Directive[Dotted, GrayLevel[0.80], Thickness[0.002]]]

enter image description here

Besides if i want to plot two datasets in one diagram, only the first dataset adapts the chosen plotstyle.

OffOffOffPlot = ErrorListLogLinearPlot[{OnOffOff, OffOffOff}, 
  PlotLegends -> {"OnOffOff", "OffOffOff"}, PlotRange -> Full, 
  Frame -> True, FrameLabel -> {"Frequenz [Hz]", "Amplitude [mV]"}, 
  LabelStyle -> {FontFamily -> "Times New Roman", 12, GrayLevel[0]}, 
  ImageSize -> Medium, PlotStyle -> {Thickness[0.002], PointSize[0.007]}, Joined -> True, 
  GridLines -> Automatic, GridLinesStyle -> Directive[Dotted, GrayLevel[0.80], Thickness[0.002]]]

enter image description here

POSTED BY: Sarmed Hussain

4 Replies

Sort By:

David Keith

Posted 10 years ago

Sarmed, I do not find Errorbarlogplots among the packages distributed with version 10.2.

POSTED BY: David Keith

Sarmed Hussain

Posted 10 years ago

Hi David, I'm sorry I should have noted that you can download the package from here: http://library.wolfram.com/infocenter/MathSource/6747/

POSTED BY: Sarmed Hussain

David Keith

Posted 10 years ago

Hi Sarmed, The first problem can be corrected by combining the styles using Directive: OnOffOffPlot = LangPlot = ErrorListLogLinearPlot[{OnOffOff}, PlotLegends -> {"OnOffOff"}, PlotRange -> Full, Frame -> True, FrameLabel -> {"Frequenz [Hz]", "Amplitude [mV]"}, LabelStyle -> {FontFamily -> "Times New Roman", 12, GrayLevel[0]}, ImageSize -> Medium, PlotStyle -> Directive[Green, Thickness[0.002], PointSize[0.007]], Joined -> True, GridLines -> Automatic, GridLinesStyle -> Directive[Dotted, GrayLevel[0.80], Thickness[0.002]]] The second problem can be corrected by specifying the styles for the two data sets seperately as two lists within a list. OffOffOffPlot = ErrorListLogLinearPlot[{OnOffOff, OffOffOff}, PlotLegends -> {"OnOffOff", "OffOffOff"}, PlotRange -> Full, Frame -> True, FrameLabel -> {"Frequenz [Hz]", "Amplitude [mV]"}, LabelStyle -> {FontFamily -> "Times New Roman", 12, GrayLevel[0]}, ImageSize -> Medium, PlotStyle -> {{Thickness[0.002], PointSize[0.007]}, {Thickness[0.002], PointSize[0.007]}}, Joined -> True, GridLines -> Automatic, GridLinesStyle -> Directive[Dotted, GrayLevel[0.80], Thickness[0.002]]] Kind regards, David

Hi Sarmed,

The first problem can be corrected by combining the styles using Directive:

OnOffOffPlot = 
 LangPlot = 
  ErrorListLogLinearPlot[{OnOffOff}, PlotLegends -> {"OnOffOff"}, 
   PlotRange -> Full, Frame -> True, 
   FrameLabel -> {"Frequenz [Hz]", "Amplitude [mV]"}, 
   LabelStyle -> {FontFamily -> "Times New Roman", 12, GrayLevel[0]}, 
   ImageSize -> Medium, 
   PlotStyle -> Directive[Green, Thickness[0.002], PointSize[0.007]], 
   Joined -> True, GridLines -> Automatic, 
   GridLinesStyle -> 
    Directive[Dotted, GrayLevel[0.80], Thickness[0.002]]]

enter image description here

The second problem can be corrected by specifying the styles for the two data sets seperately as two lists within a list.

OffOffOffPlot = 
 ErrorListLogLinearPlot[{OnOffOff, OffOffOff}, 
  PlotLegends -> {"OnOffOff", "OffOffOff"}, PlotRange -> Full, 
  Frame -> True, FrameLabel -> {"Frequenz [Hz]", "Amplitude [mV]"}, 
  LabelStyle -> {FontFamily -> "Times New Roman", 12, GrayLevel[0]}, 
  ImageSize -> Medium, 
  PlotStyle -> {{Thickness[0.002], 
     PointSize[0.007]}, {Thickness[0.002], PointSize[0.007]}}, 
  Joined -> True, GridLines -> Automatic, 
  GridLinesStyle -> 
   Directive[Dotted, GrayLevel[0.80], Thickness[0.002]]]

enter image description here