Aug 29, 2015
███████
//Black on Black
//No: 16
Should Be Better
Original here
Loading...
seen from Malaysia
seen from United States
seen from United States
seen from Italy
seen from Russia
seen from Malaysia
seen from Malaysia
seen from United States
seen from Jordan
seen from Türkiye
seen from United States
seen from Malaysia
seen from United States
seen from United States
seen from United States
seen from United States
seen from Canada
seen from United States
seen from Sweden
seen from Canada
███████
//Black on Black
//No: 16
Should Be Better
Original here
Anya is live and ready to show you everything. Watch her strip, dance, and perform exclusive shows just for you. Interact in real-time and make your fantasies come true.
Free to watch • No registration required • HD streaming
"Rainbow Stock Image"
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, ... ) }