赞
踩
library(ggplot2)
ggplot(mpg,aes(displ,hwy,color=class))+
geom_point()+
geom_smooth(method = "lm")+
theme(legend.position = "bottom" ,legend.box = "horizontal")+
scale_shape(guide = guide_legend(title.position = "top")) +
scale_colour_discrete(guide = guide_legend(title.position = "top", nrow = 1))
Copyright © 2003-2013 www.wpsshop.cn 版权所有,并保留所有权利。