作者：黄天元，复旦大学博士在读，热爱数据科学与R，热衷推广R在工业界与学术界的应用。邮箱：huang.tian-yuan@qq.com.欢迎合作交流

知乎的bug，一直没有办法正确上传本章节，所以就直接给出R代码了。不过CSDN貌似可以正确显示，该兴趣可以直接过去看（R语言ETL工程：创建字段（mutate） - hope_ecology的博客 - CSDN博客）。

## ----message=FALSE-------------------------------------------------------

library(tidyverse)

library(nycflights13)

## ------------------------------------------------------------------------

iris %>%

mutate(zeros = 0) %>%

head

## ------------------------------------------------------------------------

flights %>%

select(dep_time,arr_time) %>%

mutate(time = arr_time - dep_time)

## ------------------------------------------------------------------------

flights %>%

transmute(dep_time,arr_time,time = arr_time - dep_time)

## ------------------------------------------------------------------------

flights %>%

select(year,month,day,origin,dest) -> fl_ymd

fl_ymd

## ------------------------------------------------------------------------

fl_ymd %>%

mutate(origin_dest = str_c(origin,dest,sep = "_")) -> fl_ymd.1

fl_ymd.1

## ------------------------------------------------------------------------

#等价于

fl_ymd %>%

unite(col = origin_dest,origin,dest) -> fl_ymd.2

fl_ymd.2

## ------------------------------------------------------------------------

fl_ymd.2 %>%

separate(col = origin_dest, into = c("origin","dest"))