如何在 R 的小标题中添加行向量？

Question

我在 R 中有一个 tibble，每个月有 11 个观察值。除了 6 月，它有 0 个。 我的数据框（tibble）如下所示：

library(tidyverse)
A = c(1,2,3,4,5,7,8,9,10,11,12)
B = rnorm(11,0,1)
Data = tibble(A,B);Data

但我想添加这个时间序列 6 月的 0 观测值。 类似的东西：

d = c(6,0);d
newdata = rbind(Data,d)
order(newdata$A)

但是 12（十二月）出现了。有什么帮助吗？

Answer 1

两种方法：

(1) 我们可以为此使用add_row。但是，d 必须命名，我们需要使用 tribble bang !!! 运算符将其拼接成 add_row。然后我们可以arrange数据，这样月份就从1到12排序。当然你可以直接指定add_row，就像@Chris的答案一样，不需要外部向量。

library(dplyr)

A = c(1,2,3,4,5,7,8,9,10,11,12)
B = rnorm(11,0,1)
Data = tibble(A,B)

d = c(A = 6, B = 0)

newdata <- Data %>% 
  add_row(!!! d) %>% 
  arrange(A)

# check
newdata
#> # A tibble: 12 x 2
#>        A        B
#>    <dbl>    <dbl>
#>  1     1  1.22   
#>  2     2  0.0729 
#>  3     3  0.597  
#>  4     4 -1.26   
#>  5     5  0.928  
#>  6     6  0      
#>  7     7 -1.08   
#>  8     8  0.704  
#>  9     9 -0.119  
#> 10    10 -0.462  
#> 11    11 -0.00388
#> 12    12  1.56

order(newdata$A) 
#>  [1]  1  2  3  4  5  6  7  8  9 10 11 12

(2) 我们可以使用tidyr::complete，正如@Ronak 在 cmets 中所建议的那样，尽管我们使用与full_seq 略有不同的规范：

library(tidyr)

Data %>% 
  complete(A = full_seq(A, 1), fill = list(B = 0))

#> # A tibble: 12 x 2
#>        A      B
#>    <dbl>  <dbl>
#>  1     1 -0.258
#>  2     2 -1.18 
#>  3     3 -0.165
#>  4     4  0.775
#>  5     5  0.926
#>  6     6  0    
#>  7     7  0.343
#>  8     8  1.10 
#>  9     9  0.359
#> 10    10  0.934
#> 11    11 -0.444
#> 12    12  0.184

^{由reprex package (v2.0.1) 于 2021 年 9 月 21 日创建}

Answer 2

您可以在add_row中定义附加行：

library(dplyr)
Data %>%
  add_row(A = 6, B = 0) %>% 
  arrange(A)
# A tibble: 12 x 2
       A       B
   <dbl>   <dbl>
 1     1 -0.547 
 2     2 -0.564 
 3     3 -0.890 
 4     4 -0.477 
 5     5 -0.998 
 6     6  0     
 7     7 -0.776 
 8     8  0.0645
 9     9  0.959 
10    10 -0.110 
11    11 -0.511 
12    12 -0.911