วิธีแก้ไขอัตราส่วนภาพใน ggplot

ฉันกำลังพยายามปรับขนาดพล็อตเพื่อให้พอดีกับเอกสารของฉัน แต่ฉันมีปัญหาในการทำให้ไดอะแกรมพล็อตเป็นสี่เหลี่ยมจัตุรัส

ตัวอย่าง:

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

แม้ว่าขีด จำกัด สำหรับ x และ y จะเหมือนกัน แต่พล็อตในผลลัพธ์จะไม่เป็นกำลังสอง ฉันเดาว่า R สร้างแผงปิด 5x5 "แต่ไม่สนใจขนาดไดอะแกรมจริง

ฉันจะยกเลิกการเรียงลำดับไดอะแกรมของฉันได้อย่างไร

ในggplotกลไกการรักษาอัตราส่วนกว้างยาวของพล็อตของคุณคือการเพิ่มcoord_fixed()เลเยอร์ลงในพล็อต วิธีนี้จะรักษาอัตราส่วนกว้างยาวของพล็อตเองโดยไม่คำนึงถึงรูปร่างของกรอบขอบเขตที่แท้จริง

(ฉันขอแนะนำให้คุณใช้ggsaveเพื่อบันทึกพล็อตผลลัพธ์ของคุณเป็น pdf / png / etc แทนที่จะเป็นpdf(); print(p); dev.off()ลำดับ)

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

theme(aspect.ratio=1)เพื่อให้แน่ใจว่าอัตราส่วนโดยเฉพาะอย่างยิ่งเช่นสำหรับตารางการใช้

คำตอบของ Andrie ไม่ได้ให้ภาพทั้งหมดเนื่องจากตัวอย่างอาจให้ข้อมูลที่ไม่เป็นธรรมชาติโดยที่ช่วงของ x เท่ากับช่วงของ y อย่างไรก็ตามหากข้อมูลเป็น:

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

จากนั้นพล็อตจะมีลักษณะดังนี้:

ฟังก์ชัน Coord_fixed () ยังมีอาร์กิวเมนต์เพื่อปรับอัตราส่วนของแกน:

ratio อัตราส่วนแสดงเป็น y / x

เพื่อให้พล็อตสามารถสร้างเป็นสี่เหลี่ยมจัตุรัสด้วย:

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

แต่คุณต้องปรับค่านี้ด้วยขีด จำกัด ของตัวแปรหรือพื้นที่พล็อต (ไม่ใช่ข้อ จำกัด ทั้งหมดที่หารด้วยจำนวนเต็มอย่างตัวอย่างเหล่านี้ไม่ได้)

เพื่อความสมบูรณ์: หากคุณต้องการคำนึงถึงขีด จำกัด แกนที่แตกต่างกันมาก:

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)

ที่เกิดขึ้นใน: