Spectrum Plots

Reader

CreateSpectrumPlots[inputData_]:=Module[{temp,DataFPsic,DataFPsiμ,DataFPsin},
temp=Select[inputData,#[[{1}]]=={1}&];
DataFPsic=Table[temp[[ii,{3,5}]],{ii,Length[temp]}];
temp=Select[inputData,#[[{1}]]=={2}&];
DataFPsiμ=Table[temp[[ii,{4,5}]],{ii,Length[temp]}];
temp=Select[inputData,#[[{1}]]=={3}&];
DataFPsin=Table[temp[[ii,{2,5}]],{ii,Length[temp]}];
{ListPlot[DataFPsic,PlotRange->{{0,6},{-2,20}},AxesLabel->{"c","(M^2)/|M|"},PlotStyle->Purple,LabelStyle->{FontFamily->"Avenir",11,GrayLevel[0]}],ListPlot[DataFPsiμ,PlotRange->{{0,2},{-2,20}},AxesLabel->{"μ","(M^2)/|M|"},PlotStyle->Purple,LabelStyle->{FontFamily->"Avenir",11,GrayLevel[0]}],ListPlot[DataFPsin,PlotRange->{{-0.05,4.05},{-2,59}},AxesLabel->{"n","(M^2)/|M|"},PlotStyle->Purple,LabelStyle->{FontFamily->"Avenir",11,GrayLevel[0]}]}
];

inputData=Import[StringJoin[NotebookDirectory[],"RoSpectrumData.csv"]];

Example

CreateSpectrumPlots[inputData][[1]]
CreateSpectrumPlots[inputData][[2]]
CreateSpectrumPlots[inputData][[3]]