ggplot2 huyền thoại về phía dưới và ngang

Question

Làm cách nào để di chuyển chú giải ggplot2 xuống cuối cốt truyện và xoay ngang theo chiều ngang?

Mẫu mã:

library(reshape2) # for melt 
df <- melt(outer(1:4, 1:4), varnames = c("X1", "X2")) 
p1 <- ggplot(df, aes(X1, X2)) + geom_tile(aes(fill = value)) 
p1 + scale_fill_continuous(guide = guide_legend()) 

mong muốn (xấp xỉ) kết quả:

Answer 1

Nếu bạn muốn di chuyển vị trí của huyền thoại xin vui lòng sử dụng đoạn mã sau:

library(reshape2) # for melt 
df <- melt(outer(1:4, 1:4), varnames = c("X1", "X2")) 
p1 <- ggplot(df, aes(X1, X2)) + geom_tile(aes(fill = value)) 
p1 + scale_fill_continuous(guide = guide_legend()) + 
    theme(legend.position="bottom") 

Điều này sẽ cung cấp cho bạn kết quả ired.

Answer 2

này không cung cấp cho bạn biết chính xác những gì bạn đã yêu cầu, nhưng ít nhất sẽ đưa các màu sắc với nhau:

+theme(legend.position="bottom",legend.direction="vertical")