# 加载需要的包 
 library(tidyverse)
 library(gcookbook)

1.scale_shape_manual设置想要的shape

 ggplot(heightweight,aes(ageYear,heightIn,shape=sex))+ geom_point()+  scale_shape_manual(values = c(1,2)) ggsave("1.jpg")

2.scale_fill_gradient设置legend的颜色

 ggplot(heightweight,aes(weightLb,heightIn,fill=ageYear))+  geom_point(shape=21,size=3)+  scale_fill_gradient(low="black",high="red")

3.Alpha参数修改透明度

 ggplot(diamonds,aes(carat,price))+  geom_point(alpha=.1)

4.bin设置区分度，scale_fill_gradient limit设置上下标

 sp <- ggplot(diamonds,aes(carat,price)) sp+stat_bin2d(bins = 50)+  scale_fill_gradient(low="lightblue",high="red",limits=c(0,6000))

5.stat_smooth(method=lm)对散点图增加线性回归

 sp1 <- ggplot(heightweight,aes(ageYear,heightIn))+  geom_point() sp1+stat_smooth(method = lm)

6.Annotate添加文本

 sp1+annotate("text",label="r^2=0.42",x=16,y=52)

7.geom_text(aes(label=))批量添加标签

 sp1+geom_text(aes(label=sex),size=3)

8.geom_text通过设置x=确定确定标签位置

 sp1+geom_text(aes(ageYear+0.2,label=sex,size=2))

9.stat_density2d()画二维散点图

 sp2 <-ggplot(faithful,aes(eruptions,waiting))+  geom_point()+  stat_density2d()

10.position图形的位置关系,相邻的两个柱子是分开还是重叠在一起

 ggplot(cabbage_exp,aes(Date,Weight,fill=Cultivar))+  geom_bar(stat = "identity",position ="dodge")

11.width调整柱形图的宽度

 ggplot(cabbage_exp,aes(Date,Weight,fill=Cultivar))+  geom_bar(stat = "identity",width=.5)

12.position=position_dodge(0.7)

 ggplot(cabbage_exp,aes(Date,Weight,fill=Cultivar))+  geom_bar(stat = "identity",position=position_dodge(0.7),width = .65)

13.coord_polar()柱形图升级台风图

 ggplot(wind,aes(DirCat,fill=SpeedCat))+  geom_histogram(binwidth = 15,boundary=-7.5)+  coord_polar()+  scale_x_continuous(limits = c(0,360))

14.坐标轴的位置设置

 sp1 <- ggplot(heightweight,aes(ageYear,heightIn))+  geom_point() sp1+coord_fixed()+  scale_y_continuous(breaks = seq(50,80,5))+  scale_x_continuous(breaks = seq(12,16,1))

15.breaks=NULL去除y或者x的刻度

 sp1+scale_y_continuous(breaks = NULL)+  scale_x_continuous(breaks = NULL)

16.scale_y_continuous修改刻度上的标签

 sp1+scale_y_continuous(breaks=c(50,55,60,65),labels = c("fifty","fifty-five","sixty","sixty-five"))

17.theme(axis.text.x=element_text)修改字体颜色

 sp1+theme(axis.text.x =element_text(face = "italic",colour = "red",size=rel(2)), axis.text.y =element_text(face = "italic",colour = "blue",size=rel(2)))

18.xlab和ylab添加标题

 sp1+xlab("这是x轴")+  ylab("这是y轴")

19.theme(axis.line=element_line(colour="black"))坐标轴更改颜色

 # xy一起改
 sp1+theme(axis.line = element_line(colour = "red")) # 只改一个轴 
 sp1+theme(axis.line.x = element_line(colour = "red",size = 1),axis.line.y=element_line(colour = "blue",size=2)) 

20.binwidth设置每个bin的宽度

 ggplot(faithful,aes(waiting))+geom_histogram(binwidth = 5,fill="red",                 colour="blue",size=2)