基于R中条件的数据框列循环和字符串连接(pref dplyr)

library(tidyverse)
current <- tibble::tribble(
             ~prev_veg,   ~new_item,
             "cabbage",   "lettuce",
                    NA,     "apple",
                    NA,     "beef",
                    NA,   "spinach",
                    NA,  "broccoli",
                    NA,     "mango"
             )
current

target_veg <- c("cabbage","lettuce", "spinach", "broccoli"

    desired <- tibble::tribble(
      ~prev_veg,   ~new_item,
      "cabbage",   "lettuce",
      "cabbage, lettuce",     "apple",
      "cabbage, lettuce", "strawbery",
      "cabbage, lettuce",   "spinach",
      "cabbage, lettuce, spinach",  "broccoli",
      "cabbage, lettuce, spinach, broccoli",     "mango"
    )

desired

current <- tibble::tribble(
  ~prev_veg, ~new_item,
  "cabbage", "lettuce",
  NA, "apple",
  NA, "beef",
  NA, "spinach",
  NA, "broccoli",
  NA, "mango"
)
target_veg <- c("cabbage", "lettuce", "spinach", "broccoli")

library(dplyr, warn.conflicts = FALSE)
library(purrr)

current %>%
  mutate(
    prev_veg = accumulate(
      head(new_item, -1),
      ~ if_else(.y %in% target_veg, paste(.x, .y, sep = ", "), .x),
      .init = prev_veg[1]
    )
  )
#> # A tibble: 6 × 2
#>   prev_veg                            new_item
#>   <chr>                               <chr>   
#> 1 cabbage                             lettuce 
#> 2 cabbage, lettuce                    apple   
#> 3 cabbage, lettuce                    beef    
#> 4 cabbage, lettuce                    spinach 
#> 5 cabbage, lettuce, spinach           broccoli
#> 6 cabbage, lettuce, spinach, broccoli mango

R相关问答推荐

如何在热图中绘制一个图形，但在每个单元格中通过饼形图显示？

self_函数无法工作--无法子集结束后的列

在R中列表的结尾添加数字载体

计算R中的威布尔分布的EDF

R Tidymodels textercipes-使用spacyR进行标记化-如何从生成的标记列表中删除标点符号

如何使用按钮切换轨迹？

Data.table'；S GForce-将多个函数应用于多列(带可选参数)

Geom_Hline将不会出现，而它以前出现了

如何根据R中其他变量的类别汇总值？

KM估计的差异：SvyKm与带权重的调查

将全局环境变量的名称分配给列表中的所有元素

R+reprex：在呈现R标记文件时创建可重现的示例

有没有办法将不等长的列表转换为R中的数据帧

如何根据未知数的多列排除重复行

向R中的数据帧添加一列，该列统计另一列中每个唯一值的二进制观测值的数量

如何在AER：：ivreg中指定仪器？

如何使用包metaviz更改标签的小数位数？

是否从列中删除★符号？

如何在R中创建这些列？

将美学添加到ggploy中的文本标签