Vẽ nhiều barplots trên đồ thị trong R [đã đóng]

Tôi muốn vẽ bốn biểu đồ trên một biểu đồ trong R. Tôi đã sử dụng đoạn mã sau. Ở đây, làm thế nào có thể giữ một chú giải trên đầu biểu đồ, cụ thể là chú giải nên nằm trong khoảng từ 2 đến 3 barplots. Tôi cũng đã thử với par(mar=c(4.1,4.1,8.1,4.1)nhưng không có thành công. Hơn nữa, tôi cũng đã cố chạylegend() sau barplot thứ hai, nhưng không có sử dụng. Truyền thuyết là cho tất cả bốn barplots. Xin hãy giúp tôi trong việc này.

    par(mfrow=c(1,4))
    barplot(t(A), beside=T, ylim=c(-100,100),..)
    barplot(t(B), beside=T, ylim=c(-100,100),..)
    barplot(t(C), beside=T, ylim=c(-100,100),..)
    barplot(t(D), beside=T, ylim=c(-100,100),..)
    legend(...)

Câu trả lời của Tiến sĩ Mike là một câu hỏi hay, nhưng tôi nghĩ rằng tôi sẽ cung cấp các giải pháp tận dụng các tính năng tạo mặt (hoặc đánh dấu) của ggplot2và lattice. Đầu tiên chuẩn bị dữ liệu một chút:

mydata$id <- 1:nrow(mydata)
dat <- melt(mydata,id.vars = "id")

và sau đó chúng ta có thể thực hiện như sau ggplot2:

ggplot(dat,aes(x=factor(id), y = value)) + 
    facet_wrap(~variable) +
    geom_bar(aes(fill = factor(id)))

và sử dụng lattice:

barchart(~value|variable,group = factor(id),data=dat,
         key = simpleKey(text = as.character(1:5),
                rectangles = TRUE,points = FALSE,space = "right"))

Tôi nghĩ rằng giải pháp đơn giản nhất là sử dụng các khả năng vốn có của lệnh barplot để giải quyết vấn đề của bạn. Các mã sau đây làm những gì tôi giải thích rằng bạn muốn thực hiện.

mydata <- data.frame(Barplot1=rbinom(5,16,0.6), Barplot2=rbinom(5,16,0.25),
                     Barplot3=rbinom(5,5,0.25), Barplot4=rbinom(5,16,0.7))
barplot(as.matrix(mydata), main="Interesting", ylab="Total", beside=TRUE, 
        col=terrain.colors(5))
legend(13, 12, c("Label1","Label2","Label3","Label4","Label5"), cex=0.6, 
       fill=terrain.colors(5))

Hy vọng điều này trả lời câu hỏi của bạn.