Valentine's Day 2021

LauraRK — Thu, 11 Feb 2021 19:14:28 GMT

Well not as good as polar rose valentines inspired by Rick Wicklin https://communities.sas.com/t5/Graphics-Programming/Challenge-for-SAS-Nerds-Build-a-SAS-Valentine/m-p/535956#M17806

I was short on time given given the pandemic, but if you want something cute:

/* Laura Kapitula's geeky valentines 2021";

/* simulate */
ods graphics/ height=3in;
title height=2 color=black "Valentine, let's mix our distributions.";
data sim;

do i= 1 to 10000;
  p=rand('bernoulli',.5); 
  if p=1 then do;
     person = 'you';
       x=rand('chisq',10)+4;
  end;
  else if p=0 then do;
       person='me ';
	  x= rand('normal',3,4);
  end; 
  output;
end;
run;

proc sgplot data=sim;
  histogram x/ group=person  transparency=.5  ;
    keylegend / location=inside down=3 noborder position=topright fillheight=20 title=" ";
  density x / group=person type=kernel ;
  xaxis display=none;

run;


data sim2;
  do i= 1 to 100;
    x=rand('normal', 100,20);
    if 47<x<155 then output;
  end;
  x=170; label='you'; output;
run;

ods graphics / width=6in height=1.5in;
title height=2 color=black "Valentine, you are a positive outlier.";
proc sgplot data=sim2 noborder;
  hbox x / datalabel=label  fillattrs=(color=pink) lineattrs=(color=red thickness=2) whiskerattrs=(color=red thickness=2) 
outlierattrs=(size=30 symbol=heartfilled color=red  ) medianattrs=(color=red thickness=2) meanattrs=(color=red)
datalabelattrs=(weight=bold color=crimson size=12)  boxwidth=1   ; 
  xaxis display=none;
run;

ods graphics/ height=3in;
title height=2 color=black "Valentine, I love that you are positively skewed.";
data sim3;

do i= 1 to 10000;
      person = 'you';
       x=rand('gamma',2,2);
    output;
end;
run;

proc sgplot data=sim3 noautolegend;
  histogram x/  fillattrs=(color=pink) nooutline   ;
  density x / type=kernel lineattrs=(color=red thickness=2) ;
  xaxis display=none;
run;

Re: Valentine's Day 2021

djrisks — Thu, 11 Feb 2021 19:20:00 GMT

Awesome graph Laura! This has really inspired me! 🙂 I really like the let's mix our distribution graph!

Re: Valentine's Day 2021

LauraRK — Thu, 11 Feb 2021 20:13:52 GMT

that is my favorite of these as well. My real favorite is the animated polar roses, but I like these for their simplicity. Lot's of fun with SGPLOT .

topic Valentine's Day 2021 in Graphics Programming

Valentine's Day 2021

Re: Valentine's Day 2021

Re: Valentine's Day 2021