Odtworzenie Tufte Moiré wibracje

Question

Tufte daje dobry zły przykład, dlaczego krzyż kreskowanie jest zakłócenie, efekt migotać (. Wizualizacją informacji ilościowych, 2001, str 108), która wygląda podobnie do:

Chociaż jego jest bardziej ostry. Jak mogę to powtórzyć w R? Ponieważ nie jest to uważane za dobrą praktykę, znalezienie najłatwiejszej metody replikacji jest trudnym zadaniem.

Answer 1

Oto opcja korzystania abline:

plot(NA,NA, xlim=c(0,100), ylim=c(0,100)) 
for(i in seq(-15,600,6)) { 
    abline(i, -3, lwd=6) 
} 

Edit za Tyler: Oto, co kiedyś dokładnie w doc knitr, tak denerwujące, jak w oryginale.

plot(NA,NA, xlim=c(0,100), ylim=c(0,100), ylab=NA, xlab=NA, yaxt='n', xaxt='n', bty = "n") 
for(i in seq(-15,500,6)) { 
    abline(i, -3, lwd=4) 
} 

Answer 2

polygon na ratunek:

plot(0:1,type="n") 
polygon(
    x=c(1,1,2,2), 
    y=c(1,0,0,1), 
    density=10, 
    angle=135, 
    lwd=5, 
    border=NA 
) 

Answer 3

Dla kompletności Oto rozwiązanie ggplot2, jak zawsze wyzwaniem jest uzyskanie podstawowych danych prawo ...

hatch <- function(xsequence, ysequence, weight = 1) { 
    require(ggplot2) 
    df <- data.frame(x = c(rep(0, length(ysequence)),xsequence, xsequence, rep(max(xsequence), length(ysequence))), 
        y = c(ysequence, rep(max(ysequence), length(xsequence)), rep(0, length(xsequence)), ysequence), 
        group = seq_along(1:(length(xsequence) + length(ysequence)))) 
    p <- ggplot(df, aes(x, y)) + geom_line(aes(group = group), size = weight) 
    print(p + theme(panel.background = element_rect(fill = "transparent"), 
        axis.text = element_blank(), 
        axis.ticks = element_blank(), 
        axis.title = element_blank())) 

} 
hatch(1:100, 1:40, 1.5)