Làm cho trục y tỷ lệ dotplot như đối với biểu đồ

Question

Chúng tôi đang sử dụng chấm điểm trong thiết lập lớp học để giới thiệu biểu đồ, vì khái niệm binning là khó hiểu đối với nhiều sinh viên. Vì vậy, chúng ta bắt đầu với dotplot mà là tương tự nhưng trực quan hơn:

x <- rnorm(100) 
qplot(x, geom = "bar") 
qplot(x, geom = "dotplot", method="histodot") 

Bởi vì sinh viên làm điều này trên dữ liệu riêng của họ, mã cần phải làm việc mà không không quan trọng bằng tay. Tuy nhiên, geom_dotplot dường như sử dụng các giá trị mặc định chia tỷ lệ khác nhau hơn geom_bar. Trục y không điều chỉnh với dữ liệu, nhưng dường như chỉ phụ thuộc vào kích thước của các dấu chấm. Ví dụ:

x <- runif(1000) 
qplot(x, geom = "bar") 
qplot(x, geom = "dotplot", method="histodot") 

Làm thế nào tôi có thể làm cho geom_dotplot với stat_histodot quy mô trục y chính xác vì nó sẽ làm cho biểu đồ, hoặc bằng cách sử dụng nhỏ hơn hoặc chồng chéo chấm?

Answer 1

tôi đã đưa ra những cách giải quyết sau đó co lại các binwidth cho đến khi mọi thứ phù hợp trên trang:

# This function calculates a default binwidth that will work better 
# for the dotplot with large n than the ggplot2 default. 
calculate_smart_binwidth <- function(x, aspect_ratio = 2/3){ 
    x <- as.numeric(x) 
    nbins <- max(30, round(sqrt(length(x))/aspect_ratio)) 
    range <- range(x, na.rm = TRUE, finite = TRUE) 
    if(diff(range) == 0) return(NULL) 
    repeat { 
    message("trying nbins: ", nbins) 
    binwidth <- diff(range)/nbins; 
    highest_bin <- max(ggplot2:::bin(x, binwidth = binwidth)$count); 
    if(highest_bin < aspect_ratio * nbins) return(binwidth) 
    nbins <- ceiling(nbins * 1.03); 
    } 
} 

Ví dụ:

x <- runif(1e4) 
qplot(x, geom="dotplot", binwidth=calculate_smart_binwidth(x)) 

x <- rnorm(1e4) 
qplot(x, geom="dotplot", binwidth=calculate_smart_binwidth(x))