1. 安装和读取： install.packages("ggplot2")

                             library（ggplot2）

2. 画点图（泰坦尼克数据）：

    Titanic=read.csv("https://goo.gl/4Gqsnz")  #从网络读取数据

    ggplot(data=Titanicclean,aes(x=Age,y=Fare))+geom_point(aes(col=factor(Pclass)))  
# aes是轴，geom_point是画点图，col=factor()是按这个变量分颜色

3. 相同数据画点图+线图，并加总标题：

ggplot(data=Titanicclean,aes(x=Age,y=Fare))+geom_line(aes(col=factor(Pclass)))+geom_point(aes(col=factor(Pclass))) +ggtitle("AAAA")

# geom_line是画线图，ggtitle是加标题

格式为：ggplot(data=Titanicclean,aes(x=Age,y=Fare,col=factor(Pclass)))+geom_line()+geom_point() 

4. 加回归曲线和置信区间：

ggplot(data=Titanicclean,aes(x=Age,y=Fare))+geom_point(aes(col=factor(Pclass)))+geom_smooth(method="lm",se=T)

# lm是线性回归，se=TRUE是显示置信区间

5. 调整散点的大小：

ggplot(data=Titanicclean,aes(x=Age,y=Fare))+geom_point(aes(col=factor(Pclass),size=1.5))+geom_smooth(method="lm",se=T)

# size=多少就是增大或缩小（0.4）多少倍

6. 分组条图：

ggplot(data=Titanicclean,aes(x=Sex,fill=as.factor(Survived)))+geom_bar(position ="dodge")+facet_grid(~Pclass)

#as.factor表示把这个变量变成factor类别的分类变量，position=dodge 表示并列展示，如为stack则表示叠加展示；facet_grid表示按照某变量分组展示

7. 保存图片

ggsave("myplot.pdf",width = 10,height = 7,units = "in")

#保存成什么类型就命名为什么类型，也可以是myplot.png等。unit代表宽度和高度的单位，in是英寸。

如果保存成pdf文件还有另外一种方法，顺便展示一下写for loop，如何将多张图保存到一个PDF文件里：

pdf(file = "mydata.pdf",width = 10,height = 7)    #pdf命令是开始printing into the file

for(i in sort(unique(Pclass))){                               #对每一个舱位等级的人分别画图
print(
  ggplot(data=titanicC[Pclass=i,],aes(x=Age,y=Fare, col=as.factor(Pclass)))+
    geom_point()+
    geom_smooth(method = "lm",se=T)+                             #线性拟合，显示置信区间
    scale_y_log10()                                                                #对Y周取log10对数值
)
}
dev.off()        #dev.off是stop printing