如何获得整洁的填充函数以在填充数据行时使用组

这是你要做的吗？

library(dplyr)

my_data |>
  group_by(TIMESTAMP) |>
  mutate(WndSpd5s_3m_Avg = max(WndSpd5s_3m_Avg, na.rm = TRUE),
         WndMaxSpd5s_3m_Avg = max(WndMaxSpd5s_3m_Avg, na.rm = TRUE)) |>
  slice_head(n = 1) |>
  select(TIMESTAMP, WndSpd5s_3m_Avg, WndMaxSpd5s_3m_Avg)

# A tibble: 2 × 3
# Groups:   TIMESTAMP [2]
  TIMESTAMP           WndSpd5s_3m_Avg WndMaxSpd5s_3m_Avg
  <chr>                         <dbl>              <dbl>
1 2017-06-18 04:00:00            1.37               1.37
2 2017-06-18 04:01:00            1.79               1.79

我曾经只选择这 3 列，如果您删除该行，它将返回所有列。如果你想保留它，还要记住把它分配给一个变量。select()

假设您想要获取每个时间戳的 WndSpd 列的（单个）非缺失条目，您可以简单地执行以下操作：

library(tidyverse)

my_data %>% 
  group_by(TIMESTAMP) %>%  
  summarize(across(c('WndSpd5s_3m_Avg', 'WndMaxSpd5s_3m_Avg'), na.omit))
#> # A tibble: 2 × 3
#>   TIMESTAMP           WndSpd5s_3m_Avg WndMaxSpd5s_3m_Avg
#>   <chr>                         <dbl>              <dbl>
#> 1 2017-06-18 04:00:00            1.37               1.37
#> 2 2017-06-18 04:01:00            1.79               1.79

^{创建于 2023-11-13 with reprex v2.0.2}

使用填充不会改变数据集的行数（就像 mutate 一样），相反，summarize 最终会每组一行（这里是唯一时间戳的数量）

如果您只是在寻找一种获取具有两行的数据帧的方法，其他答案都很棒 - 不过，我想回答您的问题，并尝试解释为什么您的代码无法按照您想要的方式工作。

该函数会填充上一行或下一行中缺失的 NA 值，具体取决于您的设置方式。它不会删除（或添加）行。fill()

这是数据最初的样子：

# A tibble: 4 × 15
  Station_Number Station_Name        NWSLI Station_Legacy_Name   Lat   Lon
  <chr>          <chr>               <chr> <chr>               <dbl> <dbl>
1 0045           "Scottsbluff 2NW"   SBMN1 Scottsbluff          41.9 -104.
2 0045           "Scottsbluff 2NW"   SBMN1 Scottsbluff          41.9 -104.
3 0045           "Scottsbluff 2NW"   SBMN1 Scottsbluff          41.9 -104.
4 0045           "Scottsbluff \n2NW" SBMN1 Scottsbluff          41.9 -104.
  Elev_m  TIMESTAMP           RECORD Ta_2m_Avg TaMax_2m LithBatt_Min MaintMode
  <chr>   <chr>                <int>     <dbl>    <dbl>        <dbl>     <int>
1 1198.54 2017-06-18 04:00:00 214037        NA       NA           NA        NA
2 1198.54 2017-06-18 04:00:00 214037        NA       NA           NA        NA
3 1198.54 2017-06-18 04:01:00 214038        NA       NA           NA        NA
4 1198.54 2017-06-18 04:01:00 214038        NA       NA           NA        NA
  WndSpd5s_3m_Avg WndMaxSpd5s_3m_Avg
            <dbl>              <dbl>
1            1.37              NA   
2           NA                  1.37
3            1.79              NA   
4           NA                  1.79

有两个时间戳，每个时间戳有两行。风速列中的缺失值形成了一种复选框模式。

当您的代码运行 （with ） 时，风速列将更改为以下值：direction = 'up'

  WndSpd5s_3m_Avg WndMaxSpd5s_3m_Avg
            <dbl>              <dbl>
1            1.37               1.37
2           NA                  1.37
3            1.79               1.79
4           NA                  1.79

如您所见，WndMaxSpd5s_3m_Avg值已填写，但未填写WndSpd5s_3m_Avg值。如果您将“向上”切换到“向下”，情况正好相反。

解决方案是将方向更改为“向下”（即先向下然后向上）或“向上”（先向上然后向下）（如果每个时间戳有多个非 NA 值，哪个可能很重要，但看到你没有，这并不重要）。