ggplot2 可视化 Part 2- swirl course

在part 1里我们了解了ggplot2的基本绘图功能qplot, 这次我们来看看另一个重要功能qplot

七个图形对象

DATA FRAME 数据帧
AESTHETIC MAPPINGS 外观图法
GEOMS 几何对象
FACETS 面板
STAT 统计转换，比如bin, smooth
SCALES ？？
COORDINATE SYSTEM 坐标系

ggplot2绘图分步显示

使用层来建立图形

Plot the data 先对数据绘图
Overlay a summary 再把数据概要覆盖在数据图形上面
Metadata and annotation 最后是元数据和注释

qplot(displ, hwy, data=mpg, geom=c("point", "smooth"), facets=.~drv)

散点图-3面板

分步解读画图步骤

>g <- ggplot(mpg,aes(displ, hwy))
> summary(g)
data: manufacturer, model, displ, year, cyl, trans, drv, cty, hwy, fl,
  class [234x11]
mapping:  x = ~displ, y = ~hwy
faceting: <ggproto object: Class FacetNull, Facet, gg>
    compute_layout: function
    draw_back: function
    draw_front: function
    draw_labels: function
    draw_panels: function
    finish_data: function
    init_scales: function
    map_data: function
    params: list
    setup_data: function
    setup_params: function
    shrink: TRUE
    train_scales: function
    vars: function
    super:  <ggproto object: Class FacetNull, Facet, gg>

从摘要中可以看出gg对象中包括：data(mpg), mapping(x,y), faceting(no)

> print(g)
# ggplot 不能用print打印gg对象
g + geom_point()

# 增加平滑曲线
g + geom_point() + geom_smooth()

# 改变平滑功能参数为线性回归
g + geom_point() + geom_smooth(method="lm")

# 子面板分组绘图
g + geom_point() + geom_smooth(method="lm") + facet_grid(. ~ drv)

增加注释

g + geom_point() + geom_smooth(method="lm") + facet_grid(.~drv) + ggtitle("Swirl Rules!")

增加绘图主标题

下面开始来改变图形的外观AESTHETIC, 设置散点的大小,颜色,透明度

 g + geom_point(color="pink", size=4, alpha=1/2)

外观设置，颜色深的表示数据有重叠

按颜色分组，设置aes clor 到一个因子变量，实现不同颜色变量的分组显示

g + geom_point(aes(color = drv), size = 4, alpha = 1/2)

设置color=factor变量

设置标题和标签 (图略)

g + geom_point(aes(color = drv)) + labs(title="Swirl Rules!") +  labs(x="Displacement", y="Hwy Mileage")

定制平滑线

g + geom_point(aes(color = drv),size=2,alpha=1/2) + geom_smooth(size=4,linetype=3,method="lm",se=FALSE)

ggplot图层的复杂例子

> head(testdat)
  x           y
1 1 -1.13782391
2 2  0.57977757
3 3 -0.87085224
4 4 -0.39750827
5 5  0.08576791
6 6  0.92132965
# R原生画图
plot(myx, myy, type = "l", ylim = c(-3,3))

# ggplot 图层演示
g <- ggplot(testdat, aes(x = myx, y = myy))
# 对比原生绘图函数，离线点50，100会压缩整个图形
g + geom_line()
# 显示y轴数值范围，但是图形有中断
g + geom_line() + ylim(-3,3)
# 选择合适的坐标系，笛卡尔坐标，同时设置y轴范围
g + geom_line() + coord_cartesian(ylim=c(-3,3))

plog原生画图

ggplot, 离群点没有丢弃

ggplot，设置y轴范围，图形不连续

ggplot, 设置坐标系

继续以mpg数据集演示

> g <- ggplot(mpg,aes(x=displ,y=hwy,color=factor(year)))
...没有图形显示，因为没有定义图层

> g + geom_point()

子面板分组显示

> g + geom_point() + facet_grid(drv ~ cyl, margins=TRUE)

最后编辑于：2019.03.20 17:02:03