Question

我对dplyr完全陌生，正在尝试使用dplyr进行以下操作：

我有数据框“ tdata”，并且想在每个组中用“ NA”填充省略的句点（prd）。我想获取数据框“结果”。速度对我很重要，所以我希望有一种方法可以在dplyr中比在for loop中更快。

> tdata <- data.frame(group = c(10, 10, 10, 11, 11), prd = c(1, 2, 5, 3, 5), value = c(2,7,3,6,2))
> tdata
  group prd value
1    10   1     2
2    10   2     7
3    10   5     3
4    11   3     6
5    11   5     2
> result <- data.frame(group = c(10, 10, 10, 10, 10, 11, 11, 11), prd = c(1, 2, 3, 4, 5, 3, 4, 5), value = c(2, 7, 'NA', 'NA', 3, 6, 'NA', 2))
> result
  group prd value
1    10   1     2
2    10   2     7
3    10   3    NA
4    10   4    NA
5    10   5     3
6    11   3     6
7    11   4    NA
8    11   5     2

我尝试使用管道并收到此错误：

> fdata <- tdata %>%
+   group_by(group) %>%
+   arrange(prd) %>%
+   left_join(data.frame(prd_v=min(prd):max(prd)), ., by=c("prd_v" = "prd"))
Error in data.frame(prd_v = min(prd):max(prd)) : object 'prd' not found

更新：另外，我想在较大的函数中使用此管道，因此我想拥有

period_variable <- "prd"

然后

tdata2 <- ndata %>%
  group_by(group) %>%
  complete(period_variable = full_seq(period_variable), period = 1) %>%
  ungroup()
tdata2

但是它不起作用。我尝试过使用get（），parse（），eval（），as.name（），as.symbol（），UQ（），!!，sym（），但是它仍然无法正常工作。

Answer 1

我们可以使用complete包中的tidyr函数。

library(dplyr)
library(tidyr)

tdata2 <- tdata %>%
  group_by(group) %>%
  complete(prd = full_seq(prd, period = 1)) %>%
  ungroup()
tdata2
# # A tibble: 8 x 3
#   group   prd value
#   <dbl> <dbl> <dbl>
# 1    10     1     2
# 2    10     2     7
# 3    10     3    NA
# 4    10     4    NA
# 5    10     5     3
# 6    11     3     6
# 7    11     4    NA
# 8    11     5     2

Answer 2

关于第二个问题，我不知道这是否是您想要的，但是我会做这样的事情：

virginica,50

R dplyr：在管道中加入

2 个答案: