#greg snow

[blogmichealsmithus-blog]

Greg Snow remains on course for Sigona title

Greg Snow remains on course for Sigona title

Kiambu, Tuesday 28 January 2020: Muthaiga Golf club’s Greg Snow carded an impressive score of 4-under par, 68 in round three, to remain on course for a fourth Safari tour title, at the Sigona Golf club, with a total score of 6-under par, 210 going into the final round of play.

Greg’s round score was even more impressive considering the fact that he hit a triple bogey at the par-5, fourth. Up…

View On WordPress

[blogmichealsmithus-blog]

Snow maintains sigona lead after round two

Snow maintains sigona lead after round two

Kiambu, Monday 27 January, 2020: Muthaiga Golf Club’s Greg Snow returned a round score of par, 72, to see him maintain his stay at the top of the Sigona Golf Club Safari tour leaderboard, on a gross score of 2-under par, 142, heading into the penultimate round.

The Johnnie Walker sponsored Snow who started the round as joint leader alongside Thika Golf Club’s Simon Ngige, went about his round…

View On WordPress

[blogmichealsmithus-blog]

Nginge, Snow in Sogona joint lead after round one

Nginge, Snow in Sogona joint lead after round one

Monday, January 27, 2020:  Thika Golf Club’s Simon Ngige and Muthaiga Golf Club’s Greg Snow, braved difficult conditions on course to shoot a round of 70 apiece on the first round of the Sigona Golf Club leg of the Safari Tour Golf Series to end the day as joint leaders; one shot better than their nearest challenger going into the second round.

The day got off to inclement weather with rain, fog…

View On WordPress

[blogmichealsmithus-blog]

Greg Snow rises to the top at Muthaiga

Greg Snow rises to the top at Muthaiga

Nairobi, Monday, 13th January, 2020: Muthaiga Golf Club’s Greg Snow, returned an impressive round score of 4-under par, 68, despite soggy course conditions, to take his gross score to 1-under par, 141, handing him the outright lead after round two action, at his home leg of the Safari Tour.

The Johnnie Walker sponsored pro started the round in a four way tie for second place, two shots behind…

View On WordPress

[blogmichealsmithus-blog]

WINDSOR TO OFFER PROS LAST SHOT AT KENYA OPEN TICKET

WINDSOR TO OFFER PROS LAST SHOT AT KENYA OPEN TICKET

WINDSOR TO OFFER PROS LAST SHOT AT KENYA OPEN TICKET

  NAIROBI, Thursday, February 7, 2019:  The top eight qualifiers to the Kenya Open Golf Championship will be decided at the final Safari Tour event to be held at the Windsor Golf Hotel and Country Club from the 16th to the 20th of February 2019.

  According to the Patrick Obath, the Kenya Open Tournament Director, the Safari Tour was the…

View On WordPress

[blogmichealsmithus-blog]

Golf: Greg Snow leads strong field to 3rd leg of Safari Tour

Golf: Greg Snow leads strong field to 3rd leg of Safari Tour

Muthaiga’s Greg Snow, winner of the second leg of the Safari Tour golf series, leads a strong field of 42 professionals and one amateur, to the third leg of the series to be played from 27th to 31st of October 2018, at the Limuru Golf Club.

Snow is expected to renew his rivalry with the hard hitting Dismas Indiza at the scenic par 72 Limuru golf course. The two needed a three-hole playoff round…

View On WordPress

[irtsnippets]

Text with Outline for Annotating Plots

Sometimes you need to annotate a plot but the background may vary from light to dark, making the text invisible in some parts if it is white and in others if the text is black.

The other day I found this great snippet by Greg Snow to address this issue and I thought it was worth reproducing it here. It works very well and I have updated the code for the missing data patterns plot with it:

# From: Greg Snow # Subject: Re: Text Contrast in a Plot # Newsgroups: gmane.comp.lang.r.general shadowtext <- function(x, y=NULL, labels, col='white', bg='black', theta= seq(pi/4, 2*pi, length.out=8), r=0.1, ... ) { xy <- xy.coords(x,y) xo <- r*strwidth('A') yo <- r*strheight('A') for (i in theta) { text( xy$x + cos(i)*xo, xy$y + sin(i)*yo, labels, col=bg, ... ) } text(xy$x, xy$y, labels, col=col, ... ) }