获取 R 中的最新更新值

Question

我想在此 (Get the latest updated value based on other columns) 之后提出另一个问题，因为我的问题可能不清楚。

最初，我有 2 个数据框，其中一个在 name2 列中包含 NA 值，另一个在 name1 列中包含 NA 值。然后，我在这里使用bind_rows 获取一个大数据框作为示例。 name3 列是name1 和name2 的组合。

name1               name2                  name3
Acer laurinum        NA                     Acer laurinum
Acmella paniculata   NA                     Acmella paniculata
Aglaia lawii         NA                     Aglaia lawii
............         NA                     ...................
NA                   Acer laurinum Hassk.   Acer laurinum Hassk.
NA                   Aglaia lawii (Wight)   Aglaia lawii (Wight)
NA                   ....................   ....................                  

如您所见，name3 列中的几个名称缺少作者部分。这就是为什么我想根据name2 或name3 列更新这些名称。 使用tidyverse对我有什么建议吗？

代码示例

df <- data.frame(
name1 = c("Acer laurinum", "Acmella paniculata", "Aglaia lawii", NA, NA), 
name2 = c(NA, NA, NA, "Acer laurinum Hassk.", "Aglaia lawii (Wight)"),
name3 = c("Acer laurinum", "Acmella paniculata", "Aglaia lawii", "Acer laurinum Hassk.", "Aglaia lawii (Wight)"))

我想要的输出

name1               name2                  name3
Acer laurinum        NA                     Acer laurinum Hassk.
Acmella paniculata   NA                     Acmella paniculata
Aglaia lawii         NA                     Aglaia lawii (Wight)
NA                   Acer laurinum Hassk.   Acer laurinum Hassk.
NA                   Aglaia lawii (Wight)   Aglaia lawii (Wight)

Answer 1

你可以这样做： 想法：

1. 以长格式提供数据
2. 使用来自stringr 的word 使用名称的第一个单词创建一个helper 列
3. 按helper 和mutate 值与组的最后一个值分组
4. 恢复宽幅格式

library(dplyr)
library(stringr)

df %>% 
  mutate(id = row_number()) %>% 
  pivot_longer(
    cols = -id
  ) %>% 
  mutate(helper= word(value, 1)) %>% 
  group_by(helper) %>% 
  mutate(value= last(value)) %>% 
  pivot_wider(
    names_from = name,
    values_from = value
  ) %>% 
  ungroup() %>% 
  select(-id, -helper) %>% 
  filter(if_any(everything(), ~ !is.na(.)))

  name1                name2                name3               
  <chr>                <chr>                <chr>               
1 Acer laurinum Hassk. NA                   Acer laurinum Hassk.
2 Acmella paniculata   NA                   Acmella paniculata  
3 Aglaia lawii (Wight) NA                   Aglaia lawii (Wight)
4 NA                   Acer laurinum Hassk. Acer laurinum Hassk.
5 NA                   Aglaia lawii (Wight) Aglaia lawii (Wight)