ggplot2 - 添加具有不同中斷和標籤的輔助y軸

Question

是否可以使用ggplot2手動添加中斷和標籤到輔助y軸？

（見右下圖）

我要上右側y軸更緊湊符，代表吧。

Answer 1

該圖將作爲基本情況，然後我將介紹如何改變輔助y軸斷裂和標籤：

sapply(c("pipeR", "ggplot2"), require, character.only = TRUE) 

data(swiss) 
swiss %>>% ggplot() + 
    geom_bar(mapping = aes(x = Agriculture, y = Fertility * 30/400), stat = "identity", colour = gray(0.5), fill = gray(0.5)) + 
    geom_line(mapping = aes(x = Agriculture, y = Education)) + 
    geom_point(mapping = aes(x = Agriculture, y = Education), size = 3, shape = 21, fill = "white") + 
    scale_x_continuous() + 
    scale_y_continuous(
    name = expression("Education"), 
    sec.axis = sec_axis(~ . * 400/30 , name = "Fertility"), 
    limits = c(0, 30)) + 
    theme_bw() + 
    theme(
    panel.grid.major = element_blank(), 
    panel.grid.minor = element_blank() 
) 

更改遊：

swiss %>>% ggplot() + 
    geom_bar(mapping = aes(x = Agriculture, y = Fertility * 30/400), stat = "identity", colour = gray(0.5), fill = gray(0.5)) + 
    geom_line(mapping = aes(x = Agriculture, y = Education)) + 
    geom_point(mapping = aes(x = Agriculture, y = Education), size = 3, shape = 21, fill = "white") + 
    scale_x_continuous() + 
    scale_y_continuous(
    name = expression("Education"), 
    sec.axis = sec_axis(~ . * 400/30 , name = "Fertility", breaks = seq(1,1000,10)), 
    limits = c(0, 30)) + 
    theme_bw() + 
    theme(
    panel.grid.major = element_blank(), 
    panel.grid.minor = element_blank() 
) 

更改標籤：

swiss %>>% ggplot() + 
    geom_bar(mapping = aes(x = Agriculture, y = Fertility * 30/400), stat = "identity", colour = gray(0.5), fill = gray(0.5)) + 
    geom_line(mapping = aes(x = Agriculture, y = Education)) + 
    geom_point(mapping = aes(x = Agriculture, y = Education), size = 3, shape = 21, fill = "white") + 
    scale_x_continuous() + 
    scale_y_continuous(
    name = expression("Education"), 
    sec.axis = sec_axis(~ . * 400/30 , name = "Fertility", breaks = seq(1,1000,10), labels=rep("x",length(seq(1,1000,10)))), 
    limits = c(0, 30)) + 
    theme_bw() + 
    theme(
    panel.grid.major = element_blank(), 
    panel.grid.minor = element_blank() 
) 

有用的鏈接：https://whatalnk.github.io/r-tips/ggplot2-secondary-y-axis.nb.html