Cách chỉ hiển thị các giá trị số nguyên trên trục bằng ggplot2

Tôi có cốt truyện sau:

library(reshape)
library(ggplot2)
library(gridExtra)
require(ggplot2)



data2<-structure(list(IR = structure(c(4L, 3L, 2L, 1L, 4L, 3L, 2L, 1L
), .Label = c("0.13-0.16", "0.17-0.23", "0.24-0.27", "0.28-1"
), class = "factor"), variable = structure(c(1L, 1L, 1L, 1L, 
2L, 2L, 2L, 2L), .Label = c("Real queens", "Simulated individuals"
), class = "factor"), value = c(15L, 11L, 29L, 42L, 0L, 5L, 21L, 
22L), Legend = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c("Real queens", 
"Simulated individuals"), class = "factor")), .Names = c("IR", 
"variable", "value", "Legend"), row.names = c(NA, -8L), class = "data.frame")
p <- ggplot(data2, aes(x =factor(IR), y = value, fill = Legend, width=.15))


data3<-structure(list(IR = structure(c(4L, 3L, 2L, 1L, 4L, 3L, 2L, 1L
), .Label = c("0.13-0.16", "0.17-0.23", "0.24-0.27", "0.28-1"
), class = "factor"), variable = structure(c(1L, 1L, 1L, 1L, 
2L, 2L, 2L, 2L), .Label = c("Real queens", "Simulated individuals"
), class = "factor"), value = c(2L, 2L, 6L, 10L, 0L, 1L, 4L, 
4L), Legend = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c("Real queens", 
"Simulated individuals"), class = "factor")), .Names = c("IR", 
"variable", "value", "Legend"), row.names = c(NA, -8L), class = "data.frame")
q<- ggplot(data3, aes(x =factor(IR), y = value, fill = Legend, width=.15))


##the plot##
q + geom_bar(position='dodge', colour='black') + ylab('Frequency') + xlab('IR')+scale_fill_grey() +theme(axis.text.x=element_text(colour="black"), axis.text.y=element_text(colour="Black"))+ opts(title='', panel.grid.major = theme_blank(),panel.grid.minor = theme_blank(),panel.border = theme_blank(),panel.background = theme_blank(), axis.ticks.x = theme_blank())

Tôi muốn trục y chỉ hiển thị số nguyên. Cho dù điều này được thực hiện thông qua làm tròn hoặc thông qua một phương pháp thanh lịch hơn không thực sự quan trọng đối với tôi.

Với scale_y_continuous()và đối số, breaks=bạn có thể đặt các điểm ngắt cho trục y thành số nguyên mà bạn muốn hiển thị.

ggplot(data2, aes(x =factor(IR), y = value, fill = Legend, width=.15)) +
    geom_bar(position='dodge', colour='black')+
    scale_y_continuous(breaks=c(1,3,7,10))

Nếu bạn có scalesgói, bạn có thể sử dụng pretty_breaks()mà không cần phải chỉ định ngắt theo cách thủ công.

q + geom_bar(position='dodge', colour='black') + 
scale_y_continuous(breaks= pretty_breaks())

Đây là những gì tôi sử dụng:

ggplot(data3, aes(x = factor(IR), y = value, fill = Legend, width = .15)) +
  geom_col(position = 'dodge', colour = 'black') + 
  scale_y_continuous(breaks = function(x) unique(floor(pretty(seq(0, (max(x) + 1) * 1.1)))))

Bạn có thể sử dụng người ghi nhãn tùy chỉnh. Ví dụ: hàm này đảm bảo chỉ tạo ra các ngắt số nguyên:

int_breaks <- function(x, n = 5) {
  l <- pretty(x, n)
  l[abs(l %% 1) < .Machine$double.eps ^ 0.5] 
}

Sử dụng như là

+ scale_y_continuous(breaks = int_breaks)

Nó hoạt động bằng cách lấy các ngắt mặc định và chỉ giữ lại những ngắt là số nguyên. Nếu nó hiển thị quá ít ngắt cho dữ liệu của bạn, hãy tăng lên n, ví dụ:

+ scale_y_continuous(breaks = function(x) int_breaks(x, n = 10))

Những giải pháp này không làm việc cho tôi và không giải thích các giải pháp.

Đối breakssố cho các scale_*_continuoushàm có thể được sử dụng với một hàm tùy chỉnh lấy các giới hạn làm đầu vào và trả về các ngắt làm đầu ra. Theo mặc định, giới hạn trục sẽ được mở rộng 5% ở mỗi bên đối với dữ liệu liên tục (liên quan đến phạm vi dữ liệu). Các giới hạn trục có thể sẽ không phải là giá trị nguyên do sự mở rộng này.

Giải pháp mà tôi đang tìm kiếm chỉ đơn giản là làm tròn giới hạn dưới lên đến số nguyên gần nhất, làm tròn giới hạn trên xuống số nguyên gần nhất và sau đó ngắt ở các giá trị nguyên giữa các điểm cuối này. Do đó, tôi đã sử dụng hàm ngắt:

brk <- function(x) seq(ceiling(x[1]), floor(x[2]), by = 1)

Đoạn mã bắt buộc là:

scale_y_continuous(breaks = function(x) seq(ceiling(x[1]), floor(x[2]), by = 1))

Ví dụ có thể tái tạo từ câu hỏi ban đầu là:

data3 <-
  structure(
    list(
      IR = structure(
        c(4L, 3L, 2L, 1L, 4L, 3L, 2L, 1L),
        .Label = c("0.13-0.16", "0.17-0.23", "0.24-0.27", "0.28-1"),
        class = "factor"
      ),
      variable = structure(
        c(1L, 1L, 1L, 1L,
          2L, 2L, 2L, 2L),
        .Label = c("Real queens", "Simulated individuals"),
        class = "factor"
      ),
      value = c(2L, 2L, 6L, 10L, 0L, 1L, 4L,
                4L),
      Legend = structure(
        c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L),
        .Label = c("Real queens",
                   "Simulated individuals"),
        class = "factor"
      )
    ),
    row.names = c(NA,-8L),
    class = "data.frame"
  )

ggplot(data3, aes(
  x = factor(IR),
  y = value,
  fill = Legend,
  width = .15
)) +
  geom_col(position = 'dodge', colour = 'black') + ylab('Frequency') + xlab('IR') +
  scale_fill_grey() +
  scale_y_continuous(
    breaks = function(x) seq(ceiling(x[1]), floor(x[2]), by = 1),
    expand = expand_scale(mult = c(0, 0.05))
    ) +
  theme(axis.text.x=element_text(colour="black", angle = 45, hjust = 1), 
        axis.text.y=element_text(colour="Black"),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.border = element_blank(),
        panel.background = element_blank(), 
        axis.ticks.x = element_blank())

Google đã đưa tôi đến câu hỏi này. Tôi đang cố gắng sử dụng các số thực theo tỉ lệ ay. Các số tỷ lệ y tính bằng Hàng triệu.

Các quy mô gói commaphương pháp giới thiệu một dấu phẩy để một số lượng lớn của tôi. Bài đăng này trên R-Bloggers giải thích một cách tiếp cận đơn giản bằng commaphương pháp:

library(scales)

big_numbers <- data.frame(x = 1:5, y = c(1000000:1000004))

big_numbers_plot <- ggplot(big_numbers, aes(x = x, y = y))+
geom_point()

big_numbers_plot + scale_y_continuous(labels = comma)

Thưởng thức R :)

Tất cả các câu trả lời hiện có dường như yêu cầu các chức năng tùy chỉnh hoặc không thành công trong một số trường hợp.

Dòng này thực hiện ngắt số nguyên:

bad_scale_plot +
  scale_y_continuous(breaks = scales::breaks_extended(Q = c(1, 5, 2, 4, 3)))

Để biết thêm thông tin, hãy xem tài liệu ?labeling::extended(là một hàm được gọi bởi scales::breaks_extended).

Về cơ bản, đối số Qlà một tập hợp các số đẹp mà thuật toán cố gắng sử dụng để ngắt tỷ lệ. Cốt truyện gốc sản xuất phá vỡ không số nguyên (0, 2,5, 5, và 7.5) vì giá trị mặc định cho Qbao gồm 2.5: Q = c(1,5,2,2.5,4,3).

CHỈNH SỬA: như đã chỉ ra trong một nhận xét, ngắt không phải số nguyên có thể xảy ra khi trục y có một phạm vi nhỏ. Theo mặc định, breaks_extended()cố gắng thực hiện khoảng n = 5ngắt, điều này là không thể khi phạm vi quá nhỏ. Thử nghiệm nhanh cho thấy rằng các phạm vi rộng hơn 0 <y <2,5 cho phép ngắt số nguyên ( ncũng có thể được giảm theo cách thủ công).

Câu trả lời này được xây dựng dựa trên câu trả lời của @ Axeman để giải quyết nhận xét của kory rằng nếu dữ liệu chỉ đi từ 0 đến 1, thì không có ngắt nào được hiển thị ở 1. Điều này dường như là do sự không chính xác trong prettykết quả đầu ra có vẻ như là 1 không giống với 1 (xem ví dụ ở cuối).

Do đó nếu bạn sử dụng

int_breaks_rounded <- function(x, n = 5)  pretty(x, n)[round(pretty(x, n),1) %% 1 == 0]

với

+ scale_y_continuous(breaks = int_breaks_rounded)

cả 0 và 1 đều được hiển thị dưới dạng ngắt.

Ví dụ để minh họa sự khác biệt với Axeman's

testdata <- data.frame(x = 1:5, y = c(0,1,0,1,1))

p1 <- ggplot(testdata, aes(x = x, y = y))+
  geom_point()


p1 + scale_y_continuous(breaks = int_breaks)
p1 + scale_y_continuous(breaks =  int_breaks_rounded)

Cả hai sẽ hoạt động với dữ liệu được cung cấp trong câu hỏi ban đầu.

Minh họa lý do tại sao cần làm tròn số

pretty(c(0,1.05),5)
#> [1] 0.0 0.2 0.4 0.6 0.8 1.0 1.2
identical(pretty(c(0,1.05),5)[6],1)
#> [1] FALSE

Tôi đã tìm thấy giải pháp này từ Joshua Cook và hoạt động khá tốt.

integer_breaks <- function(n = 5, ...) {
fxn <- function(x) {
breaks <- floor(pretty(x, n, ...))
names(breaks) <- attr(breaks, "labels")
breaks
}
return(fxn)
}

q + geom_bar(position='dodge', colour='black') + 
scale_y_continuous(breaks = integer_breaks())

Nguồn là: https://joshuacook.netlify.app/post/integer-values-ggplot-axis/