Làm cách nào để loại bỏ các đường lưới dọc trong một biểu đồ ggplot2?

Tôi đang xây dựng một biểu đồ thanh mà các thanh này đủ để chỉ ra vị trí ngang (x), vì vậy tôi muốn tránh vẽ các đường lưới dọc thừa.

Tôi hiểu cách tạo kiểu cho các đường lưới phụ và chính trong opts (), nhưng tôi không thể tìm ra cách để chỉ các đường lưới dọc.

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)
  )

Tại thời điểm này, có vẻ như tôi sẽ phải ngăn chặn tất cả các đường lưới và sau đó vẽ chúng trở lại bằng geom_hline (), điều này có vẻ giống như một nỗi đau (cũng không hoàn toàn rõ ràng làm thế nào tôi có thể tìm thấy dấu tích / các vị trí đường lưới chính để cung cấp cho geom_hline ().)

Bất kỳ suy nghĩ sẽ được đánh giá cao!

Hãy thử sử dụng

scale_x_continuous (break = NULL)

Điều này sẽ xóa tất cả các đường lưới dọc cũng như các nhãn đánh dấu trục x.

Kể từ ggplot2 0.9.2, điều này đã trở nên dễ dàng hơn nhiều khi sử dụng "chủ đề". Giờ đây, bạn có thể chỉ định riêng các chủ đề cho panel.grid.major.x và panel.grid.major.y, như minh họa bên dưới.

#   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" ) 
    )

Kết quả của ví dụ này trông khá xấu, nhưng nó cho thấy cách loại bỏ các đường thẳng đứng trong khi vẫn giữ nguyên các đường ngang và dấu tích trục x.

Điều này chỉ để lại cho bạn các điểm dữ liệu:

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())

Sao chép câu trả lời của tôi từ một chuỗi liên quan,

Đối với những người đang tìm kiếm vấn đề này vào năm 2020, tôi đã tìm thấy giải pháp dưới dạng hàm removeGrid từ thư viện ggExtra tại đây rdrr.io> removeGrid

Tôi đã kiểm tra nó hoạt động với ggplot2 phiên bản 3.3.0 và ggExtra phiên bản 0.9, cho tôi dấu tích trục mà không có đường lưới.