ggplot2 किंवदंती नीचे और क्षैतिज

Question

मैं एक ggplot2 किंवदंती को साजिश के नीचे कैसे ले जा सकता हूं और इसे क्षैतिज रूप से चालू कर सकता हूं?

नमूना कोड:

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

वांछित (अनुमानित) परिणाम:

Answer 1

आप कथा की स्थिति निम्नलिखित कोड का उपयोग करें स्थानांतरित करने के लिए करना चाहते हैं:

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

यह आपको देनदार देना चाहिए नतीजा परिणाम

Answer 2

यह आपको देना नहीं है आप के लिए वास्तव में क्या पूछ रहे थे, लेकिन कम से कम रंग एक साथ रखा जाएगा:

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