Names Default to Here(1); dt = open("$Sample_Data/Big Class.jmp"); onew = dt << Oneway( Ignore Platform Preferences(1), Y( :weight ), X( :age ), Points( 0 ), Box Plots( 0 ), Mean Lines( 0 ), Grand Mean(0), Comparison Circles( 0 ), X Axis Proportional( 1 ), Points Jittered( 1 ) ); dtsum = dt << summary( Group(:age), Mean(:weight) ); /* Note that dtsum could be sorted by a statistics to cumulative count then the order could be used for value ordering, and then plot create onew and create the filled boxes */ dtsum << New Column("CSUM", formula(If(row()==1, :N Rows, lag(:CSUM,1) + :N Rows)) ); dtsum << color By Column(:age); pstr = "Path( [^x0^ ^ym^ 1, ^x0^ ^xb^ 2, ^x1^ ^xb^ 2, ^x1^ ^ym^ -2],1)"; cstr ="FillColor(^clr^)"; pthList ={}; report(onew)[AxisBox(1)] << {Inc( 20 ), Minor Ticks( 1 ), Label Row( {Show Major Grid( 1 ), Show Minor Grid( 1 )} )} ; ym = report(onew)[AxisBox(1)]<