R语言ggplot2画图

#1、基本要素

#数据（Data）和映射（Mapping）

#几何对象（Geometric）

#标尺（Scale）

#统计变换（Statistics）

#坐标系统（Coordinante）

#图层（Layer）

#分面（Facet）

#主题（Theme）

#2、数据和映射

require(ggplot2)

data(diamonds)

set.seed(42)

#在一个数据框里进行抽样1000行数据

small<-diamonds[sample(nrow(diamonds),1000),]

head(small)

length(small)#给出的时small的列数而不是行数

p<-ggplot(data=small,mapping=aes(x=carat,y=price))

p+geom_point()

#用一个类别因子指定图形类别分组用shape=

p <- ggplot(data=small, mapping=aes(x=carat, y=price, shape=cut))

p+geom_point()

#映射颜色colour

p <- ggplot(data=small, mapping=aes(x=carat, y=price, shape=cut, colour=color))

p+geom_point()

#3、几何对像

#ggplot2支持图层，我通常把不同的图层中共用的映射提供给ggplot函数

#而某一几何对象才需要的映射参数提供给geom_xxx函数。

ggplot(small)+geom_histogram(aes(x=price))

#填充颜色

ggplot(small)+geom_histogram(aes(x=price, fill=cut))

#side-by-side地画直方图

ggplot(small)+geom_histogram(aes(x=price, fill=cut), position="dodge")

ggplot(small)+geom_histogram(aes(x=price, fill=cut), position="fill")

ggplot(small)+geom_bar(aes(x=clarity))

#通过stat参数，可以让geom_bar按指定高度画图

ggplot()+geom_bar(aes(x=c(LETTERS[1:3]),y=1:3), stat="identity")

ggplot(small)+geom_density(aes(x=price, colour=cut))

ggplot(small)+geom_density(aes(x=price,fill=clarity))

#colour参数指定的是曲线的颜色，而fill是往曲线下面填充颜色。

ggplot(small)+geom_boxplot(aes(x=cut, y=price,fill=color))

geom_abline geom_area

geom_bar
geom_bin2d

geom_blank geom_boxplot

geom_contour geom_crossbar

geom_density geom_density2d

geom_dotplot geom_errorbar

geom_errorbarh geom_freqpoly

geom_hex geom_histogram

geom_hline
geom_jitter

geom_line geom_linerange

geom_map geom_path

geom_point geom_pointrange

geom_polygon geom_quantile

geom_raster geom_rect

geom_ribbon geom_rug

geom_segment geom_smooth

geom_step geom_text

geom_tile geom_violin

geom_vline

#4、标尺--坐标变化

ggplot(small)+geom_point(aes(x=carat, y=price, shape=cut, colour=color))+scale_y_log10()+scale_colour_manual(values=rainbow(7))

#5、统计变换

#统计变换对原始数据进行某种计算，然后在图上表示出来，例如对散点图上加一条回归线。

ggplot(small, aes(x=carat, y=price))+geom_point()+scale_y_log10()+stat_smooth()

#aes所提供的参数，就通过ggplot提供，而不是提供给geom_point，因为ggplot里的参数，

#相当于全局变量，geom_point()和stat_smooth()都知道x,y的映射，如果只提供给geom_point()，

#则相当于是局部变量，geom_point知道这种映射，而stat_smooth不知道，当然你再给stat_smooth也提供x,y的映射，不过共用的映射，还是提供给ggplot好。

stat_abline stat_contour stat_identity stat_summary

stat_bin stat_density stat_qq stat_summary2d

stat_bin2d stat_density2d stat_quantile stat_summary_hex

stat_bindot stat_ecdf stat_smooth stat_unique

stat_binhex stat_function stat_spoke stat_vline

stat_boxplot stat_hline stat_sum stat_ydensity

#6、坐标系统

#坐标系统控制坐标轴，可以进行变换，例如XY轴翻转，笛卡尔坐标和极坐标转换

ggplot(small)+geom_bar(aes(x=cut, fill=cut))+coord_flip()

ggplot(small)+geom_bar(aes(x=factor(1), fill=cut))+coord_polar(theta="y")

ggplot(small)+geom_bar(aes(x=factor(1), fill=cut))+coord_polar()

ggplot(small)+geom_bar(aes(x=clarity, fill=cut))+coord_polar()

#7、图层

#柱状图+误差图为实例，展示ggplot2非常灵活的图层

#8、分面

#分面可以让我们按照某种给定的条件，对数据进行分组，然后分别画图

ggplot(small, aes(x=carat, y=price))+geom_point(aes(colour=cut))+scale_y_log10() +facet_wrap(~cut)+stat_smooth()

#9、主题

#ggtitle(), xlab()和ylab()等

#改变字体，字体大小，坐标轴，背景等各种元素，这需要通过theme()函数来完成。

theme_economist theme_economist_white

theme_wsj theme_excel

theme_few theme_foundation

theme_igray theme_solarized

theme_stata theme_tufte

#10、二维密度

ggplot(diamonds, aes(carat, price))+ stat_density2d(aes(fill = ..level..), geom="polygon")+ scale_fill_continuous(high='darkred',low='darkgreen')