dodać pomocniczą oś y do działek ggplot2 - zrób to idealnie

Question

Dodanie drugiej osi y, skalowanie jednej z pierwotnej osi y. Ten temat nie jest nowy. Zostały dotknięte czasy, na przykład on this ggplot2 google groups thread. Idąc za radą Hadleya, próbowałem dodać pomocniczą oś y przez geom_vline, geom_segment i geom_text. Ale wciąż jest brzydka.

Chciałbym prosić o pomoc w jej doskonaleniu. Myślę, że wielu użytkowników ggplot2 byłby zainteresowany tym tematem i wolałby mieć jakikolwiek swój wkład lub wiedzę. Z góry dziękuję.

######################################### 
# what I have gotten. 
library(ggplot2) 

# build up a box plot 
p <- ggplot(mtcars, aes(factor(cyl), mpg)) 

# add the secondary y axis on right side of the plot 
p + geom_boxplot() + geom_vline(xintercept = 3.5) + 
geom_segment(aes(x=3.49, y=c(7,14,21,28), xend = 3.52, yend = c(7,14,21,28))) + 
geom_text(aes(x=3.55, y=c(7,14,21,28), label=c(7,14,21,28))) 

Answer 1

Aby uniknąć włamań, można zamiast tego użyć numeru facet_grid. W zależności od twoich danych możesz go całkiem dobrze dostosować, aby uzyskać bardziej ogólną oś drugorzędną.

library(ggplot2) 
ggplot(mtcars, aes(factor(cyl), mpg)) + 
    geom_boxplot() + 
    facet_grid(cyl ~., scales = "free")