R语言可视化及作图7--ggplot2之标签、图例和标题绘制

library(ggplot2)
head(mtcars)
p <- ggplot(mtcars,aes(wt,mpg,label=rownames(mtcars)))

p+geom_text() #使用geom_text绘制标签散点图

p+geom_label() 

p+geom_point(color='dodgerblue')+geom_text(nudge_x = 0.15,nudge_y = -1)
#所有标签整体向右平移0.15，向下平移1

p+geom_point(color='dodgerblue')+geom_text(nudge_x = 0.1,angle=45)

p+geom_label(aes(fill=factor(cyl)),color='white',fontface='bold',family='Times New Roman')

x <- 1:8
df <- data.frame(x=1:8,y=1.2+x^2)
ggplot(df,aes(x,y))+geom_point()+geom_smooth()+geom_text(aes(x=4,y=40),label='y==1.2+x^2',parse = TRUE,size=7)
#如果parse=FAKSE,图形上显示的就直接是y == 1.2 + x^2，而不是图上的公式。

p <- ggplot(mtcars,aes(x=wt,y=mpg))+geom_point()
p

p+annotate('text',x=4,y=25,label='I love R', size=5,color='forest green',family='Times New Roman')

a= p+annotate('rect',xmin=3,xmax=4.2,ymin=12,ymax=21,alpha=.2,fill='forest green')
a

b=p+annotate('segment',x=2.5,xend=4,y=15,yend=25,color='blue')
b

c=p+annotate('pointrange',x=3.5,y=20,ymin=12,ymax=28,color='red',size=1.5)
c

df <- data.frame(x=1:20,y=1:20,color=letters[1:20])
p <- ggplot(df,aes(x,y))+geom_point(aes(color=color))
p+guide_legend(title = 'legend',nrow=4,ncol=5)
#Error: Can't add `guide_legend(title = "legend", nrow = 4, ncol = 5)` to a ggplot object.
#正确方法：
p+guides(color=guide_legend('my legend',ncol=5,nrow=4,label.position = 'left'))

dat <- data.frame(x=1:5,y=1:5,p=1:5,q=factor(1:5),r=factor(1:5))
pp <- ggplot(dat,aes(x,y,color=p,size=q,shape=r))+geom_point()
#画出散点图，在不对图例进行任何调整的情况下，图形有测也会出现三个图例，分别是color,size,shape
pp+guides(color='colorbar',size='none',shape='legend')

pp+guides(color=guide_colorbar('color'),shape=guide_legend('shape',ncol=5))

pp+guides(color=guide_legend('title'),size=guide_legend('title'),shape=guide_legend('title'))
#三个分类变量都是一个图例，包含了颜色图形和大小

ggplot(mpg,aes(displ,cty))+geom_point(aes(size=hwy,color=cyl,shape=drv))+guides(color=guide_colorbar(order = 2),shape=guide_legend(order = 3),size=guide_legend(order=1))
#order参数接受一个小于等于99的值

pp+scale_color_continuous(guide='colorbar')+
  scale_size_discrete(guide='legend')+
  scale_shape(guide='legend')

pp+scale_color_continuous(guide=guide_colorbar('color'))+
  scale_shape(guide=guide_legend('shape',ncol = 5))+
  scale_size_discrete(guide=guide_legend('size',ncol=5))

pt <- ggplot(mtcars,aes(mpg,wt,color=factor(cyl)))+geom_point()
pt+scale_color_discrete(name='cyl')+
  #由于theme()函数无法定义图例的标题，因此事先用scale函数定义
  theme(legend.title = element_text(color = 'blue',family = 'Times New Roman'),
        legend.background = element_rect(color='red',linetype = 2))

pt+scale_color_discrete(name='cyl')+
  theme(legend.position = 'bottom', #将图例放置在图片底部
        legend.text=element_text(color = 'red',size=13,angle=45),
        #设置图例中图标的标签，颜色为红色，字号为13，并呈45度角放置。
        legend.key = element_rect(color='black',fill = 'orange'), 
        #设置每一个图标的背景，此处边框色设置为黑色，背景填充色为橘黄色。legend.key就是图标
        legend.key.height = unit(1,'cm'),
        legend.key.width = unit(1,'cm'))
#设置图标的大小，注意此处传入的是unit()。unit()用于设置传入的参数的单位。

p <- ggplot(mtcars,aes(mpg,wt,color=factor(cyl)))+geom_point()
p+ggtitle(label = 'New plot title',subtitle = 'subtitle')+
  labs(color='legend')+
  xlab('new x label')+
  ylab('new y label')+
  labs(caption = '(based on mtcars data)')

p+labs(title = 'New plot title')+
  labs(caption = '(based on mtcars data)')+
  theme(plot.title = element_text(color = 'red',size = 9,hjust = 0.5),
        #默认的标题位置出现在左上方，通过hjust参数进行调整，该参数接受一个0-1之间的数值，0表示最左侧，1表示最右侧。
        plot.caption = element_text(color = 'blue'))