是管道函数啦，就是把左件的值发送给右件的表达式，并作为右件表达式函数的第一个参数。
anscombe_tidy <- anscombe %>%mutate(observation = seq_len(n()))
以上代码等价于
anscombe_tidy=mutate(anscombe,observation = seq_len(n()))
管道函数还是很好哒，好处我就不说了^.^ 自己体会
Weight<-c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14)Height<-c(1.75, 1.8, 1.65, 1.9, 1.74, 1.91, 1.75, 1.8, 1.65, 1.9)
save1<-data.frame(Weight,Height)
//身高体重数据写入文本文件
write.csv(save1, file = "foo1.csv", sep = ",", col.names = TRUE)
//读取数据至data数据框
foo<-read.csv("foo1.csv", header=T, sep=",")
//data数据框新增一列bmi变量
data.frame(Weight,Height,BMI=Weight/Height)
//计算weight和height的平方的比值存入bmi变量
save2<-data.frame(save1,BMI=foo$1/foo$2)
//将更新后的data数据框写入文件。
write.csv(save2, file = "foo2.csv", sep = ",", col.names = TRUE)
