data=ExampleData[{"Geometry3D","StanfordBunny"},"VertexData"];

SetOptions[Plot,DisplayFunction->Identity]
     column0 = Transpose[data][[1]]; 
     column1 = Transpose[data][[2]]; 
     column2 = Transpose[data][[3]];
     len=Length[column0];
     b1=Join[column0,column1];
     b2=Partition[b1,len];
     b3=Transpose[b2];
     xmax=Max[column0];
     xmin=Min[column0];
     y1max=Max[column1];
     y1min=Min[column1];
     y2max=Max[column2];
     y2min=Min[column2];
     plot1=     ListPlot[b3,  
       AxesLabel->{"Res. No.","RMSD"}, 
       Ticks->{Range[0,xmax+5,50],Range[0.0, y1max+0.2 ,0.5]},
       PlotLabel->"Backbone",Axes->{0,0},PlotJoined->True, 
       PlotRange->{{0,xmax+2 }, {0., y1max +0.1 }},
       AxesStyle->{PostScript
          ["/Times-Roman findfont 13 scalefont setfont"]} ];
          s1=Join[column0,column2];
          s2=Partition[s1,len];
          s3=Transpose[s2];
          Export["a.pdf",plot1]
          Exit[]
