R Wykresy: Tworzenie poziomych linii kreskowych Tufte

Question

Jak możemy powielić ukryte linie poziome Tufte w R?

Na przykład poniższe nie jest to dobry punkt wyjścia:

library(ggplot2)  
ggplot(msleep, aes(x=order)) + stat_bin() + theme_bw() 

Demontaż linii granicznej powinny być proste. Punkt krytyczny, nakładający się na poziomą linię z prętami, jest dla mnie niejasny.

wyobrażam sobie dwa podejścia tutaj:

1. Ad-hoc rozwiązanie dla tego konkretnego przykładu
2. Sugestia jak włączyć go do motywu

Answer 1

Nie jest to duży dodatek do @Andrie odpowiedź, ale można wziąć przewagę pakietu ggthemes aby Tufte-sque działek z ggplot2. Poniżej Używam theme_tufte, zmienić czcionkę za pomocą extrafont pakiet i korzystać opts aby dostroić wszystkie inne cechy wizualne:

library(ggthemes) 
library(extrafont) 
ggplot(msleep, aes(x=order)) + stat_bin(width=0.6, fill="gray") + 
    theme_tufte(base_family="GillSans", base_size=16, ticks=F) + 
    theme(axis.line=element_blank(), axis.text.x=element_blank(), 
     axis.title=element_blank()) + 
    geom_hline(yintercept=seq(5, 20, 5), col="white", lwd=1.2) 

Answer 2

W zasadzie jest to proste - wszystko co trzeba zrobić, to narysować białe poziome linie w nowej warstwie. Można użyć geom_hline to zrobić:

library(ggplot2)  
ggplot(msleep, aes(x=order)) + stat_bin() + theme_bw() + 
    geom_hline(yintercept=seq(5, 20, 5), col="white") 

Co do drugiego pytania - Wyobrażam sobie, może to być trudne, aby włączyć do tematu, chociaż powinno być możliwe stworzenie własnego geom który odczytuje podziałkę w skali Y i odpowiednio wykreśla linie.

(chciałbym być okazały się błędne.)

Answer 3

Jest też całkiem proste rozwiązanie baza R dla tego :

tmp <- table(msleep$order) 
barplot(tmp, col='black', las=3) 
abline(h=seq(5, max(tmp), by=5), col='white', lwd=2)