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

  A SAS ODS Graphics goodbye to 2023 and hello to 2024. Happy New Year, all!   * Fun With SAS ODS Graphics: New Year's Eve Countdown w/Confetti Stars (Text+Scatter Plots); ods graphics / height=5in width=5in noborder; /* Create animated GIF from generated images */ options nobyline papersize=('5 in', '5 in') animduration=2 animloop=yes animoverlay printerpath=gif animation=start nodate nonumber; ods printer file='~/nye/nye.gif'; /* Animated GIF filename */ *==> Step 1: Display old year (2023) with 10-second countdown timer, reduce font size of year from 140pt to 0; %macro oldyear; data oldyear; /* Data to display 2023 in center of screen (0,0) */ retain x 0 y 0 year '2023'; %do secs=10 %to 0 %by -1; /* Countdown from 10 seconds to 9 */ %do subsec=0 %to 6; /* Display year 7 times per second, reducing size by 2pts each time */ proc sgplot data=oldyear aspect=1 nowall noborder pad=0 noautolegend; styleattrs backcolor=black; /* Black background */ %let fontsize=%sysfunc(max(%eval(&secs*14-2*&subsec),0)); /* Reduce font size by 14pts each second, with 2pt intervals */ %if &secs=0 %then /* Display blank screen if # of seconds remaining =0 */ scatter x=x y=y / markerattrs=(size=0)%str(;); %else /* Otherwise, display # of seconds remaining in middle of image */ text x=x y=y text=year / contributeoffsets=none textattrs=(color=silver weight=bold size=&fontsize.pt);; /* Display countdown time in lower right corner of image */ inset "0:%sysfunc(putn(&secs,z2.))" / textattrs=(color=gray weight=bold size=24) position=bottomright; xaxis display=none values=(-1 1) offsetmin=0 offsetmax=0; yaxis display=none values=(-1 1) offsetmin=0 offsetmax=0; * Suppress axes; run; options animduration=.14; /* Make timing somewhat close to real time (1 second per displayed #) */ %end; %end; %mend; %oldyear; *==> Step 2: Display "Happy New Year!" and the new year (2024) with "confetti" background; data stars; /* Create 1500 points for "confetti" stars */ retain x 0 y 0; output; do s=1 to 1500; output; end; data frames; /* Create 20 frames for displaying "Happy New Year!" message and year */ do frame=1 to 20; output; end; proc sql; /* Assign random x/y points and colors, and text to be displayed */ create table stars2 as select s.*, ranuni(0)*2-1 as xs, ranuni(1)*2-1 as ys, rand("Integer", 0, 2) as color, case when frame<=8 then "HAPPY*NEW YEAR!" else '2024' end as msg, f.frame from stars s, frames f order by frame; /* Display 8 "Happy New Year!" frames with "confetti" background */ options nobyline animduration=.2; proc sgplot data=stars2(where=(msg="HAPPY*NEW YEAR!")) aspect=1 nowall noborder pad=0 noautolegend; by frame notsorted; styleattrs backcolor=black; symbolchar name=uniStar char='2605'x; /* Unicode value for 5-pointed "confetti" star */ scatter x=xs y=ys / markerattrs=(symbol=uniStar size=18Pt) colormodel=(silver gold white) colorresponse=color jitter jitterwidth=1; * Generate stars;; text x=x y=y text=msg / splitchar='*' splitpolicy=splitalways strip contributeoffsets=none textattrs=(color=cxf7e7ce weight=bold size=54pt); * RGB code f7e7ce is "Champagne"; xaxis display=none values=(-1 1) offsetmin=0 offsetmax=0; yaxis display=none values=(-1 1) offsetmin=0 offsetmax=0; * Suppress axes; /* Display 12 "2024" frames with "confetti" background */ proc sgplot data=stars2(where=(msg="2024")) aspect=1 nowall noborder pad=0 noautolegend; by frame notsorted; styleattrs backcolor=black; symbolchar name=uniStar char='2605'x; /* Unicode value for 5-pointed "confetti" star */ scatter x=xs y=ys / markerattrs=(symbol=uniStar size=18Pt) colormodel=(silver gold white) colorresponse=color jitter jitterwidth=1; * Generate stars;; text x=x y=y text=msg / splitchar='*' splitpolicy=splitalways strip contributeoffsets=none textattrs=(color=cxf7e7ce weight=bold size=140pt); xaxis display=none values=(-1 1) offsetmin=0 offsetmax=0; yaxis display=none values=(-1 1) offsetmin=0 offsetmax=0; * Suppress axes; run; /* Freeze last "2024" frame for total of 2 seconds */ options nobyline animduration=1.8; proc sgplot data=stars2(where=(frame=20)) aspect=1 nowall noborder pad=0 noautolegend; by frame notsorted; styleattrs backcolor=black; symbolchar name=uniStar char='2605'x; /* Unicode value for 5-pointed "confetti" star */ scatter x=xs y=ys / markerattrs=(symbol=uniStar size=18Pt) colormodel=(silver gold white) colorresponse=color jitter jitterwidth=1; * Generate stars;; text x=x y=y text=msg / splitchar='*' splitpolicy=splitalways strip contributeoffsets=none textattrs=(color=cxf7e7ce weight=bold size=140.pt); xaxis display=none values=(-1 1) offsetmin=0 offsetmax=0; yaxis display=none values=(-1 1) offsetmin=0 offsetmax=0; * Suppress axes; run; /* Stop recording images */ options printerpath=gif animation=stop; ods printer close; ... View more

  A KISS SAS ODS Graphics take on a lovely 2019 Christmas card by Normann Copenhagen. Happy Holidays, all!   * Fun With SAS ODS Graphics: Paint-By-Numbers Xmas Tree Inspired by Normann Copenhagen card at dezeen.com/2019/12/24/christmas-cards-architects-designers-2019; data; * "Tree" is pyramid of numbers 1-25, * = new line); retain x 0 y 0 tree '1*234*56789*1011213*1415161718*192021222324*25'; ods graphics / height=5in width=5in; * Plot the "tree" (text plot); proc sgplot aspect=1 nowall noborder pad=0; styleattrs backcolor=cx1C5240; * Xmas tree green; text x=x y=y text=tree / splitchar='*' splitpolicy=splitalways strip textattrs=(color=white weight=bold size=36pt); xaxis display=none; yaxis display=none; * Suppress axes; run;    PRIOR TO "TOUCH-UP" ... View more

  Based on a Free Kids Crafts Thanksgiving project, here's a quick SAS ODS Graphics take on a Pilgrim hat. Happy Thanksgiving, all!    * Fun With SAS ODS Graphics: Happy Thanksgiving, Pilgrim! (5-Polygon Pilgrim Hat) Based on children's craft project at freekidscrafts.com/tissue-paper-pilgrim-hat; data PilgrimHat; /* Generate pairs of x,y points for 5 polygons */ infile datalines dlm=', '; input x y@@; id=floor((_n_-1)/4)+1; /* 4 pairs of x,y points per polygon */ datalines; 0,0 540,0 540,110 0,110 40,110 500,110 490,205 50,205 53,205 487,205 460,530, 80,530 190,100 350,100 350,215 190,215 230,135 310,135 310,180 230,180 ; /* Plot pilgrim hat polygons */ ods graphics / reset antialias border=off width=5.43in height=5.35in; proc sgplot aspect=1 pad=10 nowall noborder noautolegend; styleattrs backcolor=cxF9F1D9 datacolors=(black brown black orange brown); polygon x=x y=y id=id / group=id nooutline fill; inset "HAPPY THANKSGIVING!" / position=bottom textattrs=(weight=bold size=28pt color=cxB95328); xaxis display=none offsetmin=.1 offsetmax=.1 values=(0 543); yaxis display=none offsetmin=.12 offsetmax=.03 values=(0 535); run;   Original Pilgrim Hat Template   SAS ODS Graphics Work-In-Progress     ... View more