Tăng số lượng đánh dấu trục

Tôi đang tạo ra các lô cho một số dữ liệu, nhưng số lượng bọ quá ít, tôi cần độ chính xác hơn trong việc đọc.

Có cách nào để tăng số lượng dấu tick trục trong ggplot2 không?

Tôi biết tôi có thể nói với ggplot sử dụng một vectơ làm dấu tick trục, nhưng điều tôi muốn là tăng số lượng bọ, cho tất cả dữ liệu. Nói cách khác, tôi muốn số đánh dấu được tính từ dữ liệu.

Có thể ggplot thực hiện điều này trong nội bộ với một số thuật toán, nhưng tôi không thể tìm thấy nó hoạt động như thế nào, để thay đổi theo những gì tôi muốn.

Bạn có thể ghi đè lên các tỷ lệ mặc định của ggplots bằng cách sửa đổi scale_x_continuousvà / hoặc scale_y_continuous. Ví dụ:

library(ggplot2)
dat <- data.frame(x = rnorm(100), y = rnorm(100))

ggplot(dat, aes(x,y)) +
  geom_point()

Cung cấp cho bạn điều này:

Và ghi đè lên quy mô có thể cung cấp cho bạn một cái gì đó như thế này:

ggplot(dat, aes(x,y)) +
  geom_point() +
  scale_x_continuous(breaks = round(seq(min(dat$x), max(dat$x), by = 0.5),1)) +
  scale_y_continuous(breaks = round(seq(min(dat$y), max(dat$y), by = 0.5),1))

Nếu bạn chỉ muốn "phóng to" một phần cụ thể của cốt truyện, hãy nhìn xlim()và ylim()tương ứng. Cái nhìn sâu sắc cũng có thể được tìm thấy ở đây để hiểu các lý lẽ khác là tốt.

Dựa trên nhận xét của Daniel Krizian , bạn cũng có thể sử dụng pretty_breakschức năng từ scalesthư viện, được nhập tự động:

ggplot(dat, aes(x,y)) + geom_point() +
scale_x_continuous(breaks = scales::pretty_breaks(n = 10)) +
scale_y_continuous(breaks = scales::pretty_breaks(n = 10))

Tất cả bạn phải làm là chèn số lượng bọ ve muốn n.

Một giải pháp ít hữu ích hơn một chút (vì bạn phải xác định lại biến dữ liệu), bạn có thể sử dụng prettyhàm tích hợp:

ggplot(dat, aes(x,y)) + geom_point() +
scale_x_continuous(breaks = pretty(dat$x, n = 10)) +
scale_y_continuous(breaks = pretty(dat$y, n = 10))

Bạn có thể cung cấp một đối số hàm cho scalevà ggplot sẽ sử dụng hàm đó để tính toán các vị trí đánh dấu.

library(ggplot2)
dat <- data.frame(x = rnorm(100), y = rnorm(100))
number_ticks <- function(n) {function(limits) pretty(limits, n)}

ggplot(dat, aes(x,y)) +
  geom_point() +
  scale_x_continuous(breaks=number_ticks(10)) +
  scale_y_continuous(breaks=number_ticks(10))

Phiên bản sắp tới v3.3.0 ggplot2sẽ có tùy chọn n.breakstự động tạo các ngắt cho scale_x_continuousvàscale_y_continuous

    devtools::install_github("tidyverse/ggplot2")

    library(ggplot2)

    plt <- ggplot(mtcars, aes(x = mpg, y = disp)) +
      geom_point()

    plt + 
      scale_x_continuous(n.breaks = 5)

    plt + 
      scale_x_continuous(n.breaks = 10) +
      scale_y_continuous(n.breaks = 10)

Ngoài ra,

ggplot(dat, aes(x,y)) +
geom_point() +
scale_x_continuous(breaks = seq(min(dat$x), max(dat$x), by = 0.05))

Hoạt động đối với dữ liệu trục x được chia tỷ lệ hoặc rời rạc (Tức là làm tròn không cần thiết).