ggplot2プロットの垂直グリッド線を抑制するにはどうすればよいですか？

水平（x）配置の指標として棒で十分な棒グラフを作成しているので、余分な垂直グリッド線を描画しないようにします。

opts（）でマイナーグリッドラインとメジャーグリッドラインのスタイルを設定する方法は理解していますが、垂直グリッドラインだけを抑制する方法を一生理解することはできません。

library(ggplot2)

data <- data.frame(x = 1:10, y = c(3,5,2,5,6,2,7,6,5,4))

ggplot(data, aes(x, y)) +
  geom_bar(stat = 'identity') +
  opts(
    panel.grid.major = theme_line(size = 0.5, colour = '#1391FF'),
    panel.grid.minor = theme_line(colour = NA),
    panel.background = theme_rect(colour = NA),
    axis.ticks = theme_segment(colour = NA)
  )

この時点で、すべてのグリッド線を抑制してから、geom_hline（）でそれらを引き戻す必要があるように見えますが、これは一種の苦痛のようです（また、ティックを見つける方法が完全には明確ではありません） / geom_hline（）にフィードする主要なグリッド線の位置。）

どんな考えでもいただければ幸いです！

使ってみてください

scale_x_continuous（breaks = NULL）

これにより、すべての垂直グリッド線とx軸の目盛りラベルが削除されます。

ggplot2 0.9.2以降、これは「テーマ」を使用して行うのがはるかに簡単になりました。以下に示すように、テーマをpanel.grid.major.xとpanel.grid.major.yに別々に割り当てることができるようになりました。

#   simulate data for the bar graph
data <- data.frame( X = c("A","B","C"), Y = c(1:3) )    

#   make the bar graph
ggplot( data  ) +
    geom_bar( aes( X, Y ) ) +
    theme( # remove the vertical grid lines
           panel.grid.major.x = element_blank() ,
           # explicitly set the horizontal lines (or they will disappear too)
           panel.grid.major.y = element_line( size=.1, color="black" ) 
    )

この例の結果は非常に見苦しいですが、水平線とx軸の目盛りを保持しながら垂直線を削除する方法を示しています。

これにより、データポイントのみが残ります。

ggplot(out, aes(X1, X2)) + 
    geom_point() + 
    scale_x_continuous(breaks = NULL) + 
    scale_y_continuous(breaks = NULL) + 
    opts(panel.background = theme_blank()) + 
    opts(axis.title.x = theme_blank(), axis.title.y = theme_blank())

関連するスレッドから私の答えをコピーして、

2020年にこれを調べている人のために、ggExtraライブラリからremoveGrid関数の形式で解決策を見つけました。rdrr.io> removeGrid

ggplot2バージョン3.3.0およびggExtraバージョン0.9で動作することをテストし、グリッド線のない軸ティックを取得しました。

オプション1：

data_df <- data.frame(x = 1:10, y = c(3,5,2,5,6,2,7,6,5,4))

ggplot(data_df, aes(x, y)) +
  geom_bar(stat = 'identity') +
  theme(panel.background = element_rect(fill = "white"))

オプション2：

data_df <- data.frame(x = 1:10, y = c(3,5,2,5,6,2,7,6,5,4))
    
ggplot(data_df, aes(x, y)) +
      geom_bar(stat = 'identity') +
      theme(
        panel.grid.major.x = element_blank(),
        panel.grid.minor.x = element_blank(),
        panel.grid.major.y = element_blank(),
        panel.grid.minor.y = element_blank()
      )