我的代码有点问题.因此,我有一个dataframe设置,类似于下面的图,除了它有1000 s的行和列。我想做的是得到一个相对于每只鸟的质量测量时间的平均温度。因此,本质上,我想取测量日期列(" date ")中的值(它以年份格式的一天表示日期),并告诉R创建一个新列,其平均温度为测量日期之前的5天(列X46,X47.包含一年中那些天的温度测量),从而创建一个相对于每只鸟的时间周期的平均温度。所以一位主管建议使用for循环,但我真的不知道该怎么做.任何提示/帮助都会令人难以置信地感激,因为我已经坚持了一段时间了.在这里输入图像描述
发布于 2022-07-01 15:35:44
您可以使用rowwise-operation来完成这个任务:
library(tidyverse)
df |>
rowwise() |>
mutate(avg_temp = mean(c_across(paste0("X", seq(date, date-4))))) |>
ungroup()输出:
# A tibble: 2 × 12
bird_id mass date X53 X52 X51 X50 X49 X48 X47 X46 avg_temp
<chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1 R1 10.2 52 1 2 3 4 5 6 7 8 4
2 R2 14.8 53 1 2 3 4 5 6 7 8 3基于您的笔记本的样本数据:
df <-
tibble(bird_id = c("R1", "R2"),
mass = c(10.2, 14.8),
date = c(52, 53),
X53 = c(1, 1),
X52 = c(2, 2),
X51 = c(3, 3),
X50 = c(4, 4),
X49 = c(5, 5),
X48 = c(6, 6),
X47 = c(7, 7),
X46 = c(8, 8))你需要考虑一下今年前5天的情况。
https://stackoverflow.com/questions/72830685
复制相似问题