Co robią hjust i vjust podczas tworzenia fabuły za pomocą ggplot?

Za każdym razem, gdy tworzę wykres za pomocą ggplot, spędzam trochę czasu próbując różnych wartości hjust i vjust w linii takiej jak

+ opts(axis.text.x = theme_text(hjust = 0.5))

aby etykiety osi były wyrównane w miejscu, w którym etykiety osi prawie dotykają osi i są zrównane z nią (wyrównane do osi, że tak powiem). Jednak tak naprawdę nie rozumiem, co się dzieje. Często hjust = 0.5daje tak radykalnie odmienne wyniki od hjust = 0.6, na przykład, że nie byłem w stanie tego rozgryźć, po prostu bawiąc się różnymi wartościami.

Czy ktoś może wskazać mi obszerne wyjaśnienie, jak działają opcje hjust i vjust?

Wartości hjusti vjustsą zdefiniowane tylko między 0 a 1:

• 0 oznacza wyrównanie do lewej
• 1 oznacza uzasadnione do prawej

Źródło: ggplot2, Hadley Wickham, strona 196

(Tak, wiem, że w większości przypadków można go używać poza tym zakresem, ale nie oczekuj, że będzie się zachowywał w jakikolwiek określony sposób. To jest poza specyfikacją).

hjuststeruje wyrównaniem poziomym i vjustwyrównaniem pionowym.

Przykład powinien to wyjaśnić:

td <- expand.grid(
    hjust=c(0, 0.5, 1),
    vjust=c(0, 0.5, 1),
    angle=c(0, 45, 90),
    text="text"
)

ggplot(td, aes(x=hjust, y=vjust)) + 
    geom_point() +
    geom_text(aes(label=text, angle=angle, hjust=hjust, vjust=vjust)) + 
    facet_grid(~angle) +
    scale_x_continuous(breaks=c(0, 0.5, 1), expand=c(0, 0.2)) +
    scale_y_continuous(breaks=c(0, 0.5, 1), expand=c(0, 0.2))

Aby zrozumieć, co się dzieje, gdy zmieniasz hjusttekst na osi, musisz zrozumieć, że wyrównanie poziome tekstu osi jest definiowane nie w odniesieniu do osi x, ale do całego wykresu (gdzie obejmuje to tekst na osi y). (Moim zdaniem jest to niefortunne. O wiele bardziej przydatne byłoby ustawienie wyrównania względem osi).

DF <- data.frame(x=LETTERS[1:3],y=1:3)
p <- ggplot(DF, aes(x,y)) + geom_point() + 
    ylab("Very long label for y") +
    theme(axis.title.y=element_text(angle=0))


p1 <- p + theme(axis.title.x=element_text(hjust=0)) + xlab("X-axis at hjust=0")
p2 <- p + theme(axis.title.x=element_text(hjust=0.5)) + xlab("X-axis at hjust=0.5")
p3 <- p + theme(axis.title.x=element_text(hjust=1)) + xlab("X-axis at hjust=1")

library(ggExtra)
align.plots(p1, p2, p3)

Aby zbadać, co dzieje się z vjustwyrównaniem etykiet osi:

DF <- data.frame(x=c("a\na","b","cdefghijk","l"),y=1:4)
p <- ggplot(DF, aes(x,y)) + geom_point()

p1 <- p + theme(axis.text.x=element_text(vjust=0, colour="red")) + 
        xlab("X-axis labels aligned with vjust=0")
p2 <- p + theme(axis.text.x=element_text(vjust=0.5, colour="red")) + 
        xlab("X-axis labels aligned with vjust=0.5")
p3 <- p + theme(axis.text.x=element_text(vjust=1, colour="red")) + 
        xlab("X-axis labels aligned with vjust=1")


library(ggExtra)
align.plots(p1, p2, p3)

Prawdopodobnie najbardziej ostateczny jest rysunek B.1 (d) książki ggplot2, której załączniki są dostępne pod adresem http://ggplot2.org/book/appendices.pdf .

Jednak nie jest to takie proste. hjusti vjustzgodnie z opisem, jak to działa w geom_texti theme_text(czasami). Jednym ze sposobów myślenia o tym jest myślenie o ramce wokół tekstu i miejscu, w którym punkt odniesienia znajduje się w stosunku do tego pola, w jednostkach zależnych od rozmiaru ramki (a zatem różne dla tekstów o różnych rozmiarach). Wartości hjust0,5 i vjust0,5 wyśrodkowują prostokąt w punkcie odniesienia. Zmniejszenie hjustprzesuwa pudełko w prawo o wielkość razy szerokość pudełka 0.5-hjust. Zatem kiedy hjust=0lewa krawędź pudełka znajduje się w punkcie odniesienia. Zwiększenie hjustprzesuwa ramkę w lewo o określoną wartość razy szerokość pudełka hjust-0.5. Kiedyhjust=1, pudełko zostanie przesunięte o pół szerokości pola w lewo od środka, co spowoduje umieszczenie prawej krawędzi w punkcie odniesienia. Jeśli hjust=2prawa krawędź prostokąta jest szerokością prostokąta na lewo od punktu odniesienia (środek to 2-0.5=1.5szerokość prostokąta na lewo od punktu odniesienia. W przypadku pionu mniej jest w górę, a więcej w dół. ) mówi, ale ekstrapoluje poza [0,1].

Ale czasami to nie działa. Na przykład

DF <- data.frame(x=c("a","b","cdefghijk","l"),y=1:4)
p <- ggplot(DF, aes(x,y)) + geom_point()

p + opts(axis.text.x=theme_text(vjust=0))
p + opts(axis.text.x=theme_text(vjust=1))
p + opts(axis.text.x=theme_text(vjust=2))

Trzy ostatnie wątki są identyczne. Nie wiem, dlaczego tak jest. Ponadto, jeśli tekst jest obracany, jest to bardziej skomplikowane. Rozważać

p + opts(axis.text.x=theme_text(hjust=0, angle=90))
p + opts(axis.text.x=theme_text(hjust=0.5 angle=90))
p + opts(axis.text.x=theme_text(hjust=1, angle=90))
p + opts(axis.text.x=theme_text(hjust=2, angle=90))

Pierwsza ma etykiety wyrównane do lewej (do dołu), druga ma je wyśrodkowane w jakimś polu, tak aby ich środki były wyrównane, a trzecia ma je wyrównane do prawej (tak, aby ich prawe boki były wyrównane do osi). Ostatniego, cóż, nie potrafię w spójny sposób wyjaśnić. Ma to coś wspólnego z rozmiarem tekstu, rozmiarem najszerszego tekstu i nie jestem pewien, co jeszcze.