以acf函数文档的Example里的数据集lh为例：

中括号运行完出错了
Error in function_list[[k]](value) : 找不到对象'.acf'

无语了。。。代码模块自动把$符号看成是数学公式的标识符

library(dplyr)
lh_acf <- acf(lh)

lh_acf %>% {
  .$acf <− .$acf[-1]
  .$lag <- .$lag[-1]
  dim(.$acf) <− c(length(.$acf, 1, 1)
  dim(.$lag) <− c(length(.$lag), 1, 1)
} -> lh_acf_2

plot(lh_acf_2)