文字ベクトルに基づいて、データフレームから動的な列数を作成します

debugcn 投稿 Dev

リチャード・ラッシュ

合計を構成する必要がある列のリストを指定して、1つ以上の列のデータを合計しようとしています。

例えば：

set.seed(3550)
# Creates data frame
month <- seq.Date(from = as.Date("2012-09-01"), by = "month", length.out = 50)
a <- rpois(50, 5000)
b <- rpois(50, 3000)
c <- rpois(50, 500)
d <- rpois(50, 1000)

df <- data.frame(month, a, b, c, d)
# Creates list of vectors
mylist <- list(this = "this", that = "that", other = "other")
mylist$this <- c("a")
mylist$that <- c("a", "b")
mylist$other <- c("a", "c", "d")

次のコードで希望の結果を得ることができます。

my_df <- df %>%
  group_by(month) %>%
  summarize(this = sum(!!!rlang::syms(mylist$this), na.rm = TRUE),
            that = sum(!!!rlang::syms(mylist$that), na.rm = TRUE),
            other = sum(!!!rlang::syms(mylist$other), na.rm = TRUE))

出力は次のとおりです。

# A tibble: 50 x 4
        month  this  that other
       <date> <int> <int> <int>
 1 2012-09-01  4958  7858  6480
 2 2012-10-01  4969  7915  6497
 3 2012-11-01  5012  7978  6483
 4 2012-12-01  4982  7881  6460
 5 2013-01-01  4838  7880  6346
 6 2013-02-01  5090  8089  6589
 7 2013-03-01  5013  8044  6582
 8 2013-04-01  4947  7942  6388
 9 2013-05-01  5065  8124  6506
10 2013-06-01  5020  8086  6521
# ... with 40 more rows

要約された列の数を動的に作成する方法を理解しようとすると、問題が発生します。summary呼び出し内のループは機能するかもしれないと思いましたが、機能しませんでした。

combine_iterations <- function(x, iter_list){
  a <- rlang::syms(names(iter_list))
  b <- x %>%
    group_by(month) %>%
    summarize(for (i in 1:length(a)){
      a[[i]] = sum(!!!rlang::syms(iter_list[i]), na.rm = TRUE)
    })
}

出力：

Error in lapply(.x, .f, ...) : object 'i' not found
Called from: lapply(.x, .f, ...)

サイドム

あなたはそれを少し複雑にしすぎています。要約をカスタマイズする場合はgroup_by %>% do、rlang引用符/引用符なしの問題を使用して回避できます。

combine_iterations <- function(x, iter_list){
    x %>%
      group_by(month) %>%
      do(
          as.data.frame(lapply(iter_list, function(cols) sum(.[cols])))
      )
}

combine_iterations(df, mylist)
# A tibble: 50 x 4
# Groups:   month [50]
#        month  this  that other
#       <date> <int> <int> <int>
# 1 2012-09-01  5144  8186  6683
# 2 2012-10-01  5134  8090  6640
# 3 2012-11-01  4949  7917  6453
# 4 2012-12-01  5040  8203  6539
# 5 2013-01-01  4971  7938  6474
# 6 2013-02-01  5050  7924  6541
# 7 2013-03-01  5018  8022  6579
# 8 2013-04-01  4945  7987  6476
# 9 2013-05-01  5134  8114  6590
#10 2013-06-01  4984  8011  6476
# ... with 40 more rows

identical(
    df %>% 
        group_by(month) %>% 
        summarise(this = sum(a), that = sum(a, b), other = sum(a, c, d)),

    ungroup(combine_iterations(df, mylist))
)
# [1] TRUE

または、purrr::map_dfでデータフレームを作成する別のオプションdo：

combine_iterations <- function(x, iter_list){
    x %>%
      group_by(month) %>%
      do({
          g = .
          map_df(iter_list, ~ sum(g[.x]))
      })
}

この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。

侵害の場合は、連絡してください[email protected]