堆栈内存溢出
  简体   繁体   English

为什么在使用 `tidyverse` 包中的 `pivot_wider()` 时出现错误？

[英]Why do I get an error when using `pivot_wider()` from the `tidyverse` package?

 原文  2020-11-11 11:41:25  5   2    r/ tidyverse

问题描述

I have a dataframe with a numerical variable ( Acc ) and four categorical variables ( ID , Datetime , Period and State ).我有一个带有数值变量 ( Acc ) 和四个分类变量 ( ID 、 Datetime 、 Period和State ) 的数据框。

# My data
df <- data.frame(ID=c(rep(c("A"),8),rep(c("B"),8)),
                 Datetime=c("2020-08-05 12:00:00","2020-08-05 17:00:00","2020-08-05 18:03:00","2020-08-05 22:54:00","2020-08-06 01:08:00","2020-08-06 13:26:00","2020-08-06 19:04:00","2020-08-08 11:00:00",
                            "2020-08-04 03:00:00","2020-08-04 15:00:00","2020-08-04 23:00:00","2020-08-06 14:00:00","2020-08-06 17:00:00","2020-08-06 20:00:00","2020-08-07 04:00:00","2020-08-07 16:00:00"),
                 Period=c("Day","Day","Day","Night","Night","Day","Night","Day","Night","Day","Night","Day","Day","Night","Night","Day"),
                 State=c(1,2,1,1,1,1,2,2,1,1,1,2,2,1,1,1),
                 Acc=c(1.1,2.3,1.7,1.4,0.1,1.9,2.9,2.3,1.1,0.1,1.4,0.2,2.6,1.3,1.7,1.0))

df$Datetime <- as.POSIXct(df$Datetime,format="%Y-%m-%d %H:%M:%S", tz="UTC")

df

   ID            Datetime Period State Acc
1   A 2020-08-05 12:00:00    Day     1 1.1
2   A 2020-08-05 17:00:00    Day     2 2.3
3   A 2020-08-05 18:03:00    Day     1 1.7
4   A 2020-08-05 22:54:00  Night     1 1.4
5   A 2020-08-06 01:08:00  Night     1 0.1
6   A 2020-08-06 13:26:00    Day     1 1.9
7   A 2020-08-06 19:04:00  Night     2 2.9
8   A 2020-08-08 11:00:00    Day     2 2.3
9   B 2020-08-04 03:00:00  Night     1 1.1
10  B 2020-08-04 15:00:00    Day     1 0.1
11  B 2020-08-04 23:00:00  Night     1 1.4
12  B 2020-08-06 14:00:00    Day     2 0.2
13  B 2020-08-06 17:00:00    Day     2 2.6
14  B 2020-08-06 20:00:00  Night     1 1.3
15  B 2020-08-07 04:00:00  Night     1 1.7
16  B 2020-08-07 16:00:00    Day     1 1.0

I am trying to estimate mean Acc per ID , Day , Period and State .我试图估计每个ID 、 Day 、 Period和State平均Acc 。 To do so, I am trying to apply this code:为此，我正在尝试应用此代码：

library(tidyverse)

  df %>% 
    group_by(ID, Day = as.factor(as.Date(Datetime)), Period, State, .drop = FALSE) %>% 
    summarise(Acc = mean(Acc, na.rm = TRUE)) %>% 
    pivot_wider(names_from = c(State, Period),
                values_from = Acc,
                names_prefix = "State.") %>% 
    select(!State.NA_NA)

I should get this:我应该得到这个：

#> `summarise()` regrouping output by 'ID', 'Day', 'Period' (override with `.groups` argument)
#> # A tibble: 10 x 6
#> # Groups:   ID, Day [10]
#>    ID    Day        State.1_Day State.2_Day State.1_Night State.2_Night
#>    <chr> <fct>            <dbl>       <dbl>         <dbl>         <dbl>
#>  1 A     2020-08-04        NA          NA           NA             NA  
#>  2 A     2020-08-05         1.4         2.3          1.4           NA  
#>  3 A     2020-08-06         1.9        NA            0.1            2.9
#>  4 A     2020-08-07        NA          NA           NA             NA  
#>  5 A     2020-08-08        NA           2.3         NA             NA  
#>  6 B     2020-08-04         0.1        NA            1.25          NA  
#>  7 B     2020-08-05        NA          NA           NA             NA  
#>  8 B     2020-08-06        NA           1.4          1.3           NA  
#>  9 B     2020-08-07         1          NA            1.7           NA  
#> 10 B     2020-08-08        NA          NA           NA             NA

However, I get the message Error in map_lgl(.x, .p, ...) : object 'State' not found .但是，我收到消息Error in map_lgl(.x, .p, ...) : object 'State' not found 。

I don't understand where is the mistake.我不明白错误在哪里。 I guess it is something silly, but I have been hours thinking on that and nothing.我想这很愚蠢，但我已经思考了好几个小时，却什么也没有。

Does someone shed light on why I get an error message?有人解释为什么我收到错误消息吗？

2 个解决方案

解决方案1
 3  2020-11-11 12:01:23

Does this work:这是否有效：

df %>% 
  group_by(ID, Day = as.factor(as.Date(Datetime)), Period, State, .drop = FALSE) %>% 
  summarise(Acc = mean(Acc, na.rm = TRUE)) %>% na.omit() %>% 
  pivot_wider(names_from = c(State, Period),
              values_from = Acc,
              names_prefix = "State.") %>%  complete(ID, nesting(Day)) %>% arrange(ID, Day) %>% distinct()
`summarise()` regrouping output by 'ID', 'Day', 'Period' (override with `.groups` argument)
# A tibble: 10 x 6
# Groups:   ID, Day [10]
   ID    Day        State.1_Day State.2_Day State.1_Night State.2_Night
   <fct> <fct>            <dbl>       <dbl>         <dbl>         <dbl>
 1 A     2020-08-04        NA          NA           NA             NA  
 2 A     2020-08-05         1.4         2.3          1.4           NA  
 3 A     2020-08-06         1.9        NA            0.1            2.9
 4 A     2020-08-07        NA          NA           NA             NA  
 5 A     2020-08-08        NA           2.3         NA             NA  
 6 B     2020-08-04         0.1        NA            1.25          NA  
 7 B     2020-08-05        NA          NA           NA             NA  
 8 B     2020-08-06        NA           1.4          1.3           NA  
 9 B     2020-08-07         1          NA            1.7           NA  
10 B     2020-08-08        NA          NA           NA             NA  
>

解决方案2
 1  2020-11-11 11:51:17

I'm not sure where in your code the error was coming from but I think it was from the final select line.我不确定您的代码中的错误来自哪里，但我认为它来自最终的select行。 Instead of selecting anything that wasn't State.NA_NA I switched it to keep everything column that didn't contain an NA in it.我没有选择任何不是 State.NA_NA 的内容，而是将其切换为保留其中不包含 NA 的所有列。 This seems to get the desired output.这似乎获得了所需的输出。

Also looking at the comments I would recommend calling each tidyverse package with the syntax dplyr::select as you may be unintentionally calling a different select .同时查看评论，我建议使用语法dplyr::select调用每个 tidyverse 包，因为您可能无意中调用了不同的select 。

library(tidyverse)

df <- data.frame(ID=c(rep(c("A"),8),rep(c("B"),8)),
                 Datetime=c("2020-08-05 12:00:00","2020-08-05 17:00:00","2020-08-05 18:03:00","2020-08-05 22:54:00","2020-08-06 01:08:00","2020-08-06 13:26:00","2020-08-06 19:04:00","2020-08-08 11:00:00",
                            "2020-08-04 03:00:00","2020-08-04 15:00:00","2020-08-04 23:00:00","2020-08-06 14:00:00","2020-08-06 17:00:00","2020-08-06 20:00:00","2020-08-07 04:00:00","2020-08-07 16:00:00"),
                 Period=c("Day","Day","Day","Night","Night","Day","Night","Day","Night","Day","Night","Day","Day","Night","Night","Day"),
                 State=c(1,2,1,1,1,1,2,2,1,1,1,2,2,1,1,1),
                 Acc=c(1.1,2.3,1.7,1.4,0.1,1.9,2.9,2.3,1.1,0.1,1.4,0.2,2.6,1.3,1.7,1.0))

df$Datetime <- as.POSIXct(df$Datetime,format="%Y-%m-%d %H:%M:%S", tz="UTC")

df
#>    ID            Datetime Period State Acc
#> 1   A 2020-08-05 12:00:00    Day     1 1.1
#> 2   A 2020-08-05 17:00:00    Day     2 2.3
#> 3   A 2020-08-05 18:03:00    Day     1 1.7
#> 4   A 2020-08-05 22:54:00  Night     1 1.4
#> 5   A 2020-08-06 01:08:00  Night     1 0.1
#> 6   A 2020-08-06 13:26:00    Day     1 1.9
#> 7   A 2020-08-06 19:04:00  Night     2 2.9
#> 8   A 2020-08-08 11:00:00    Day     2 2.3
#> 9   B 2020-08-04 03:00:00  Night     1 1.1
#> 10  B 2020-08-04 15:00:00    Day     1 0.1
#> 11  B 2020-08-04 23:00:00  Night     1 1.4
#> 12  B 2020-08-06 14:00:00    Day     2 0.2
#> 13  B 2020-08-06 17:00:00    Day     2 2.6
#> 14  B 2020-08-06 20:00:00  Night     1 1.3
#> 15  B 2020-08-07 04:00:00  Night     1 1.7
#> 16  B 2020-08-07 16:00:00    Day     1 1.0

df %>% 
  dplyr::group_by(ID, Day = as.factor(as.Date(Datetime)), Period, State, .drop = FALSE) %>% 
  dplyr::summarise(Acc = mean(Acc, na.rm = TRUE)) %>% 
  tidyr::pivot_wider(names_from = c(State, Period),
              values_from = Acc,
              names_prefix = "State.") %>% 
  dplyr::select(!contains("NA"))
#> `summarise()` regrouping output by 'ID', 'Day', 'Period' (override with `.groups` argument)
#> # A tibble: 10 x 6
#> # Groups:   ID, Day [10]
#>    ID    Day        State.1_Day State.2_Day State.1_Night State.2_Night
#>    <fct> <fct>            <dbl>       <dbl>         <dbl>         <dbl>
#>  1 A     2020-08-04        NA          NA           NA             NA  
#>  2 A     2020-08-05         1.4         2.3          1.4           NA  
#>  3 A     2020-08-06         1.9        NA            0.1            2.9
#>  4 A     2020-08-07        NA          NA           NA             NA  
#>  5 A     2020-08-08        NA           2.3         NA             NA  
#>  6 B     2020-08-04         0.1        NA            1.25          NA  
#>  7 B     2020-08-05        NA          NA           NA             NA  
#>  8 B     2020-08-06        NA           1.4          1.3           NA  
#>  9 B     2020-08-07         1          NA            1.7           NA  
#> 10 B     2020-08-08        NA          NA           NA             NA

Created on 2020-11-11 by the reprex package (v0.3.0)由reprex 包(v0.3.0) 于 2020 年 11 月 11 日创建

暂无
暂无

声明:本站的技术帖子网页，遵循CC BY-SA 4.0协议，如果您需要转载，请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

相关问题 使用 tidyverse 函数 pivot_wider 时出错 - Error in using tidyverse function pivot_wider 为什么在 tidyr::pivot_wider 中尝试使用 names_glue 时会出错？ - Why do I get an error when trying to use names_glue in tidyr::pivot_wider? 使用 pivot_wider 函数时，列中出现 n/a - I get n/a in columns when using the pivot_wider function 使用 Pivot_Longer() 和 Pivot_Wider (Tidyverse) 转置小标题 - Transposition of a Tibble Using Pivot_Longer() and Pivot_Wider (Tidyverse) 为什么在使用 pivot_wider 时会产生 NA 值？ - Why are there NA values produced when using pivot_wider? 为什么在加载软件包tidyverse时出现错误？ - Why do I get an error when loading the package tidyverse? 来自多个变量的 Pivot_wider function（tidyr r 包） - Pivot_wider function (tidyr r package) from multiple variables tidyverse 使用两种不同的重塑策略（创建分类和二元列）执行 pivot_wider - tidyverse do a pivot_wider with two different reshaping strategies (creating categorical and binary columns) 如何pivot_wider char 列？ - How do I pivot_wider a char column? 使用 Pivot_wider 在 R 中执行行操作的最佳方法 - Best way to do row operations in R using Pivot_wider
相关标签
 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM