package Ġkr avis . gg plot Ċ Ċ import Ġkr ang l .* Ċ import Ġkr avis .* Ċ import Ġkr avis . A est hetic .* Ċ import Ġkr avis . demo . I ris Data . Se pal Length Ċ import Ġkr avis . demo . I ris Data . Se pal Width Ċ import Ġkr avis . plot Ċ import Ġkr avis . ns helper . plot Ċ import Ġorg . junit . Test Ċ import Ġjava . io . File Ċ import Ġkotlin . math . round ToInt ĊĊ Ċ @ Suppress (" UNUSED _ EXPRESSION ") Ċ /** Ċ Ġ* Ġ@ author ĠHol ger ĠBrand l Ċ Ġ*/ Ċ class ĠCore Re gress ions Ġ: ĠAbstract Svg Plot Regression () Ġ{ ĊĊĊĠĠĠ Ġoverride Ġval ĠtestData Dir : ĠFile ĊĠĠĠĠĠĠĠ Ġget () Ġ= ĠFile (" src / test / resources / kr avis ") ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` empty Ġplot Ġwithout Ġaxes `() Ġ{ ĊĠĠĠĠĠĠĠ Ġir is Data . plot (). apply Ġ{ Ġassert Expected ( this ) Ġ} ĊĠĠĠ Ġ} ĊĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` empty Ġplot Ġwith Ġaxes `() Ġ{ ĊĠĠĠĠĠĠĠ Ġir is Data . plot ( x Ġ= Ġ" Species ", Ġy Ġ= Ġ" Pet al . Length "). apply Ġ{ Ġassert Expected ( this ) Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` it Ġshould Ġde parse Ġcollections Ġand Ġallow Ġfor Ġaxis Ġoptions `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġbase Plot Ġ= Ġsleep Patterns . plot ( ĊĠĠĠĠĠĠĠĠĠĠĠ Ġx Ġ= Ġ{ Ġbrain wt Ġ}, ĊĠĠĠĠĠĠĠĠĠĠĠ Ġy Ġ= Ġ{ Ġbody wt Ġ}, ĊĠĠĠĠĠĠĠĠĠĠĠ Ġalpha Ġ= Ġ{ Ġsleep _ total Ġ} ĊĠĠĠĠĠĠĠ Ġ) ĊĊĠĠĠĠĠĠĠ Ġ// Ġadd Ġlayers ĊĠĠĠĠĠĠĠ Ġbase Plot . geom Point () ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. scale X Log 1 0 () ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. scale Y Log 1 0 (" labels " Ġto Ġ" comma ". as R Expression ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. apply Ġ{ Ġassert Expected ( this ) Ġ} ĊĠĠĠĠĠĠĠ Ġ// ĠĠĠĠĠĠĠĠĠĠĠ Ġ. show () ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` support Ġcustom Ġr Ġp reamble Ġfor Ġrendering `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġpre ab m le Ġ= Ġ""" ĊĠĠĠĠĠĠĠ Ġdev tools :: source _ url (" https :// git . io / f Ai QN ") ĊĠĠĠĠĠĠĠ Ġ""" ĊĊĠĠĠĠĠĠĠ Ġir is Data . plot ( x Ġ= Ġ" Species ", Ġy Ġ= Ġ" Se pal . Length ", Ġfill Ġ= Ġ" Species ") ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. add P reamble ( pre ab m le ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. add Custom (""" geom _ flat _ vi olin ( scale Ġ= Ġ" count ", Ġtrim Ġ= ĠFALSE ) """) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ// Ġtodo ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ// ĠĠĠĠĠĠĠĠĠĠĠ Ġ. stat _ summary ( fun . data Ġ= Ġmean _ sdl , Ġfun . args Ġ= Ġlist ( mult Ġ= Ġ 1 ), Ġgeom Ġ= Ġ" po intr ange ", Ġposition Ġ= Ġposition _ n udge ( 0 . 0 5 )) Ġ+ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. geom Dot plot ( bin axis Ġ= Ġ" y ", Ġdot size Ġ= Ġ 0 . 5 , Ġstack dir Ġ= Ġ" down ", Ġbin Width Ġ= Ġ 0 . 1 , Ġposition Ġ= ĠPosition N udge (- 0 . 0 2 5 )) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ// ĠĠĠĠĠĠĠĠĠĠĠ Ġ. geom Point () ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. theme ( legend Position Ġ= Ġ" none ") ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. labs ( x Ġ= Ġ" Species ", Ġy Ġ= Ġ" Se pal Ġlength Ġ( cm )") ĊĊĠĠĠĠĠĠĠĠĠĠĠ Ġ// ĠĠĠĠĠĠĠĠĠĠĠ Ġ. show () ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. apply Ġ{ Ġassert Expected ( this ) Ġ} ĊĠĠĠ Ġ} ĊĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` different Ġdata Ġoverlay s `() Ġ{ ĊĠĠĠĠĠĠĠ Ġ// Ġwe Ġwould Ġneed Ġa Ġsummer ize Each / All Ġhere ĊĠĠĠĠĠĠĠ Ġval Ġir is Summary Ġ= Ġir is Data . groupBy (" Species "). sum mar ize ( ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ" Pet al . Length . Mean " Ġto Ġ{ Ġit [" Pet al . Length "]. mean () Ġ}, ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ" Se pal . Length . Mean " Ġto Ġ{ Ġit [" Se pal . Length "]. mean () Ġ} ĊĠĠĠĠĠĠĠ Ġ) ĊĊĠĠĠĠĠĠĠ Ġval Ġplot Ġ= Ġir is Data . plot (" Se pal . Length " Ġto Ġx , Ġ" Pet al . Length " Ġto Ġy , Ġ" Species " Ġto Ġcolor ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. geom Point ( alpha Ġ= Ġ 0 . 3 ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. geom Point ( data Ġ= Ġir is Summary , Ġmapping Ġ= ĠA es (" Se pal . Length . Mean ", Ġ" Pet al . Length . Mean "), Ġshape Ġ= Ġ 4 , Ġstroke Ġ= Ġ 4 ) ĊĊĠĠĠĠĠĠĠ Ġ// ĠĠĠĠĠĠĠ Ġplot . show () ĊĠĠĠĠĠĠĠ Ġassert Expected ( plot ) ĊĠĠĠĠĠĠĠ Ġ// ĠĠĠĠĠĠĠ ĠThread . sleep ( 1 0 0 0 0 ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ// ĊĠĠĠ Ġ// ĠL ater ĊĠĠĠ Ġ// ĊĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtest Fixed Theme () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġplot Ġ= Ġir is Data . plot ( Se pal Length Ġto Ġx , ĠSep al Width Ġto Ġy ). theme BW () Ġ// . show () ĊĠĠĠĠĠĠĠ Ġassert Expected ( plot ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` theme Ġadjust ments `() Ġ{ ĊĊĠĠĠĠĠĠĠ Ġ""" ĊĠĠĠĠĠĠĠ Ġplot Ġ<- Ġplot ( mp g , Ġaes ( dis pl , Ġh wy )) Ġ+ Ġgeom _ point () ĊĊĠĠĠĠĠĠĠ Ġplot Ġ+ Ġtheme ( ĊĠĠĠĠĠĠĠĠĠĠĠ Ġpanel . background Ġ= Ġelement _ blank (), ĊĠĠĠĠĠĠĠĠĠĠĠ Ġaxis . title . y Ġ= Ġelement _ blank (), ĊĠĠĠĠĠĠĠĠĠĠĠ Ġaxis . text Ġ= Ġelement _ text ( size = 2 0 , Ġcolor =" red ") ĊĠĠĠĠĠĠĠ Ġ""" ĊĊĠĠĠĠĠĠĠ Ġval Ġbase Plot Ġ= Ġmp g Data . plot (" dis pl " Ġto Ġx , Ġ" hw y " Ġto Ġy ). geom Point () ĊĊĠĠĠĠĠĠĠ Ġval Ġplot Ġ= Ġbase Plot Ċ // ĠĠĠĠĠĠĠĠĠĠĠ Ġ. theme ( panel Background Ġ= ĠElement Text Blank (), Ġaxis Text Ġ= ĠElement Text (" size = 2 0 , Ġcolor =' red ' ")) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. theme ( panel Background Ġ= ĠElement Text Blank (), Ġaxis Text Ġ= ĠElement Text ( size Ġ= Ġ 2 0 , Ġcolor Ġ= ĠR Color . red )) ĊĊĠĠĠĠĠĠĠ Ġassert Expected ( plot , Ġ" axis ") ĊĊĠĠĠĠĠĠĠ Ġ// ĠĠĠĠĠĠĠ ĠDesktop . get Desktop (). open ( plot . render ()) ĊĊĊĠĠĠĠĠĠĠ Ġ""" ĊĠĠĠĠĠĠĠ Ġplot Ġ+ Ġtheme ( ĊĠĠĠĠĠĠĠ Ġaxis . line Ġ= Ġelement _ line ( arrow Ġ= Ġarrow ()) ĊĠĠĠĠĠĠĠ Ġ) ĊĠĠĠĠĠĠĠ Ġ""" ĊĊĠĠĠĠĠĠĠ Ġval Ġplot 2 Ġ= Ġbase Plot . theme ( axis Line Ġ= ĠElement Line (" arrow = arrow () ")) ĊĠĠĠĠĠĠĠ Ġ// ĠĠĠĠĠĠĠ Ġplot 2 . open () ĊĠĠĠĠĠĠĠ Ġ// ĠĠĠĠĠĠĠ Ġplot . open () ĊĠĠĠ Ġ} ĊĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` convert Ġcontinues Ġvariable Ġto Ġdiscrete `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġplot Ġ= Ġir is Data . addColumn (" Approx . SL ") Ġ{ Ġit [" Se pal . Length "]. map < Double > Ġ{ Ġit . round ToInt () Ġ} Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. plot ( x Ġ= Ġ" Approx . SL ". as Discrete Variable , Ġy Ġ= Ġ" Se pal . Width ", Ġcolor Ġ= Ġ" Species ", Ġsize Ġ= Ġ" Pet al . Width ") ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. geom Point ( alpha Ġ= Ġ. 4 ) ĊĊĠĠĠĠĠĠĠ Ġ// ĠĠĠĠĠĠĠ Ġplot . show () ĊĠĠĠĠĠĠĠ Ġassert Expected ( plot ) ĊĠĠĠ Ġ} ĊĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` manip ulate Ġleg ends `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġm ss leep Ġ= Ġsleep Data . addColumn (" rem _ pro portion ") Ġ{ Ġit [" sleep _ rem "] Ġ/ Ġit [" sleep _ total "] Ġ} ĊĠĠĠĠĠĠĠ Ġ// ĠAn alyze Ġcorrelation ĊĊĠĠĠĠĠĠĠ Ġval Ġplot Ġ= Ġm ss leep . plot ( x Ġ= Ġ" sleep _ total ", Ġy Ġ= Ġ" rem _ pro portion ", Ġcolor Ġ= Ġ" v ore ", Ġsize Ġ= Ġ" brain wt ") ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. geom Point ( alpha Ġ= Ġ 0 . 7 ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. guides ( size Ġ= ĠLegend Type . none ) Ċ Ċ // ĠĠĠĠĠĠĠ Ġplot . show () ĊĠĠĠĠĠĠĠ Ġassert Expected ( plot ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` facet Ġby Ġwrap `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġplot Ġ= Ġsleep Data . plot ( x Ġ= Ġ" sleep _ total ", Ġy Ġ= Ġ" brain wt ", Ġcolor Ġ= Ġ" v ore ") ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. geom Point ( alpha Ġ= Ġ 0 . 7 ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. guides ( size Ġ= ĠLegend Type . none ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. facet Wrap (" v ore ") ĊĊĠĠĠĠĠĠĠ Ġassert Expected ( plot ) ĊĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` facet Ġby Ġgrid `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġplot Ġ= Ġsleep Data . plot ( x Ġ= Ġ" sleep _ total ", Ġy Ġ= Ġ" brain wt ") ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. geom Point ( alpha Ġ= Ġ 0 . 7 ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. guides ( size Ġ= ĠLegend Type . none ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. facet Grid ( rows Ġ= Ġ" v ore ", Ġcols Ġ= Ġ" con servation ") ĊĊĠĠĠĠĠĠĠ Ġassert Expected ( plot ) ĊĠĠĠ Ġ} Ċ } ĊĊĊĊ