添加第二條軸（頂部和右側），帶有小刻度

我正試圖創建一個圖，該圖的頂部和右側有一個軸。我在x軸和y軸上添加了小刻度，但我注意到，當我試圖添加第二個x軸和y軸時，小刻度被洗掉。我還希望洗掉第二個軸的標簽，但這似乎并不奏效。我在想，是否是我添加小刻度的方式出現了問題？

我的主要問題是，我怎樣才能在第二軸上添加小刻度，以及怎樣才能洗掉標簽。

data. bw < -結構(list（num = c(88L。  58L。  15L, 11L, 14L。  29L, 34L。  40L, 
24L, 20L。  3L, 1L。  1L）。  bar = c（0。 5, 1.5, 2.5,  3。 5, 4.5, 5.5,  
6.5, 7.5,  8． 5, 9.5, 10.5,  11. 5, 12. 5）。 組=結構(c(1L。  
1L, 1L,。  1L, 1L, 1L。  1L, 1L, 1L。  1L, 1L,  1L), 。 標簽 = "A"。  class = "factor"））。  class = "data. frame",行。 names = c(NA,) 
-13L））

library(ggplot2)
library(ggh4x)

    ggplot(data. bw, aes(bar,num。 填充= group))  
      geom_bar(stat = 'ident',  寬度 = 1）   
      scale_fill_manual(values = c('orange'/span>。  'khaki')   
      scale_y_continuous()
        minor_breaks = seq(0， 90。 通過= 2）,
        突破= seq(0, 90。 通過= 10）。 限制 = c(0。  90）,
        expansion = expansion(mult = c(0。  0))，
        秒。 軸 = dup_axis(name = NULL)。 
        引導 = "axis_minor" 
      )  
      scale_x_continuous()
        minor_breaks = seq(0,  14, by = 0. 5）,
        突破= seq(0, 14。 通過= 2）。 限制 = c(0。  14）,
        expansion = expansion(mult = c(0。  0))，
        秒。 軸 = dup_axis(name = NULL)。 
        引導 = "axis_minor"
      ）  
      scale_fill_manual(values =alpha(c（"red"）。  . 3))  .
      theme_bw()  
      主題()
        面板。 border = element_rect(colour = "black"。  fill=NA,  size=1），
        plot.background = element_blank(),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank（）
      )

uj5u.com熱心網友回復：

據我所知，ggplot2中的次要坐標軸并沒有得到任何次要的斷裂資訊來傳遞給指南（或被弄亂）。請參閱相關的問題。然而，既然你使用了dup_axis()，我假定你想復制你的主軸，你也可以用guides(x.sec = "axis_minor", y.sec = "axis_minor")來做，它們的順序直接來自刻度而不是一個二級刻度。

移除二級軸的標簽就像將適當的主題元素設定為element_blank()一樣簡單。如果你指的是軸的標題而不是文本，這些默認是關閉的，但是如果你想要的話，你可以將它們作為guides(x.sec = guide_axis_minor(title = "My title"))傳遞。

data. bw < -結構(list（num = c(88L。  58L。  15L, 11L, 14L。  29L, 34L。  40L, 
                                  24L, 20L。  3L, 1L。  1L）。  bar = c（0。 5, 1.5, 2.5,  3。 5, 4.5, 5.5,  
                                                                 6.5, 7.5,  8． 5, 9.5, 10.5,  11. 5, 12. 5）。 組=結構(c(1L。  
                                                                                                                            1L, 1L,。  1L, 1L, 1L。  1L, 1L, 1L。  1L, 1L,  1L), 。 標簽 = "A"。  class = "factor"））。  class = "data. frame",行。 names = c(NA,) 
                                                                                                                                                                                                                                                   -13L））

library(ggplot2)
library(ggh4x)

ggplot(data. bw, aes(bar,num。 填充= group))  
  geom_bar(stat = 'ident',  寬度 = 1）   
  scale_fill_manual(values = c('orange'/span>。  'khaki')   
  scale_y_continuous()
    minor_breaks = seq(0， 90。 通過= 2）,
    突破= seq(0, 90。 通過= 10）。 限制 = c(0。  90）,
    expansion = expansion(mult = c(0。  0))，
    引導 = "axis_minor" 
  ）  
  scale_x_continuous()
    minor_breaks = seq(0,  14, by = 0. 5）,
    突破= seq(0, 14。 通過= 2）。 限制 = c(0。  14）,
    expansion = expansion(mult = c(0。  0))，
    引導 = "axis_minor"
  ）  
  guides(x.sec = "axis_minor",y. sec = "axis_minor"）  
  theme_bw()  
  主題()
    面板。 border = element_rect(colour = "black"。  fill=NA,  size=1），
    plot.background = element_blank(),
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    axis.text.x.top = element_blank(),
    axis.text.y.right = element_blank（）
  )

^{創建于2021-09-13，由reprex包（v2.0.1）}

標籤：

上一篇：如何將y軸標簽改為10^n

下一篇：使用ggplot2將條形圖組合在一起