r - 为什么 tidyr `complete()` 没有在 R 中完成？-6ren

r - 为什么 tidyr `complete()` 没有在 R 中完成？

转载作者：行者123 更新时间：2023-12-04 11:59:29

complete.test <- tibble(col1 = c("a", "a", "b", "b"),
                        col2 = c(as.Date("2019-01-01"),
                                 as.Date("2019-01-02"),
                                 as.Date("2019-01-03"),
                                 as.Date("2019-01-04")),
                        col3 = runif(4),
                        col4 = runif(4))
complete.test %>% complete(col1, col2)
#> # A tibble: 8 x 4
#>   col1  col2         col3   col4
#>   <chr> <date>      <dbl>  <dbl>
#> 1 a     2019-01-01  0.154  0.143
#> 2 a     2019-01-02  0.746  0.526
#> 3 a     2019-01-03 NA     NA    
#> 4 a     2019-01-04 NA     NA    
#> 5 b     2019-01-01 NA     NA    
#> 6 b     2019-01-02 NA     NA    
#> 7 b     2019-01-03  0.997  0.772
#> 8 b     2019-01-04  0.989  0.460

整理师 complete()功能像上面一样工作。但是如果我们使用下面显示的特定数据集，它就会“停止”工作。可能是用户错误。请继续阅读。

library(tidyverse)
df <- structure(list(`Business Group` = c("ABC", "ABC", "ABC", 
"ABC", "ABC", "ABC", "ABC", "ABC", "ABC", 
"ABC", "DEF", "DEF", "DEF", "DEF", "DEF", 
"DEF", "DEF", "DEF", "GHI", "GHI", 
"GHI", "GHI", "GHI", 
"GHI", "GHI", "GHI", 
"GHI", "GHI", "GHI", 
"GHI"), Month = structure(c(17866, 17897, 17928, 
17956, 17987, 18017, 18048, 18078, 18109, 18140, 17956, 17987, 
18017, 18048, 18078, 18109, 18140, 18170, 13970, 14000, 14031, 
14061, 14092, 14123, 14153, 14184, 14214, 14245, 14276, 14304
), class = "Date"), SumChange = c(0, 0, 0, 1, 1, 1, 1, 1, 0, 
0, 0, 0, 0, 0, 0, 0, 0, -3, 0, 0, 0, 0, 2, 0, -12, 3, 4, 3, 4, 
3), `Qty Items Open 90 Days` = c(0, 0, 0, 1, 2, 3, 4, 5, 5, 5, 
0, 0, 0, 0, 0, 0, 0, -3, 0, 0, 0, 0, 2, 2, -10, -7, -3, 0, 4, 
7)), row.names = c(NA, -30L), groups = structure(list(`Business Group` = c("ABC", 
"DEF", "GHI"), .rows = list(1:10, 11:18, 19:30)), row.names = c(NA, 
-3L), class = c("tbl_df", "tbl", "data.frame"), .drop = FALSE), class = c("grouped_df", 
"tbl_df", "tbl", "data.frame"))

#> # A tibble: 30 x 4
#> # Groups:   Business Group [3]
#>    `Business Group` Month      SumChange `Qty Items Open 90 Days`
#>    <chr>            <date>         <dbl>                    <dbl>
#>  1 ABC              2018-12-01         0                        0
#>  2 ABC              2019-01-01         0                        0
#>  3 ABC              2019-02-01         0                        0
#>  4 ABC              2019-03-01         1                        1
#>  5 ABC              2019-04-01         1                        2
#>  6 ABC              2019-05-01         1                        3
#>  7 ABC              2019-06-01         1                        4
#>  8 ABC              2019-07-01         1                        5
#>  9 ABC              2019-08-01         0                        5
#> 10 ABC              2019-09-01         0                        5
#> 11 DEF              2019-03-01         0                        0
#> 12 DEF              2019-04-01         0                        0
#> 13 DEF              2019-05-01         0                        0
#> 14 DEF              2019-06-01         0                        0
#> 15 DEF              2019-07-01         0                        0
#> 16 DEF              2019-08-01         0                        0
#> 17 DEF              2019-09-01         0                        0
#> 18 DEF              2019-10-01        -3                       -3
#> 19 GHI              2008-04-01         0                        0
#> 20 GHI              2008-05-01         0                        0
#> 21 GHI              2008-06-01         0                        0
#> 22 GHI              2008-07-01         0                        0
#> 23 GHI              2008-08-01         2                        2
#> 24 GHI              2008-09-01         0                        2
#> 25 GHI              2008-10-01       -12                      -10
#> 26 GHI              2008-11-01         3                       -7
#> 27 GHI              2008-12-01         4                       -3
#> 28 GHI              2009-01-01         3                        0
#> 29 GHI              2009-02-01         4                        4
#> 30 GHI              2009-03-01         3                        7

可以看到上面的数据框由三组“ABC”、“DEF”和“GHI”组成。我知道 complete(`Business Group`, Month)函数的行为不像我期望的那样，因为它没有完成数据框，其中缺少 Business Group 的数据组合。和 Month . “GHI”业务组的历史可以追溯到 2009 年，“ABC”和“DEF”组尚未完成。此外，什么都没有完成。知道出了什么问题吗？

df %>% complete(`Business Group`, Month) 
#> # A tibble: 30 x 4
#> # Groups:   Business Group [3]
#>    `Business Group` Month      SumChange `Qty Items Open 90 Days`
#>    <chr>            <date>         <dbl>                    <dbl>
#>  1 ABC              2018-12-01         0                        0
#>  2 ABC              2019-01-01         0                        0
#>  3 ABC              2019-02-01         0                        0
#>  4 ABC              2019-03-01         1                        1
#>  5 ABC              2019-04-01         1                        2
#>  6 ABC              2019-05-01         1                        3
#>  7 ABC              2019-06-01         1                        4
#>  8 ABC              2019-07-01         1                        5
#>  9 ABC              2019-08-01         0                        5
#> 10 ABC              2019-09-01         0                        5
#> 11 DEF              2019-03-01         0                        0
#> 12 DEF              2019-04-01         0                        0
#> 13 DEF              2019-05-01         0                        0
#> 14 DEF              2019-06-01         0                        0
#> 15 DEF              2019-07-01         0                        0
#> 16 DEF              2019-08-01         0                        0
#> 17 DEF              2019-09-01         0                        0
#> 18 DEF              2019-10-01        -3                       -3
#> 19 GHI              2008-04-01         0                        0
#> 20 GHI              2008-05-01         0                        0
#> 21 GHI              2008-06-01         0                        0
#> 22 GHI              2008-07-01         0                        0
#> 23 GHI              2008-08-01         2                        2
#> 24 GHI              2008-09-01         0                        2
#> 25 GHI              2008-10-01       -12                      -10
#> 26 GHI              2008-11-01         3                       -7
#> 27 GHI              2008-12-01         4                       -3
#> 28 GHI              2009-01-01         3                        0
#> 29 GHI              2009-02-01         4                        4
#> 30 GHI              2009-03-01         3                        7

最佳答案

这是一个分组tbl_df

library(dplyr)
library(tidyr)
df %>% 
   group_vars()
 #[1] "Business Group"

ungroup它应该工作

df %>% 
   ungroup %>% 
   complete(`Business Group`, Month)
# A tibble: 69 x 4
#   `Business Group` Month      SumChange `Qty Items Open 90 Days`
#   <chr>            <date>         <dbl>                    <dbl>
# 1 ABC              2008-04-01        NA                       NA
# 2 ABC              2008-05-01        NA                       NA
# 3 ABC              2008-06-01        NA                       NA
# 4 ABC              2008-07-01        NA                       NA
# 5 ABC              2008-08-01        NA                       NA
# 6 ABC              2008-09-01        NA                       NA
# 7 ABC              2008-10-01        NA                       NA
# 8 ABC              2008-11-01        NA                       NA
# 9 ABC              2008-12-01        NA                       NA
#10 ABC              2009-01-01        NA                       NA
# … with 59 more rows

关于r - 为什么 tidyr `complete()` 没有在 R 中完成？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/58613720/

文章推荐： powershell - 智能硬盘信息 Powershell

文章推荐： python - torch.softmax 和 torch.sigmoid 在二进制情况下不等价

文章推荐： swiftui - 在 SwiftUI (macOS) 中检查 Option-Key 的状态

dart - 对于 "pubsub.stream.listen(print, onDone: (){print(' 完成')})。 ", the "完成 :"never work
从 Redis 获取消息时，onDone:(){print('done')} 从未起作用。 import 'package:dartis/dartis.dart' as redis show PubS
Vim状态栏的预测/完成？
昨天我玩了一些vim脚本，并设法通过循环来对当前输入的内容进行状态栏预测(请参见屏幕截图(灰色+黄色栏))。问题是，我不记得我是怎么得到的，也找不到我用于该vim魔术的代码片段(我记得它很简单):它
Bash 完成
我尝试加载 bash_completion在我的 bash (3.2.25) 中，它不起作用。没有消息等。我在我的 .bashrc 中使用了以下内容 if [ -f ~/.bash_completio
具有等号和可枚举标志值的 Bash 完成
我正在尝试构建一个 bash 完成例程，它将建议命令行标志和合适的标志值。例如在下面 fstcompose 命令我想比赛套路先建议 compose_filter= 标志，然后建议来自 [alt_seq
重定向符号后的 Bash 完成
当我尝试在重定向符号后完成路径时，bash 完成的行为就好像它仍在尝试在重定向之前完成命令的参数一样。例如: dpkg -l > /med标签通过在 /med 之后点击 Tab我希望它完成通往 /
iphone - CAKeyframeAnimation 完成
我的类中有几个 CAKeyframeAnimation 对象。他们都以 self 为代表。在我的animationDidStop函数中，我如何知道调用来自哪里？是否有任何变量可以传递给 CAKe
cocoa - NSDateFormatter 完成
我有一个带有 NSDateFormatter 的 NSTextField。格式化程序接受“mm/dd/yy”。可以自动补全日期吗？因此，用户可以输入“mm”，格式化程序将完成当前月份和年份。最佳答
cocoa - NSTextfield 完成
有一个解决方案可以使用以下方法完成 NSTextField : - (NSArray *)control:(NSControl *)control textView:(NSTextView *)tex
javascript - 完成()与返回完成()
我正在阅读 Passport 的文档，我注意到 serialize()和 deserialize() done()被调用而不被返回。但是，当使用 passport.use() 设置新策略时在回调函数
javascript 加载图像!完成
在 ubuntu 11.10 上的 Firefox 8.0 中，尽管 img.complete 为 false，但仍会调用 onload 函数 draw。我设法用 setTimeout hack 解决
c++ - 等待第一个将来用C++完成
假设我有两个与两个并行执行的计算相对应的 future 。我如何等到第一个 future 准备好？理想情况下，我正在寻找类似于Python asyncio's wait且参数为return_when=
Java 数据结构表明队列已结束/完成？
我正在寻找一种 Java 7 数据结构，其行为类似于 java.util.Queue，并且还具有“最终项目已被删除”的概念。例如，应可以表达如下概念: while(!endingQueue.isFi
jquery - 完成 If 语句
这是一个简单的问题。 if ($('.dataTablePageList')) { 我想做的是执行一个 if 语句，该语句表示如果具有 dataTablesPageList 类的对象也具有 menu
jQuery 在执行之前等待replaceWith 完成
我用replaceWith批量替换了许多div中的html。替换后，我使用 jTruncate 来截断文本。然而它不起作用，因为在执行时，replaceWith 还没有完成。我尝试了回调技巧 ( H
JavaScript 表单提交()完成
有没有办法调用 javascript 表单 submit() 函数或 JQuery $.submit() 函数并确保它完成提交过程？具体来说，在一个表单中，我试图在一个 IFrame 中提交一个表单。
javascript - 推迟行动直到 .each() 完成
我有以下方法: function animatePortfolio(fadeElement) { fadeElement.children('article').each(function(i
android - registerEntityModifier 完成
我刚刚开始使用 AndEngine，我正在像这样移动 Sprite : if(pValueY < 0 && !jumping) { jumping =
android - 完成 "all"异步任务后更新屏幕
我正在使用 asynctask 来执行冗长的操作，例如数据库读取。我想开始一个新 Activity 并在所有异步任务完成后呈现其内容。实现这一目标的最佳方法是什么？我知道 onPostExecute
从另一个完成 Bash 完成
我有一个脚本需要命令名称和该命令的参数作为参数。所以我想编写一个完成函数来完成命令的名称并完成该命令的参数。所以我可以这样完成命令的名称 if [[ "$COMP_CWORD" == 1 ]];
android - 完成()不工作
我的应用程序有一个相当奇怪的行为。我在 BOOT_COMPLETE 之后启动我的应用程序，因此在我启动设备后它是可见的。 GUI 响应迅速，一切正常，直到我调用 finish()，按下按钮时，什么都没

行者123

个人简介

我是一名优秀的程序员,十分优秀！

作者热门文章

滴滴打车优惠券免费领取

全站热门文章

首页

博学

6Ren·AI

商城

r - 为什么 tidyr `complete()` 没有在 R 中完成？