作为更复杂的过程的一部分，我发现自己迷失了这段话。下面是我正在处理的可复制示例。我需要为每个嵌套数据集添加一列，其中具有相同的编号，但它们之间的编号不同。具体来说，数字必须是写入的数字c1$Age。该代码cbind(k, AgeGroup = 3)仅用于演示。实际上，当我使用时cbind(k, AgeGroup = Age)，R给我以下错误Error in mutate_impl(.data, dots): Evaluation error: arguments imply differing number of rows: 5, 2.
library(dplyr)
library(purrr)
library(magrittr)
library(tidyr)
c <- read.table(header = TRUE, text = "Age Verbal Fluid Speed
2 89 94 103
1 98 88 100
1 127 115 102
2 83 101 71
2 102 92 87
1 91 97 120
1 96 129 98
2 79 92 84
2 107 95 102")
c1 <- …我有关于多个单一研究的数据框架.对三名参与者(ID_AB2)实施行为干预,并收集基线和干预条件的数据(PhaseAB2:A =基线; B =干预).最后,"Occassions"是一个包含会话编号的变量.
我试图做的是编写一个代码来获取每个参与者的每个阶段的最后三个值,然后计算平均值.
RateAB2 <- c(8, 4, 5, 5, 5, 4, 8, 7, 8, 5, 4, 8, 7, 4, 7, 7, 4, 3, 4, 4, 4, 5, 9, 6, 16, 13, 8, 9, 15, 17, 9, 10, 7, 3, 2, 4, 3, 3, 3, 7, 13, 18, 12, 18, 14, 17, 19, 15) %>% as.numeric()
PhaseAB2 <- rep(c("A", "B"), each = 8, len = 48)
OccasionsAB2 <- rep(1:16, len = 48)
ID_AB2 <- rep(c("C1", "C2", "C3"), each = …