Làm cách nào để sửa tỷ lệ khung hình trong ggplot?

Tôi đang cố gắng thay đổi kích thước của một âm mưu để phù hợp với tài liệu của mình, nhưng tôi gặp khó khăn khi làm cho sơ đồ được vẽ là một hình vuông.

Thí dụ:

pdf(file = "./out.pdf", width = 5, height = 5)
p <- ggplot(mydata, aes(x = col1, y = col2))
print(p)
aux <- dev.off()

Mặc dù các giới hạn cho x và y là như nhau, nhưng biểu đồ trong kết quả không phải là hình vuông. Tôi đoán rằng R làm cho bảng bao quanh 5x5 "nhưng không quan tâm đến kích thước sơ đồ thực tế.

Làm cách nào để gỡ bỏ sơ đồ của tôi?

Trong ggplotcơ chế bảo toàn tỷ lệ khung hình của cốt truyện của bạn là thêm một coord_fixed()lớp vào cốt truyện. Điều này sẽ bảo toàn tỷ lệ co của chính âm mưu, bất kể hình dạng của hộp giới hạn thực tế.

(Tôi cũng khuyên bạn nên sử dụng ggsaveđể lưu âm mưu kết quả của mình thành pdf / png / etc, thay vì pdf(); print(p); dev.off()chuỗi.)

library(ggplot2)
df <- data.frame(
    x = runif(100, 0, 5),
    y = runif(100, 0, 5))

ggplot(df, aes(x=x, y=y)) + geom_point() + coord_fixed()

Để đảm bảo một tỷ lệ khung hình cụ thể, ví dụ như hình vuông, hãy sử dụng theme(aspect.ratio=1).

Câu trả lời của Andrie không cung cấp bức tranh đầy đủ, vì ví dụ cung cấp dữ liệu có lẽ không tự nhiên trong đó phạm vi của x bằng phạm vi của y. Tuy nhiên, nếu dữ liệu là:

df <- data.frame(
  x = runif(100, 0, 50),
  y = runif(100, 0, 5))
ggplot(df, aes(x=x, y=y)) + geom_point() + coord_fixed()

thì cốt truyện sẽ như thế này:

Hàm coord_fixed () cũng có một đối số để điều chỉnh tỷ lệ của các trục:

ratio tỷ lệ co, được biểu thị bằng y / x

Vì vậy, âm mưu có thể được tạo thành hình vuông với:

ggplot(df, aes(x=x, y=y)) + geom_point() + coord_fixed(ratio=10)

Nhưng bạn cần phải điều chỉnh điều này với giới hạn của các biến hoặc diện tích ô (không phải tất cả các giới hạn đều chia hết cho các số nguyên như các ví dụ này).

Vì lợi ích hoàn chỉnh: Nếu bạn muốn tính đến các giới hạn trục rất khác:

df <- data.frame(
  x = runif(100, 0, 5000),
  y = runif(100, 0, 5))
ratio.display <- 4/3
ratio.values <- (max(df$x)-min(df$x))/(max(df$y)-min(df$y))
plot <- ggplot(df, aes(x=x, y=y)) + geom_point()
plot + coord_fixed(ratio.values / ratio.display)

Dẫn đến: