背景介绍
最近又重新把《R数据可视化手册》这本书读了一遍，又有了一些新的体会，将其中的一些重点难点，自己感觉有用且有必要总结的内容，就花了一点时间总结了下来。同时将自己总结的内容，分享给你们。有需要的可以收藏学习。
就是下面这本书，明显被我翻旧了！同时提供了当当网的购书链接，需要的可以购买！个人非常推荐阅读，就像一本工具书，书中以提问的形式进行解答，解决问题，挺不错的。
软件介绍
R、RStudio
温故而知新
1.如何从Excel中读取某个工作表
假如我们的Excel中有3个工作表，需要读取的数据在第2个工作表，该如何读取？
- 使用Excel中工作表的顺序来指定
library(openxlsx)
read.xlsx("datafile.xlsx",sheet = 2)- 使用Excel中工作表的名称来指定
library(openxlsx)
read.xlsx("datafile.xlsx",sheet = "Sheet2")2.如何从SPSS文件中加载数据
假如我们的数据在SPSS中，如何从中读取数据
install.packages("foreign")
library(foreign)
read.spss("datafile.sav")3.如何使用每组两个变量进行绘图？
假如我们的横坐标需要每组两个指标绘图，如何绘图？
下图是ToothGrowth数据集，我们需要以supp和dose为分组进行绘图。
ggplot(ToothGrowth,
aes(interaction(supp,dose),len))+
geom_boxplot()4.某个分类变量的簇状条形图如何绘制？
以下是gcookbook函数包中cabbage_exp的数据集，我们想以Date为分类，Cultivar为填充绘图如何做？
ggplot(cabbage_exp,aes(Date,Weight,fill=Cultivar))+
geom_bar(position = "dodge",stat="identity")如果你想调节两个柱子的距离，可以对position_dodge()和width进行参数的调节
ggplot(cabbage_exp,aes(Date,Weight,fill=Cultivar))+
geom_bar(position = position_dodge(0.7),width=0.5,stat="identity")这里需要强调的是使用position = "dodge"，如果没有这个语法，柱子将不会分开，叠加显示，如下所示。
ggplot(cabbage_exp,aes(Date,Weight,fill=Cultivar))+
geom_bar(stat="identity")5.如何从一个数据集中挑选想要的数据？
比如gcookbook包中uspopchange数据集的Change列，我们只想要其中数值大于5的，如何办到？
library(gcookbook)
subset(uspopchange,Change>5)6.绘图中图形，如何指定颜色？
在绘制具有分组的图形，包括散点图，折线图，柱状图等等，如何对几何图形指定颜色？
比如我们使用mtcars数据集，绘制出了一幅柱状图，由于我们将cyl进行因子化，因此为三种颜色。那么如何更改三种颜色呢
ggplot(mtcars,aes(factor(cyl),mpg,fill=factor(cyl)))+
geom_bar(stat="identity")直接使用scale_fill_manual()函数指定颜色即可，这里注意，指定的颜色需要和分类相同。也就是factor(cyl)有三种，那么你指定三种颜色即可
ggplot(mtcars,aes(factor(cyl),mpg,fill=factor(cyl)))+
geom_bar(stat="identity")+
scale_fill_manual(values = c("red","blue","black"))还有一种指定颜色的方法，我们写出函数后，将鼠标放在values=之后
点击插件Colour Picker(没有的可以使用install.packages(colourpicker)安装一下，就有了)
需要几个颜色，就选择几个颜色即可，点击Done
然后颜色数值就会自动填充进来，运行代码即可，好看的图就出来了
ggplot(mtcars,aes(factor(cyl),mpg,fill=factor(cyl)))+
geom_bar(stat="identity")+
scale_fill_manual(values =c("#F0FFFF", "#FF4040", "#008B8B"))7.图例的顺序如何逆转？
当我们在图中出现图例，那么图例的顺序如何逆转？
- 使用guides()函数，进行fill=guide_legend()的设置，reverse=TRUE即可
ggplot(cabbage_exp,aes(Date,Weight,fill=Cultivar))+
geom_bar(position = position_dodge(0.7),width=0.5,stat="identity")+
guides(fill=guide_legend(reverse=TRUE))8.百分比堆积条形图如何绘制？
如果我们想要绘制百分比堆积条形图，该如何绘制？
首先我们需要计算百分比堆积条形图的数据，我们以cabbage_exp为例，需要计算重量的百分比堆积图
首先计算百分比的数据，这里也可以顺便学一下，如何给一个数据集增加一列数据。
library(plyr)
ce <- ddply(cabbage_exp,"Date",transform,
percent_weight=Weight/sum(Weight)*100)
ce然后开始绘图即可
ggplot(ce,aes(Date,percent_weight,fill=Cultivar))+
geom_bar(stat="identity")9.如何给图形增加数据标签？
想要将数据展示在图形上，怎么做呢？
首先我们构建一个data数据集，分别为横纵坐标，然后绘图，使用geom_text()进行设置即可，还可以设置字体的颜色和大小等
data <- data.frame(a=c(1:5),
b=c(2:6))
ggplot(data,aes(a,b))+
geom_bar(stat="identity")+
geom_text(aes(label=b),vjust=-0.2,size=5,colour="red")10.如何将y轴进行log
数据相差太大，如何对数据进行log
首先使用worldpop数据集进行绘图，我们会发现数据相差太大
library(gcookbook)
ggplot(worldpop,aes(Year,Population))+
geom_line()+
geom_point()接下来，我们对y轴取对数，再看看结果
ggplot(worldpop,aes(Year,Population))+
geom_line()+
geom_point()+
scale_y_log10()赶紧来试试吧！
