4.2 从公式中提取组分

4.2.1 问题

你想抽离公式的一部分用来使用。

4.2.2 方案

你可以把公式对象当作列表看待，使用 [[ 操作符对其组分进行操作。

  1. f <- y ~ x1 + x2
  3. # 观察f结构
  4. str(f)
  5. #> Class 'formula'  language y ~ x1 + x2
  6. #>   ..- attr(*, ".Environment")=<environment: R_GlobalEnv>
  8. # 获得每一部分
  9. f[[1]]
  10. #> `~`
  11. f[[2]]
  12. #> y
  13. f[[3]]
  14. #> x1 + x2
  16. # 转换为列表观察
  17. as.list(f)
  18. #> [[1]]
  19. #> `~`
  20. #> 
  21. #> [[2]]
  22. #> y
  23. #> 
  24. #> [[3]]
  25. #> x1 + x2

如果公式左边没有任何东西，那么列表只有两个元素：

  1. f2 <- ~x1 + x2
  2. as.list(f2)
  3. #> [[1]]
  4. #> `~`
  5. #> 
  6. #> [[2]]
  7. #> x1 + x2

公式的每一个元素都是一个符号或者语言对象（包含多个符号）：

  1. str(f[[1]])
  2. #>  symbol ~
  3. str(f[[2]])
  4. #>  symbol y
  5. str(f[[3]])
  6. #>  language x1 + x2
  8. # 查看语言对象某部分
  9. str(f[[3]][[1]])
  10. #>  symbol +
  11. str(f[[3]][[2]])
  12. #>  symbol x1
  13. str(f[[3]][[3]])
  14. #>  symbol x2

你可以使用 as.character() 或 deparse() 函数将它们转为字符串。 deparse() 函数可以返回一个看起来更为自然的结果：

  1. as.character(f[[1]])
  2. #> [1] "~"
  3. # > [1] '~'
  4. as.character(f[[2]])
  5. #> [1] "y"
  6. # > [1] 'y'
  8. # 这里语言对象被强制转换为代表解析树的字符向量
  9. as.character(f[[3]])
  10. #> [1] "+"  "x1" "x2"
  11. # > [1] '+' 'x1' 'x2'
  13. # 使用 deparse() 获取更为自然的结果
  14. deparse(f[[3]])
  15. #> [1] "x1 + x2"
  16. deparse(f)
  17. #> [1] "y ~ x1 + x2"

正如我们在运行 str(f) 命令时看到的那样，公式对象也会捕捉调用它的环境。如果要抽取它，可以使用 environment() 函数：

  1. environment(f)
  2. #> <environment: R_GlobalEnv>