2012-08-29 39 views
5

Tôi đã cố gắng thiết lập một tiêu đề chung duy nhất, và độc đáo chung xy-trục nhãn cho 4 ô phụ kết hợp:kiểm soát các thông số tiêu đề của một âm mưu trong R

dev.new(width = 9, height = 10) 
layout(matrix(c(0, 1, 1, 2, 3, 4, 2, 5, 6, 0, 7, 7), 4, 3, byrow = TRUE), widths = c(1, 4, 4), heights = c(1, 4, 4, 1)) 
par(mar = c(1, 0, 1, 0)) 
plot(c(1:2), type = "n", xlab = "", ylab = "", axes = F, cex = 0.7) #general title 
title(main = "title", ps = 2) 
par(mar = c(1, 0, 1, 1)) 
plot(c(1:2), type = "n", xlab = "", ylab = "", axes = F, las = 2, cex = 0.7) #general y-label 
title(main = " y-label ", las = 0) 
par(cex= 0.9, mar = c(5, 1, 1, 2)) 
plot(c(1:10), type="l", xlab = "A", ylab = "", axes = T, las = 1, cex = 0.7) # first subplot 
par(cex= 0.9, mar = c(5, 1, 1, 3)) 
plot(c(10:1), type ="l", xlab = "B", ylab = "", axes = T, las = 1, cex = 0.7) # second subplot 
par(cex= 0.9, mar = c(5, 1, 1, 2)) 
plot(c(1:10), type="l", xlab = "C", ylab = "", axes = T, las = 1, cex = 0.7) # third subplot 
par(cex= 0.9, mar = c(5, 1, 1, 3)) 
plot(c(1:2), type="l", xlab = "D", ylab = "", axes = T, las = 1, cex = 0.7) # fourth subplot 
par(mar = c(1, 0, 1, 0)) 
plot(c(1:2), type = "n", xlab = "", ylab = "", axes = F, cex = 0.7) #general x-label 
title(main = " x-label ") 

Làm thế nào tôi có thể kiểm soát cho cỡ chữ, vị trí và định hướng của các chức danh này?

Trả lời

7

Điều bạn đang tìm kiếm là một lề ngoài cho toàn bộ hình. Đặt nó với par(oma=...) và thêm nhãn trục và tiêu đề trong đó với mtext(..., outer=TRUE).

par(mfrow=c(2,2), oma=c(3,3,4,0), mar=c(4,2,1,1), las=1, cex=0.7) 
plot(1:10, type="l", xlab="A", ylab="") 
plot(10:1, type ="l", xlab="B", ylab="") 
plot(1:10, type="l", xlab="C", ylab="") 
plot(1:2, type="l", xlab="D", ylab="") 
mtext("X-label", 1, 1, outer=TRUE) 
mtext("Y-label", 2, 1, outer=TRUE, las=0) 
mtext("Title", 3, 1, outer=TRUE, cex=2) 

enter image description here

Lưu ý rằng 1:10 tương đương với c(1:10) và rằng tất cả par cài đặt mà không liên tục trên tấm A-D chỉ cần được thiết lập một lần, trong par gọi.

+0

Cảm ơn bạn rất nhiều! Tôi đã giải quyết một cách rất thô lỗ bằng cách sử dụng tham số xlab và ylab của các ô trống được đặt trong trang web tương ứng của bố cục –

+0

Tôi đã từng làm điều đó cho đến tuần trước khi một cô gái mới tại văn phòng tình cờ gặp 'oma'. Tâm trí bị thổi bay. – Backlin

Các vấn đề liên quan