R语言入门（二）之ggplot作图

d <- data.frame(x = c(1:10, 1:10),

y = runif(20),

group1 = rep(gl(2, 5, labels = c("a", "b")), 2),

group2 = gl(2, 10))

#将x、y、group1、group2组合成数据框

#runif(n)：生成n个随机数

#gl(n, k) n: 正整数，表示因子的水平个数；k:正整数，表示每个水平重复的次数

ggplot(d,aes(x, y, colour = group1)) +

#基本函数:设定的是图的x轴，y轴，“美学特征”。所谓“美学特征”指的是：#colour或者shape等参数，分别将不同分组以不同颜色/点形表述。这里指的是将group1中#a,b以不同颜色表示。

geom_point() +

#散点图函数

facet_grid(~group2)

#facet_grid(~group2) 分面

ggplot(d,aes(x, y)) +

geom_point() +

stat_smooth(method = "lm",se = T)

#"method = lm"：拟合经典线性回归；se=T：默认95%的置信区间

ggplot(d,aes(x, y)) +

geom_point() + stat_smooth(method = "lm",se = F) +

geom_line() + #折线图函数

facet_grid(~group2)

cor(dx,dy)

cor.test(dx,dy)

#cor.test()函数进行相关性系数的计算和检验

ggplot(diamonds2, aes(x = price)) +

geom_freqpoly()

#频次表，显示不同价格出现的次数

ggplot(diamonds2, aes(x = cut, y = price)) +

geom_violin()

#小提琴图

ggplot(diamonds2, aes(x = cut, y = price)) +

geom_boxplot()

#箱形图

ggplot(diamonds2, aes(x = cut, y = price,colour = cut)) +

#添加颜色，不同cut方式显示不同颜色

geom_boxplot()

ggplot(diamonds2, aes(x = carat, y = price)) +

geom_point()

#散点图

ggplot(diamonds2, aes(carat, price, colour = color,

size = price, alpha = depth)) + geom_point()

#根据不同的color标颜色，点的大小因价格而区分，根据不同的depth显示不同的透明度

ggplot(diamonds2, aes(carat, price, colour = color, size = price)) +

geom_point(alpha = 0.5) +

facet_wrap(~cut)

ggplot(diamonds2, aes(carat, price, colour = color, size = price)) +

geom_point(alpha = 0.5) +

facet_grid(~cut)

#facet_wrap和facet_grid不同在于facet_wrap是基于一个因子进行设置，facets

表示形式为：~变量（~单元格）；而facet_grid是基于两个因子进行设置，facets

表示形式为：变量~变量（行~列），如果把一个因子用点表示，也可以达到

facet_wrap的效果，也可以用加号设置成两个以上变量

ggplot(diamonds2, aes(carat, price, colour = color, size = price)) +

geom_point(alpha = 0.5) +

facet_wrap(~cut, scales = "free_y")

#将y轴分开处理

ggplot(diamonds2, aes(carat, price, colour = color, size = price)) +

geom_point(alpha = 0.5) +

facet_grid(cut~clarity)

ggplot(a1.Petal.long, aes(x = Species , y = Size, colour = Species ) )+

geom_boxplot(size = 0.5, coef = 1) +

geom_jitter()+

#相对于geom_point，geom_jitter()可消除点的重合。

facet_grid(. ~ Petal)+

#分面

scale_y_continuous("Petal.Width",expand=c(0,0) limits = c(0,7) ,

breaks=(seq(0,7,by = 1)))+

#scale_y_continuous（y轴标题，设置坐标轴原点，y轴范围，Y轴刻度间隔）

ggtitle("R") +

#图片主标题

theme_bw() +

#设置图片背景；theme_bw()为传统的白色背景

theme(axis.text.x = element_text(angle = 45, hjust = 1))+

#X坐标轴刻度标签属性

theme(plot.margin = unit(c(0.5,0.5,0.5,0.5), "cm"))

#调整绘图边距