quote:

---

Originally posted by lkb0221

Please try the Paired Comparison Plot App

---

quote:

---

Originally posted by JoD

Hello, is there an option for getting letters for significance obtained from ANOVA by now?
I'm using OriginPro 2018b and I oftern need to visualize the significance using small letters in graphs of tables.

---

/////////////////////////////
wks$=%H;
//Select and extract significent pairs
addsheet book:=wks$ fname:=origin.otw active:=0;
layer -s 3;  //activate Mean Comparisons sheet
jj=0;
for(ii=1; ii<=wks.maxRows; ii++) {
  range sc=col(sig);  //Significance judgement
  if(sc[ii]==1) {  //select only significant pairs
    jj++;
    range aa=[wks$]3!col(1);
    %A=aa[ii]$;
    as1$=%[%A,#1];
    as2$=%[%A,#2];
    an1=%(as1$);
    an2=%(as2$);
    range bb1=[wks$]5!col(1);
    range bb2=[wks$]5!col(2);
    bb1[jj]=an1;
    bb2[jj]=an2;
  }
}
layer -s 4; //activate Ddescriptive Stats sheet
wks.col1.format=1; //change to Numeric from Text

window -a %(wks$);
layer -s 5; //pair list sheet
npairs=wks.maxRows;
layer -s 4; //activate Ddescriptive Stats sheet

//Create a column graph with SE as YErr
plotxy iy:=(1,4,6) plot:=203 ogl:=<new template:=column>;
gr$=%H;
for(ipair=1; ipair<=npairs; ipair++) {
  window -a %(wks$);
  layer -s 5;  //pair list sheet
  range bb1=[wks$]5!col(1);
  range bb2=[wks$]5!col(2);
  p1x$(ipair)=bb1[ipair];
  p2x$(ipair)=bb2[ipair];
  layer -s 5;  //pair list sheet
  range mm=[wks$]4!col(Mean);
  p1y$(ipair)=mm[p1x$(ipair)];
  p2y$(ipair)=mm[p2x$(ipair)];

  window -a %(gr$);
  if(p1y$(ipair)>=p2y$(ipair)) {
    draw -n p12$(ipair) -l {p1x$(ipair), p1y$(ipair), p2x$(ipair), p1y$(ipair)};
    p12$(ipair).vMove=1;
    label -s -a $((p1x$(ipair)+p2x$(ipair))/2) $(p1y$(ipair)) * $(p1x$(ipair))-$(p2x$(ipair));
  }
  else {
    draw -n p12$(ipair) -l {p1x$(ipair), p2y$(ipair), p2x$(ipair), p2y$(ipair)};
    p12$(ipair).vMove=1;
    label -s -a $((p1x$(ipair)+p2x$(ipair))/2) $(p2y$(ipair)) * $(p1x$(ipair))-$(p2x$(ipair));
    }
}
/////////////////////////////

barlabel(const int n, const matrix <int> mSig, vector <string> &vLabel, ...)

If n=1   vLabel={"a"};

If n>1
    run the recursive function for n-1, and get vLabel[i] from 0 to n-2
    if all the tests are no significant difference between barn and bari(i=1...n-1),
        then vLabel[n-1] will be the union of vLabel[i] (i=0...n-2)
    otherwise, vLabel[n-1] will be a new letter, and vLabel[i] (i=0...n-2) will be updated as follows: 
         if test of barn and bari is no significant difference, then vLabel[i] += vLabel[n-1]