`parse_vector()`在R中的pivot文档中使用mutate_at时出现错误。

huangapple
go评论98阅读模式
英文:

`parse_vector()` error when using mutate_at in pivot vignette in R

问题

我在阅读"pivot vignette"时遇到了一个块，当我运行它时出现了错误。如果有人能帮助我解决这个问题，我将不胜感激。

  1. family <- tribble(
  2.   ~family,  ~dob_child1,  ~dob_child2, ~gender_child1, ~gender_child2,
  3.   1L, "1998-11-26", "2000-01-29", 1L, 2L,
  4.   2L, "1996-06-22", NA, 2L, NA,
  5.   3L, "2002-07-11", "2004-04-05", 2L, 2L,
  6.   4L, "2004-10-10", "2009-08-27", 1L, 1L,
  7.   5L, "2000-12-05", "2005-02-28", 2L, 1L,
  8. )
  10. family <- family %>% mutate_at(vars(starts_with("dob")), parse_date)

错误信息：

  1. #Error in `mutate()`:
  2. #i In argument: `dob_child1 = (function (x, format = "", na = c("", "NA"),
  3.   #locale = default_locale(), ...`.
  4. #Caused by error in `parse_vector()`:
  5. #! is.character(x) is not TRUE
英文:

I was reading the pivot vignette and there is a chunk that when I run resulted in an error. I would appreciate if someone could help me with this issue.

  1. family &lt;- tribble(
  2.   ~family,  ~dob_child1,  ~dob_child2, ~gender_child1, ~gender_child2,
  3.   1L, &quot;1998-11-26&quot;, &quot;2000-01-29&quot;,             1L,             2L,
  4.   2L, &quot;1996-06-22&quot;,           NA,             2L,             NA,
  5.   3L, &quot;2002-07-11&quot;, &quot;2004-04-05&quot;,             2L,             2L,
  6.   4L, &quot;2004-10-10&quot;, &quot;2009-08-27&quot;,             1L,             1L,
  7.   5L, &quot;2000-12-05&quot;, &quot;2005-02-28&quot;,             2L,             1L,
  8. )
  10. family &lt;- family %&gt;% mutate_at(vars(starts_with(&quot;dob&quot;)), parse_date)

error:

  1. #Error in `mutate()`:
  2. #i In argument: `dob_child1 = (function (x, format = &quot;&quot;, na = c(&quot;&quot;, &quot;NA&quot;),
  3.   #locale = default_locale(), ...`.
  4. #Caused by error in `parse_vector()`:
  5. #! is.character(x) is not TRUE

答案1

得分: 2

我怀疑问题是因为在对'family'数据框进行更改后没有重新命名它。还请注意，mutate_at() 已被弃用，你可以使用 mutate(across()) 来替代它，例如：

  1. library(tidyverse)
  3. family <- tribble(
  4.   ~family,  ~dob_child1,  ~dob_child2, ~gender_child1, ~gender_child2,
  5.   1L, "1998-11-26", "2000-01-29",             1L,             2L,
  6.   2L, "1996-06-22",           NA,             2L,             NA,
  7.   3L, "2002-07-11", "2004-04-05",             2L,             2L,
  8.   4L, "2004-10-10", "2009-08-27",             1L,             1L,
  9.   5L, "2000-12-05", "2005-02-28",             2L,             1L,
  10. )
  12. family <- family %>% mutate_at(vars(starts_with("dob")), parse_date)
  13. family
  14. #> # A tibble: 5 × 5
  15. #>   family dob_child1 dob_child2 gender_child1 gender_child2
  16. #>    <int> <date>     <date>             <int>         <int>
  17. #> 1      1 1998-11-26 2000-01-29             1             2
  18. #> 2      2 1996-06-22 NA                     2            NA
  19. #> 3      3 2002-07-11 2004-04-05             2             2
  20. #> 4      4 2004-10-10 2009-08-27             1             1
  21. #> 5      5 2000-12-05 2005-02-28             2             1
  23. # 再次运行
  24. family <- family %>% mutate_at(vars(starts_with("dob")), parse_date)
  25. #> Error in `mutate()`:
  26. #> ℹ In argument: `dob_child1 = (function (x, format = "", na = c("",
  27. #>   "NA"), locale = default_locale(), ...`.
  28. #> Caused by error in `parse_vector()`:
  29. #> ! is.character(x) is not TRUE
  30. #> Backtrace:
  31. #>      ▆
  32. #>   1. ├─family %>% mutate_at(vars(starts_with("dob")), parse_date)
  33. #>   2. ├─dplyr::mutate_at(., vars(starts_with("dob")), parse_date)
  34. #>   3. │ ├─dplyr::mutate(.tbl, !!!funs)
  35. #>   4. │ └─dplyr:::mutate.data.frame(.tbl, !!!funs)
  36. #>   5. │   └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
  37. #>   6. │     ├─base::withCallingHandlers(...)
  38. #>   7. │     └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
  39. #>   8. │       └─mask$eval_all_mutate(quo)
  40. #>   9. │         └─dplyr (local) eval()
  41. #>  10. ├─readr (local) `<fn>`(dob_child1)
  42. #>  11. │ └─readr::parse_vector(...)
  43. #>  12. │   └─base::stopifnot(is.character(x))
  44. #>  13. │     └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
  45. #>  14. └─dplyr (local) `<fn>`(`<smplErrr>`)
  46. #>  15.   └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  48. ## 从头开始 ##
  49. family <- tribble(
  50.   ~family,  ~dob_child1,  ~dob_child2, ~gender_child1, ~gender_child2,
  51.   1L, "1998-11-26", "2000-01-29",             1L,             2L,
  52.   2L, "1996-06-22",           NA,             2L,             NA,
  53.   3L, "2002-07-11", "2004-04-05",             2L,             2L,
  54.   4L, "2004-10-10", "2009-08-27",             1L,             1L,
  55.   5L, "2000-12-05", "2005-02-28",             2L,             1L,
  56. )
  58. output1 <- family %>% mutate_at(vars(starts_with("dob")), parse_date)
  59. output1
  60. #> # A tibble: 5 × 5
  61. #>   family dob_child1 dob_child2 gender_child1 gender_child2
  62. #>    <int> <date>     <date>             <int>         <int>
  63. #> 1      1 1998-11-26 2000-01-29             1             2
  64. #> 2      2 1996-06-22 NA                     2            NA
  65. #> 3      3 2002-07-11 2004-04-05             2             2
  66. #> 4      4 2004-10-10 2009-08-27             1             1
  67. #> 5      5 2000-12-05 2005-02-28             2             1
  69. # 'across' 语法
  70. output2 <- family %>% mutate(across(starts_with("dob"), parse_date))
  71. output2
  72. #> # A tibble: 5 × 5
  73. #>   family dob_child1 dob_child2 gender_child1 gender_child2
  74. #>    <int> <date>     <date>             <int>         <int>
  75. #> 1      1 1998-11-26 2000-01-29             1             2
  76. #> 2      2 1996-06-22 NA                     2            NA
  77. #> 3      3 2002-07-11 2004-04-05             2             2
  78. #> 4      4 2004-10-10 2009-08-27             1             1
  79. #> 5      5 2000-12-05 2005-02-28             2             1
  81. all.equal(output1, output
  83. <details>
  84. <summary>英文:</summary>
  86. I suspect the problem is caused by not renaming the &#39;family&#39; dataframe after you make changes to it. Also note that `mutate_at()` is deprecated and you can use `mutate(across())` in it&#39;s place, e.g.
  88. ``` r
  89. library(tidyverse)
  91. family &lt;- tribble(
  92.   ~family,  ~dob_child1,  ~dob_child2, ~gender_child1, ~gender_child2,
  93.   1L, &quot;1998-11-26&quot;, &quot;2000-01-29&quot;,             1L,             2L,
  94.   2L, &quot;1996-06-22&quot;,           NA,             2L,             NA,
  95.   3L, &quot;2002-07-11&quot;, &quot;2004-04-05&quot;,             2L,             2L,
  96.   4L, &quot;2004-10-10&quot;, &quot;2009-08-27&quot;,             1L,             1L,
  97.   5L, &quot;2000-12-05&quot;, &quot;2005-02-28&quot;,             2L,             1L,
  98. )
  100. family &lt;- family %&gt;% mutate_at(vars(starts_with(&quot;dob&quot;)), parse_date)
  101. family
  102. #&gt; # A tibble: 5 &#215; 5
  103. #&gt;   family dob_child1 dob_child2 gender_child1 gender_child2
  104. #&gt;    &lt;int&gt; &lt;date&gt;     &lt;date&gt;             &lt;int&gt;         &lt;int&gt;
  105. #&gt; 1      1 1998-11-26 2000-01-29             1             2
  106. #&gt; 2      2 1996-06-22 NA                     2            NA
  107. #&gt; 3      3 2002-07-11 2004-04-05             2             2
  108. #&gt; 4      4 2004-10-10 2009-08-27             1             1
  109. #&gt; 5      5 2000-12-05 2005-02-28             2             1
  111. # Run it again
  112. family &lt;- family %&gt;% mutate_at(vars(starts_with(&quot;dob&quot;)), parse_date)
  113. #&gt; Error in `mutate()`:
  114. #&gt; ℹ In argument: `dob_child1 = (function (x, format = &quot;&quot;, na = c(&quot;&quot;,
  115. #&gt;   &quot;NA&quot;), locale = default_locale(), ...`.
  116. #&gt; Caused by error in `parse_vector()`:
  117. #&gt; ! is.character(x) is not TRUE
  118. #&gt; Backtrace:
  119. #&gt;      ▆
  120. #&gt;   1. ├─family %&gt;% mutate_at(vars(starts_with(&quot;dob&quot;)), parse_date)
  121. #&gt;   2. ├─dplyr::mutate_at(., vars(starts_with(&quot;dob&quot;)), parse_date)
  122. #&gt;   3. │ ├─dplyr::mutate(.tbl, !!!funs)
  123. #&gt;   4. │ └─dplyr:::mutate.data.frame(.tbl, !!!funs)
  124. #&gt;   5. │   └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
  125. #&gt;   6. │     ├─base::withCallingHandlers(...)
  126. #&gt;   7. │     └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
  127. #&gt;   8. │       └─mask$eval_all_mutate(quo)
  128. #&gt;   9. │         └─dplyr (local) eval()
  129. #&gt;  10. ├─readr (local) `&lt;fn&gt;`(dob_child1)
  130. #&gt;  11. │ └─readr::parse_vector(...)
  131. #&gt;  12. │   └─base::stopifnot(is.character(x))
  132. #&gt;  13. │     └─base::stop(simpleError(msg, call = if (p &lt;- sys.parent(1L)) sys.call(p)))
  133. #&gt;  14. └─dplyr (local) `&lt;fn&gt;`(`&lt;smplErrr&gt;`)
  134. #&gt;  15.   └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  136. ## start from scratch ##
  137. family &lt;- tribble(
  138.   ~family,  ~dob_child1,  ~dob_child2, ~gender_child1, ~gender_child2,
  139.   1L, &quot;1998-11-26&quot;, &quot;2000-01-29&quot;,             1L,             2L,
  140.   2L, &quot;1996-06-22&quot;,           NA,             2L,             NA,
  141.   3L, &quot;2002-07-11&quot;, &quot;2004-04-05&quot;,             2L,             2L,
  142.   4L, &quot;2004-10-10&quot;, &quot;2009-08-27&quot;,             1L,             1L,
  143.   5L, &quot;2000-12-05&quot;, &quot;2005-02-28&quot;,             2L,             1L,
  144. )
  146. output1 &lt;- family %&gt;% mutate_at(vars(starts_with(&quot;dob&quot;)), parse_date)
  147. output1
  148. #&gt; # A tibble: 5 &#215; 5
  149. #&gt;   family dob_child1 dob_child2 gender_child1 gender_child2
  150. #&gt;    &lt;int&gt; &lt;date&gt;     &lt;date&gt;             &lt;int&gt;         &lt;int&gt;
  151. #&gt; 1      1 1998-11-26 2000-01-29             1             2
  152. #&gt; 2      2 1996-06-22 NA                     2            NA
  153. #&gt; 3      3 2002-07-11 2004-04-05             2             2
  154. #&gt; 4      4 2004-10-10 2009-08-27             1             1
  155. #&gt; 5      5 2000-12-05 2005-02-28             2             1
  157. # &#39;across&#39; syntax
  158. output2 &lt;- family %&gt;% mutate(across(starts_with(&quot;dob&quot;), parse_date))
  159. output2
  160. #&gt; # A tibble: 5 &#215; 5
  161. #&gt;   family dob_child1 dob_child2 gender_child1 gender_child2
  162. #&gt;    &lt;int&gt; &lt;date&gt;     &lt;date&gt;             &lt;int&gt;         &lt;int&gt;
  163. #&gt; 1      1 1998-11-26 2000-01-29             1             2
  164. #&gt; 2      2 1996-06-22 NA                     2            NA
  165. #&gt; 3      3 2002-07-11 2004-04-05             2             2
  166. #&gt; 4      4 2004-10-10 2009-08-27             1             1
  167. #&gt; 5      5 2000-12-05 2005-02-28             2             1
  169. all.equal(output1, output2)
  170. #&gt; [1] TRUE

<sup>Created on 2023-06-08 with reprex v2.0.2</sup>

huangapple
  • 本文由 发表于 2023年6月8日 11:15:32
  • 转载请务必保留本文链接：https://go.coder-hub.com/76428386.html
  • dplyr
  • r
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定