I did my share of popsicle stick craft projects as a kid, including "switch blades" and "bombs." 😀   So, with Independence Day approaching, here's a quick SAS ODS Graphics take on a Popsicle Stick American Flag craft project. Happy 4th of July, all!   * Fun With SAS ODS Graphics: Stars and Popsicle Stick Stripes Forever See craft projoect at: gingersnapcrafts.com/blast-from-past-popsicle-stick-flags; data stripes; * Generate rectangles for 5 popsicle stick stripes; do id=1 to 5; color=mod(id,2); * Assign color codes 0=Red 1=White 2=Blue; x=.33; y=(id-1)*.72; output; x=6-.33; output; y=(id-1)*.72+.66; output; x=.33; output; end; data canton; * Generate 3 shorter blue rectangles for canton; do id=3 to 5; csx=.33; csy=(id-1)*.72; output; csx=3; output; csy=(id-1)*.72+.66; output; csx=.33; output; end; data circles(keep=colorc xc yc); * Generate circles for rounded ends of popsicle stick stripes; do id=1 to 5; if id<=2 then colorc=mod(id,2); else colorc=2; xc=.33; yc=(id-1)*.72+.33; output; colorc=mod(id,2); xc=6-.33; output; end; data stars(keep=xs ys); * Generate 3 rows of stars (5 in each row); do id=3 to 5; ys=(id-1)*.72+.37; do s=1 to 5; xs=s*3/6; output; end; end; data flag; * Pull all the pieces together; set stripes circles canton stars; * Make a flag with polygon + ellipseparm + scatter plots!; ods graphics / noborder height=3.54in width=6in; proc sgplot data=flag noautolegend nowall noborder; styleattrs backcolor=cxb1e5ff datacolors=(CXB22234 white CX3C3B6E); * "Old Glory Red/Blue"; symbolchar name=uniStar char='2605'x; * Unicode value for 5-pointed star; polygon x=x y=y id=id / nooutline fill colormodel=(white CXB22234) colorresponse=color nomissinggroup; * Plot rectangular part of stripes; ellipseparm semimajor=.33 semiminor=.33 / slope=1 xorigin=xc yorigin=yc fill nooutline group=colorc nomissinggroup; * Plot rounded ends of stripes; polygon x=csx y=csy id=id / nooutline fill fillattrs=(color=CX3C3B6E); * Plot canton; scatter x=xS y=yS / markerattrs=(symbol=unistar color=White size=48pt); * Plot stars; xaxis display=none values=(0 6) offsetmin=.06 offsetmax=.06; * Hide axes; yaxis display=none values=(0 3.6) offsetmin=.0625 offsetmax=.06; run;    PRE-COLORING ... View more

  Thanks to a little math help from StackExchange, here's a SAS ODS Graphics Happy Father's Day greeting!   * Fun w/SAS ODS Graphics: Happy Father's Day! (Scatter + Polygon + Text Plots) Star vertices algorithm from math.stackexchange.com/questions/3582342/coordinates-of-the-vertices-of-a-five-pointed-star; data star; * Generate points for stars; retain id 0 r1 6 r2 2.5 dad "DAD" xT 0 yT 0; * Star outer radius is 6, inner radius is 2.5; pi=constant("pi"); do pt=1 to 600; * Points for 600 little Unicode stars; xS=-6.25+12.5*ranuni(123); yS=-5.75+12.5*ranuni(456); output; end; xS=.; yS=.; do k=0 to 4; * Points for 1 big polygon star; x=r1*cos(2*pi*k/5+pi/2); y=r1*sin(2*pi*k/5+pi/2); output; x=r2*cos(2*pi*k/5+pi/2+2*pi/10); y=r2*sin(2*pi*k/5+pi/2+2*pi/10); output; end; ods graphics / reset width=5in height=5in noborder; * Make Dad a star!; proc sgplot noautolegend aspect=1 noborder nowall pad=0; styleattrs backcolor=navy; symbolchar name=uniStar char='2605'x; * Unicode value for 5-pointed star; scatter x=xS y=yS / markerattrs=(symbol=unistar color=White size=24pt); * Plot little unicode stars; polygon x=x y=y id=id / fill fillattrs=(color=cxd9d9d9) dataskin=crisp; * Plot big polygon star; text x=xT y=yT text=dad / contributeoffsets=none textattrs=(size=48pt color=navy weight=bold) contributeoffsets=none; * "DAD"; xaxis display=none values=(-6.25 6.25) offsetmin=.01 offsetmax=.01; * Hide axes; yaxis display=none values=(-5.75 6.75) offsetmin=.01 offsetmax=.01; run; ... View more

    Happy Mother's Day, all!   * Fun w/SAS ODS Graphics: Mom Bracelet; data beads; * Create "beads" for Mom bracelet; retain size 1; * All beads same size; pi=constant("pi"); * 3.414...; do i=1 to 20; * Plot 20 points around circle (see blogs.sas.com/content/graphicallyspeaking/2018/11/01/text-plot-can-do-that/); angle=90-i*18; x=cos(angle*pi/180); y=sin(angle*pi/180); angle=angle+90; * Add 90 to angle to rotate letter labels at bottom back upright; if i in (9, 11) then txt="M"; * Add letters 'M' in beads 9 and 11 for 'MOM' (counting from top and going clockwise); if i=10 then yH=y; * Need a point to plot a heart in bead 10 (instead of the 'O' in 'MOM'); output; yh=.; txt=""; * Reset variables; end; * Let's plot the bracelet! (Ellipse + Bubble + Text Plots); ods graphics / width=5.5in height=5.5in antialias noborder; proc sgplot data=beads noautolegend noborder pad=0 aspect=1 nowall subpixel noborder pad=0; styleattrs backcolor=cxfff9ff; * Very light pink background; symbolimage name=heart image='/home/ted.conway/heart.png'; * Use white heart image for the 'O' in 'MOM'; ellipseparm semimajor=1 semiminor=1 / slope=0 xorigin=0 yorigin=0 outline lineattrs=(color=vipk thickness=3pt); * 'Elastic' to string beads; bubble x=x y=y size=size / fill fillattrs=(color=stpk) nooutline bradiusmin=30 bradiusmax=31 dataskin=gloss; * Beads; text x=x y=y text=txt / rotate=angle contributeoffsets=none strip textattrs=(color=white size=26pt weight=bold); * Plot 'M' letters in 'MOM' at an angle; scatter x=x y=yH / markerattrs=(symbol=heart size=32pt); * Plot heart image (takes place of 'O' in 'MOM'); xaxis display=none offsetmin=0 offsetmax=0 values=(-1.3 1.3); * Suppress labels/ticks on axes, set bounds; yaxis display=none offsetmin=0 offsetmax=0 values=(-1.3 1.3); run; ... View more

  In advance of Monday's solar eclipse, a SAS ODS Graphics map of the locations in Architectural Digest's Where to See the Solar Eclipse: The 13 Best Cities to Watch the Event. Happy viewing, all!   * Fun With SAS ODS Graphics: Mr. Sun, Mr. Moon (Best Cities for Eclipse Viewing) Data source: Gecoded cities from architecturaldigest.com/story/solar-eclipse-2024-best-cities; * Get cities + latitude + longitude from Google Sheets; FILENAME cities url 'https://docs.google.com/spreadsheets/d/1uu9zHLpaKteksCFKnvQw-HWS7czdW1nY8IzGPpq-TSQ/export?format=csv&gid=0'; proc import datafile=cities out=cities DBMS=CSV REPLACE; GETNAMES=Yes; DATAROW=2; ods graphics / antialias height=7in width=7in; proc sgmap plotdata=cities noautolegend; * Use SGMAP + OpenStreetMap to plot cities; title height=14pt font=arial "Architectural Digest's 13 Best Cities for Seeing the Solar Eclipse"; openstreetmap; * Overlay multiple markers in attempt at black-on-yellow 'eclipse-look' markers; scatter x=long y=lat / datalabel=city datalabelattrs=(family=arial size=14pt color=black) markerattrs=(symbol=circlefilled size=13pt); scatter x=long y=lat / markerattrs=(symbol=circlefilled size=12pt color=yellow); * Stadium points; scatter x=long y=lat / markerattrs=(symbol=circlefilled size=8pt color=black); * Stadium points; run;    DATA (Google Sheets) ... View more

  A SAS ODS Graphics take on a cute Easter Bunny Basket icon - Happy Easter, all!    * Fun With SAS ODS Graphics: Easter Bunny Basket A SAS ODS Graphics take on an icon found at stockio.com/free-icon/easterly-icons-easter-bunny; *==> 1. Generate points for Easter Bunny's eyes and Easter basket; data easter; dash='-'; ty=89; tx=93; output; tx=132; output; dash=""; tx=0; ty=0; * Generate points for eyes (dashes/hyphens(; do id=1 to 2; * Generate points for Easter basket (two polygons); input; do w= 1 to countw(_infile_) by 2; px=input(scan(_infile_,w),best3.); py=input(scan(_infile_,w+1),best3.); output; end; end; datalines; 0 121 0 153 225 153 225 121 10 153 33 231 192 231 215 153 ; *==> 2. Plot Easter Basket/Bunny (Polygon+Ellipse+Text Plots); ods graphics / antialias width=6in height=6in noborder; proc sgplot aspect=1 noautolegend nowall noborder pad=0; styleattrs backcolor=cxfdf0d7; * Pastel yellow background; * Easter Basket Handle (black outline) + pastel green overlay; ellipseparm semimajor=103.5 semiminor=103.5 / slope=0 xorigin=112.5 yorigin=121 nofill lineattrs=(color=black thickness=18pt); * Black outline; ellipseparm semimajor=103.5 semiminor=103.5 / slope=0 xorigin=112.5 yorigin=121 nofill lineattrs=(color=cxc5ebd5 thickness=6pt); * Pastel green; * Easter Bunny Head (black outline); ellipseparm semimajor=70 semiminor=70 / slope=0 xorigin=112.5 yorigin=121 nofill lineattrs=(color=black thickness=6pt); * Easter Bunny Left Ear (white + pink overlay); ellipseparm semimajor=17 semiminor=47 / slope=0 xorigin=80.5 yorigin=45 fill fillattrs=(color=white) outline lineattrs=(color=black thickness=6pt); ellipseparm semimajor=11 semiminor=40 / slope=0 xorigin=80.5 yorigin=45 fill fillattrs=(color=cxe8a9d0); * Easter Bunny Right Ear (white + pink overlay); ellipseparm semimajor=17 semiminor=47 / slope=0 xorigin=144.5 yorigin=45 fill fillattrs=(color=white) outline lineattrs=(color=black thickness=6pt); ellipseparm semimajor=11 semiminor=40 / slope=0 xorigin=144.5 yorigin=45 fill fillattrs=(color=cxe8a9d0); * Easter Bunny - Face (white fill color to cover unwanted lines); ellipseparm semimajor=68semiminor=68 / slope=0 xorigin=112.5 yorigin=121 fill fillattrs=(color=white); * Easter Bunny Eyes (black hyphen/dash); text x=tx y=ty text=dash / contributeoffsets=none textattrs=(color=black weight=bold size=72pt); * Easter Basket (pastel green); polygon x=px y=py id=id / lineattrs=(color=black thickness=6pt) fill outline fillattrs=(color=cxc5ebd5); * Pastel green; xaxis display=none values=(-5 230) offsetmin=.01 offsetmax=.01; * Suppress axes, tweak positionl; yaxis display=none values=(-5 230) reverse offsetmin=.01 offsetmax=.03; run;    Chart without code changes to color/tweak output. ... View more

  Happy St. Patrick's Day (and a belated Happy Pi Day), all!   * Fun w/SAS ODS Graphics: I'm Dreaming of a Green St. Patrick's Day; data shamrocks; * Plot Shamrock icons in a circle to create a St. Patrick's day 'wreath'; retain msg "HAPPY*ST. PATRICK'S*DAY!" msgX 0 MsgY 0; pi=constant("pi"); do i=1 to 12; * Plot 12 points around circle (From blogs.sas.com/content/graphicallyspeaking/2018/11/01/text-plot-can-do-that/); angle=90-i*30; x=cos(angle*pi/180); y=sin(angle*pi/180); output; end; ods graphics / width=5in height=5in antialias noborder; * St. Patrick's Day 'Wreath' (Scatter + Text Plot); proc sgplot data=shamrocks noautolegend noborder pad=0 aspect=1 nowall subpixel noborder pad=0; symbolimage name=shamrock image='/home/ted.conway/shamrock.png'; * MS-Word shamrock icon saved as .png file; styleattrs backcolor=VPAG; * Very pale green background; scatter x=x y=y / markerattrs=(color=cx009a49 size=80pt symbol=shamrock); * Plot 'shamrocks'; text x=msgY y=msgY text=msg / textattrs=(size=22pt color=cx224d17 weight=bold) position=center splitchar='*' splitpolicy=splitalways contributeoffsets=none strip;; * Message; xaxis display=none offsetmin=0 offsetmax=0 values=(-1.4 1.4); * Suppress labels/ticks on axes, set bounds; yaxis display=none offsetmin=0 offsetmax=0 values=(-1.4 1.4); run;   MS-Word Shamrock Icon (saved as .png) ... View more

  The 96th Academy Awards airs Sunday and - as the above SAS ODS Graphics dot plot illustrates - the oddsmakers certainly like Oppenheimer's chances of winning Best Picture. Enjoy the show!   * Fun With SAS ODS Graphics: And the Academy Award for Best Picture goes to? Image thumbnails courtesy of bing.com Odds from sportingnews.com/us/betting/news/oscars-2024-betting-odds-category-predictions-favorites/8b210b67cec4072bff5d3045 American odds to probability formula from calculatorandconverter.com/betting/bet-calculator-odds-converter; data bestpicturenominees; /* Read in American betting odds of winning and calc probabilities */ input film $26. odds; if odds>0 then probability=100/(odds+100); else probability=-odds/(-odds+100); datalines; Oppenheimer -5000 Poor Things +2000 The Zone of Interest +2500 The Holdovers +2800 Barbie +3500 Killers of the Flower Moon +4000 Anatomy of a Fall +4000 American Fiction +8000 Past Lives +10000 Maestro +15000 ; ods _all_ close; /* Plot films + odds on animated dot plot */ options papersize=('8 in', '4.5 in') printerpath=gif animation=start animduration=1 animloop=YES NOANIMOVERLAY nodate nonumber; ods printer file='/home/ted.conway/BestPicture.gif'; ods graphics / antialias width=8in height=4.5in imagefmt=GIF antialias; %macro films; /* Ten frames, one for each film thumbnail image */ %do i=1 %to 10; %let image=%scan("Oppenheimer, PoorThings, TheZoneOfInterest, TheHoldovers, Barbie, AnatomyOfAFall, KillersOfTheFlowerMoon, AmericanFiction, PastLives, Maestro", &i, " ,"); data filmimage; /* Poistion images in center of plot area */ retain function "Image" anchor "center" x1 50 y1 50 drawspace "wallpercent" x1space "wallpercent" y1space "wallpercent" layer "front" id "filmimage" Image "/home/ted.conway/BestPicture/&image..jpg"; /* Dot plot of films with odds in descending order */ ods graphics / antialias height=4.5in width=8in; proc sgplot data=bestpicturenominees sganno=filmimage; dot film / response=probability categoryorder=respdesc markerattrs=(symbol=circlefilled size=10pt); inset " " "2024" / position=top textattrs=(size=11pt weight=bold); inset "BEST PICTURE NOMINEES" " " / position=bottom textattrs=(size=11pt weight=bold); yaxistable probability / position=right nostatlabel label="Prob" valueattrs=(size=12pt) labelattrs=(size=12pt); yaxistable odds / position=right nostatlabel label="Odds" valueattrs=(size=12pt) labelattrs=(size=12pt); format probability percent6.1; xaxis display=(nolabel) valueattrs=(size=12pt) valuesformat=percent6.; yaxis display=(nolabel) valueattrs=(size=12pt); run; %end; %mend; %films; /* Run the macro to produce the animated GIF! */ options printerpath=gif animation=stop; ods printer close; ... View more

  Happy Valentine's Day!   * Fun w/SAS ODS Graphics: Be Still My Unicode Valentine Heart; data heart; /* Plot Unicode hearts of various sizes at x=0 y=-.025 */ xH=0; yH=-.025; txtH=unicode('\u2764'); /* Unicode heart character code is hex 2764 */ ods _all_ close; /* Plot valentine (animated GIF with 5 frames) */ options papersize=('5 in', '5 in') printerpath=gif animation=start animloop=YES NOANIMOVERLAY nodate nonumber; ods printer file='/home/ted.conway/Valentines.gif'; ods graphics / width=5in height=5in imagefmt=GIF antialias; %macro valentine; %do frame=0 %to 4; /* Plot 5 nested Valentine hearts of varying sizes */ %if &frame=0 | &frame=4 %then options animduration=.75; %else options animduration=.25;; proc sgplot data=heart noautolegend noborder pad=0 aspect=1 nowall subpixel; styleattrs backcolor=cxffbcd9; /* Cotton candy pink background */ inset " " "HAPPY VALENTINE'S DAY!" / position=top textattrs=(size=22pt color=cxB81B47 weight=bold); /* Bright marooon color */ %do h=&frame %to 0 %by-1; /* Plot biggest hearts first, alternate red and white color */ text x=xH y=yH text=txtH / textattrs=(family="Arial Unicode MS" size=%eval((&h=0)*36+36*&h*5/2)pt color=%if %sysfunc(mod(&h,2))=1 %then WHITE; %else RED;) position=center vcenter=bbox contributeoffsets=none strip;; %end; xaxis display=none offsetmin=0 offsetmax=0 values=(-1 1); /* Suppress labels/ticks on axes, set bounds */ yaxis display=none offsetmin=0 offsetmax=0 values=(-1 1); run; %end; %mend; %valentine; options printerpath=gif animation=stop; ods printer close; ... View more

  Time for the Super Bowl LVIII quarterback boxplot matchup, kids! More QB stats for Brock Purdy and Patrick Mahomes at NFL.com.   * Fun With SAS ODS Graphics: Super Bowl LVIII QB Boxplot Tale of the Tape (Purdy vs. Mahomes) Football markers courtesy of Bruno Landowski thenounproject.com/icon/football-243375/; proc import file='~/QBLVIII.xlsx' dbms=xlsx out=qb replace; * Grab 2023 regular/postseason QB stats (copied-and-pasted from NFL.com); %SGANNO; * Anotate chart with NFL.com potos of Burrow, Stafford using SAS-provided macros; data qbpics; %SGIMAGE (image="/home/ted.conway/Mahomes.png",drawspace="DATAVALUE",xc1="Patrick Mahomes",y1=-18,height=140,heightunit="DATA",anchor="BOTTOM"); %SGIMAGE (image="/home/ted.conway/Purdy.png",drawspace="DATAVALUE",xc1="Brock Purdy",y1=-18,height=140,heightunit="DATA",anchor="BOTTOM"); proc sql; * Only create labels for highest and lowest passing yardage games; create table qb3 as select qb.*, case when yds=minyds or yds=maxyds then Yds end as Yds2 from qb join (select qb, min(yds) as minYds, max(yds) as maxYds from qb group by 1) as qb2 on qb.qb=qb2.qb; proc sgplot data=qb3 noautolegend sganno=qbpics noborder nowall; * Annotated box + scatter plot of passing yardage in each game of 2023 season; inset "SUPER BOWL LVIII" / textattrs=(size=14pt weight=bold) position=top; symbolimage name=football image='/home/ted.conway/football.png'; * Use football image for scatterplot markers; scatter y=YDS x=QB / datalabel=yds2 datalabelpos=left markerattrs=(symbol=football size=24pt) transparency=0; * Markers with passing yards in each of the 2023 games (pre- and post-season); vbox YDS / category=QB boxwidth=.25 nofill meanattrs=(color=red symbol=diamondfilled); * Boxplot to show distributions (quartiles + mean); xaxis display=(noline noticks nolabel) discreteorder=data; yaxis display=all label="PASSING YARDS IN EACH 2023 REGULAR SEASON GAME" min=-20 offsetmin=0; inset "QB" "PASSING" "MATCHUP" / valuealign=center textattrs=(size=12pt weight=bold) position=bottom; run;   SAMPLE DATA ... View more

  Grammy Awards are tonight, so here's a short SAS ODS Graphics program to chart the nominees' chances of winning (input data from Yahoo, full output for all 37 categories on GitHub).   * Fun With SAS ODS Graphics: 2024 Grammy Nominee Odds Data soure: yahoo.com/entertainment/2024-grammy-predictions-official-odds-150050388.html Odds-to-probability calc from en.wikipedia.org/wiki/Mathematics_of_bookmaking; data nominees; * Read in data; length probability 8. category nominee odds : $ 255.; retain minx .005 maxX .295 category; infile "/home/ted.conway/GrammyOdds.txt" lrecl=255 truncover; input; if ^index(_infile_,'—') then do; seq=0; category=_infile_; delete; end; * Category Header?; seq+1; * Process nominee odds; seqx=put(seq,z2.); * Maintain nominee sequence order; nominee=scan(_infile_,1,'—'); * Grab nominee and/or recording; odds=scan(_infile_,2,'—'); * Grab fractional odds; probability=scan(odds,2,'/')/(scan(odds,1,'/')+scan(odds,2,'/')); * Convert to probability (0-1); output; ods graphics / width=16in height=9in noborder outputfmt=svg; proc sgpanel data=nominees noautolegend des="2024 Grammy Awards"; * Draw charts for 9 categories in a 3x3 grid on each page (37 categories); panelby category / headerattrs=(weight=bold color=black) novarname nowall noheaderborder noborder rows=3 columns=3 headerbackcolor=white sparse skipemptycells; hbarparm category=seqx response=probability / nooutline fillattrs=(color=cXA8D8FF); * Bar chart with light blue bars; text x=minX y=seqx text=nominee / position=right strip contributeoffsets=none textattrs=(size=9pt color=black) splitchar='|' splitpolicy=splitalways; * Text plot of nominee and/or recording (left-aligned over bars); text x=maxX y=seqx text=odds / position=left strip contributeoffsets=none textattrs=(size=9pt color=black); * Text plot showing fractional odds (to the right of nominees); rowaxis display=(nolabel novalues noticks noline); * Suppress most axis info, but show probabilities; colaxis display=(nolabel noticks) values=(0 .1 .2 .3) valuesdisplay=('0%' '10%' '20%' '30%') grid valueattrs=(size=8pt); run;   DETAIL VIEW    CORRESPONDING DATA SNIPPET ALBUM OF THE YEAR Taylor Swift, "Midnights" — 5/1 Boygenius, "The Record" — 5/1 SZA, "SOS" — 11/2 Jon Batiste, "World Music Radio" — 7/1 Olivia Rodrigo, "Guts" — 17/2 Lana Del Rey, "Did You Know That There's a Tunnel Under Ocean Blvd" — 17/2 Miley Cyrus, "Endless Summer Vacation" — 19/2 Janelle Monae, "The Age of Pleasure" — 10/1 ...     ... View more