#found code

[nniglii]

███████

//Black on Black

//No: 16

Should Be Better

Original here

[nniglii]

"Rainbow Stock Image"

[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, ... ) }