regulację szerokości legendzie do ciągłej zmiennej w ggplot2

Question

Mam skrypt poniżej w celu zilustrowania moje pytanie:

temp.df <- data.frame(x=1:100,y=1:100,z=1:100,stringsAsFactors=FALSE) 
chart <- ggplot(data=temp.df,aes(x=x,y=y)) 
chart <- chart + geom_line(aes(colour=z)) 
chart <- chart + scale_colour_continuous(low="blue",high="red") 
chart <- chart + theme(legend.position="bottom") 
# so far so good, but I think the legend positioned at bottom with such a small size is a waste of space, so I want to "widen" it using the line below... 
chart <- chart + guides(colour=guide_legend(keywidth=5,label.position="bottom")) 
# oops, it changed to legend for categorical variable 

Jak mogę poszerzyć legendę „ciągła zmienna” umieszczony na dole?

Answer 1

Zamiast funkcji guides() należy użyć funkcji theme() i ustawić legend.key.width=

temp.df <- data.frame(x=1:100,y=1:100,z=1:100,stringsAsFactors=FALSE) 
chart <- ggplot(data=temp.df,aes(x=x,y=y)) 
chart <- chart + geom_line(aes(colour=z)) 
chart <- chart + scale_colour_continuous(low="blue",high="red") 
chart <- chart + theme(legend.position="bottom") 
chart <- chart + theme(legend.key.width=unit(3,"cm")) 

Answer 2

Można użyć guide_colourbar zamiast guide_legend w kodzie:

temp.df <- data.frame(x=1:100,y=1:100,z=1:100,stringsAsFactors=FALSE) 
chart <- ggplot(data=temp.df,aes(x=x,y=y)) 
chart <- chart + geom_line(aes(colour=z)) 
chart <- chart + scale_colour_continuous(low="blue",high="red") 
chart <- chart + theme(legend.position="bottom") 
chart + guides(colour=guide_colourbar(barwidth=30,label.position="bottom"))