r - 如何确定每个人的最大数字跨度?
问题描述
我正在尝试编写一个脚本,用于在 R 中的标准数字跨度任务中识别个人的最大数字跨度,我似乎遇到了一些麻烦。编辑以包括下面的完整数据集。
我要做的是确定“corrAns”列中的最大位数,该最大位数对应于每个首字母和每个会话的“DSAns.corr”列中的最后一个“1”。例如,参与者 #92 的得分为 7,因为他们正确记住数字的最大数量是 0,3,6,1,0,4,7(第 3 列,第 9 行)。
我编写了以下函数来迭代不同的首字母和会话,但我不确定如何编写实际语句来实际生成我正在寻找的数字跨度值。提前感谢您的任何指导!
i = 1 #session ID
j = 1 #participant ID
for (i in 1:2) {
for (j in 1:length(unique(data$initials))) {
digitspan = sum(data$DSAns.corr) #this is the line I'm having trouble with
print(digitspan)
}
}
完整数据集在这里:
structure(list(session = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1), initials = c("92", "92", "92", "92", "92", "92", "92", "92",
"92", "92", "92", "92", "92", "92", "92", "92", "88", "88", "88",
"88", "88", "88", "88", "88", "88", "88", "88", "88", "88", "88",
"88", "88", "88", "88", "88", "88", "88", "88", "88", "88", "23",
"23", "23", "23", "23", "23", "23", "23", "23", "23", "23", "23",
"23", "23", "23", "23", "23", "23", "23", "47", "47", "47", "47",
"47", "47", "47", "47", "47", "47", "47", "47", "47", "47", "47",
"47", "47", "47", "47", "47", "47", "87", "87", "87", "87", "87",
"87", "87", "87", "87", "87", "87", "87", "87", "87", "87", "87",
"87", "87", "87", "87", "87", "SW", "SW", "SW", "SW", "SW", "SW",
"SW", "SW", "SW", "SW", "SW", "SW", "SW", "SW", "SW", "SW", "SW",
"SW", "SW", "SW", "SW", "SW", "SW", "SW", "SW", "SW", "SW", "SW",
"SW", "11", "11", "11", "11", "11", "11", "11", "11", "11", "11",
"11", "11", "11", "11", "11", "11", "11", "11", "11", "11", "11",
"11", "11", "11", "11", "11", "11", "88", "88", "88", "88", "88",
"88", "88", "88", "88", "88", "88", "88", "88", "88", "88", "88",
"88", "88", "88", "88", "88", "88", "88", "88", "88", "88", "88",
"88", "88", "88", "88", "67", "67", "67", "67", "67", "67", "67",
"67", "67", "67", "67", "67", "67", "67", "67", "67", "67", "67",
"67", "AS", "AS", "AS", "AS", "AS", "AS", "AS", "AS", "AS", "AS",
"AS", "AS", "90", "90", "90", "90", "90", "90", "90", "90", "90",
"90", "90", "90", "90", "90", "90", "90", "90", "90", "90", "90",
"90", "00", "00", "00", "00", "00", "00", "00", "00", "00", "00",
"00", "00", "00", "00", "00", "00", "00", "00", "14", "14", "14",
"14", "14", "14", "14", "14", "14", "14", "14", "14", "14", "14",
"14", "14", "14", "14", "14", "14", "14", "14", "14", "14", "14",
"14", "14", "14", "14", "14", "14", "14", "14", "14", "14", "14",
"14", "14", "14", "14", "14", "14", "14", "14", "14", "14", "14",
"14", "14", "89", "89", "89", "89", "89", "89", "89", "89", "89",
"89", "89", "89", "89", "89", "89", "89", "89", "23", "23", "23",
"23", "23", "23", "23", "23", "23", "23", "23", "23", "23", "23",
"23", "23", "23", "23", "23", "23", "92", "92", "92", "92", "92",
"92", "92", "92", "92", "92", "92", "92", "92", "92", "14", "14",
"14", "14", "14", "14", "14", "14", "14", "14", "14", "14", "14",
"14", "14", "14", "14", "14", "14", "87", "87", "87", "87", "87",
"87", "87", "87", "87", "87", "87", "87", "87", "87", "87", "87",
"87", "87", "87", "87", "87", "47", "47", "47", "47", "47", "47",
"47", "47", "47", "47", "47", "47", "47", "47", "47", "47", "47",
"47", "90", "90", "90", "90", "90", "90", "90", "90", "90", "90",
"90", "90", "90", "90", "90", "90", "67", "67", "67", "67", "67",
"67", "67", "67", "67", "67", "67", "67", "67", "67", "67", "67",
"67", "67", "67", "67", "67", "67"), corrAns = c("3,2,3", "1,3,1",
"2,7,2,6", "7,2,9,0", "8,6,4,5,0", "3,6,7,4,6", "0,2,3,4,6,5",
"2,6,8,0,1,5", "0,3,6,1,0,4,7", "2,9,7,0,6,2,0", "6,9,0,6,7,3,5,3",
"5,8,4", "0,3,2", "0,7,1,3", "9,8,5,3", "8,7,0,9,6", "3,2,3",
"1,3,1", "2,7,2,6", "7,2,9,0", "8,6,4,5,0", "3,6,7,4,6", "0,2,3,4,6,5",
"2,6,8,0,1,5", "0,3,6,1,0,4,7", "5,8,4", "0,3,2", "0,7,1,3",
"9,8,5,3", "8,7,0,9,6", "5,9,7,9,1", "5,7,8,4,7,6", "2,7,9,0,6,7",
"5,7,5,0,8,1,6", "9,1,2,1,4,7,9", "5,1,6,9,6,2,6,1", "3,4,8,1,3,2,7,1",
"8,5,6,0,8,4,6,0,4", "7,9,6,3,8,1,9,2,9", "2,3,2,7,1,0,2,7,4,5",
"3,2,3", "1,3,1", "2,7,2,6", "7,2,9,0", "8,6,4,5,0", "3,6,7,4,6",
"0,2,3,4,6,5", "2,6,8,0,1,5", "0,3,6,1,0,4,7", "2,9,7,0,6,2,0",
"5,8,4", "0,3,2", "0,7,1,3", "9,8,5,3", "8,7,0,9,6", "5,9,7,9,1",
"5,7,8,4,7,6", "2,7,9,0,6,7", "5,7,5,0,8,1,6", "3,2,3", "1,3,1",
"2,7,2,6", "7,2,9,0", "8,6,4,5,0", "3,6,7,4,6", "0,2,3,4,6,5",
"2,6,8,0,1,5", "0,3,6,1,0,4,7", "2,9,7,0,6,2,0", "5,8,4", "0,3,2",
"0,7,1,3", "9,8,5,3", "8,7,0,9,6", "5,9,7,9,1", "5,7,8,4,7,6",
"2,7,9,0,6,7", "5,7,5,0,8,1,6", "9,1,2,1,4,7,9", "5,1,6,9,6,2,6,1",
"3,2,3", "1,3,1", "2,7,2,6", "7,2,9,0", "8,6,4,5,0", "3,6,7,4,6",
"0,2,3,4,6,5", "2,6,8,0,1,5", "0,3,6,1,0,4,7", "2,9,7,0,6,2,0",
"6,9,0,6,7,3,5,3", "7,2,9,0,7,0,1,3", "7,4,3,4,2,5,3,8,5", "3,2,5,9,3,4,5,7,1",
"5,8,4", "0,3,2", "0,7,1,3", "9,8,5,3", "8,7,0,9,6", "5,9,7,9,1",
"5,7,8,4,7,6", "3,2,3", "1,3,1", "2,7,2,6", "7,2,9,0", "8,6,4,5,0",
"3,6,7,4,6", "0,2,3,4,6,5", "2,6,8,0,1,5", "0,3,6,1,0,4,7", "2,9,7,0,6,2,0",
"6,9,0,6,7,3,5,3", "7,2,9,0,7,0,1,3", "7,4,3,4,2,5,3,8,5", "3,2,5,9,3,4,5,7,1",
"5,1,0,2,4,1,2,9,8,2", "9,5,3,7,5,6,4,1,6,7", "1,8,4,8,8,7,6,0,3,9,5",
"5,8,4", "0,3,2", "0,7,1,3", "9,8,5,3", "8,7,0,9,6", "5,9,7,9,1",
"5,7,8,4,7,6", "2,7,9,0,6,7", "5,7,5,0,8,1,6", "9,1,2,1,4,7,9",
"5,1,6,9,6,2,6,1", "3,4,8,1,3,2,7,1", "3,2,3", "1,3,1", "2,7,2,6",
"7,2,9,0", "8,6,4,5,0", "3,6,7,4,6", "0,2,3,4,6,5", "2,6,8,0,1,5",
"0,3,6,1,0,4,7", "2,9,7,0,6,2,0", "6,9,0,6,7,3,5,3", "7,2,9,0,7,0,1,3",
"7,4,3,4,2,5,3,8,5", "3,2,5,9,3,4,5,7,1", "5,1,0,2,4,1,2,9,8,2",
"5,8,4", "0,3,2", "0,7,1,3", "9,8,5,3", "8,7,0,9,6", "5,9,7,9,1",
"5,7,8,4,7,6", "2,7,9,0,6,7", "5,7,5,0,8,1,6", "9,1,2,1,4,7,9",
"5,1,6,9,6,2,6,1", "3,4,8,1,3,2,7,1", "3,2,3", "1,3,1", "2,7,2,6",
"7,2,9,0", "8,6,4,5,0", "3,6,7,4,6", "0,2,3,4,6,5", "2,6,8,0,1,5",
"0,3,6,1,0,4,7", "2,9,7,0,6,2,0", "6,9,0,6,7,3,5,3", "7,2,9,0,7,0,1,3",
"7,4,3,4,2,5,3,8,5", "3,2,5,9,3,4,5,7,1", "5,1,0,2,4,1,2,9,8,2",
"5,8,4", "0,3,2", "0,7,1,3", "9,8,5,3", "8,7,0,9,6", "5,9,7,9,1",
"5,7,8,4,7,6", "2,7,9,0,6,7", "5,7,5,0,8,1,6", "9,1,2,1,4,7,9",
"5,1,6,9,6,2,6,1", "3,4,8,1,3,2,7,1", "8,5,6,0,8,4,6,0,4", "7,9,6,3,8,1,9,2,9",
"2,3,2,7,1,0,2,7,4,5", "6,0,7,8,4,3,4,0,5,8", "3,2,3", "1,3,1",
"2,7,2,6", "7,2,9,0", "8,6,4,5,0", "3,6,7,4,6", "0,2,3,4,6,5",
"2,6,8,0,1,5", "0,3,6,1,0,4,7", "2,9,7,0,6,2,0", "6,9,0,6,7,3,5,3",
"7,2,9,0,7,0,1,3", "5,8,4", "0,3,2", "0,7,1,3", "9,8,5,3", "8,7,0,9,6",
"5,9,7,9,1", "5,7,8,4,7,6", "3,2,3", "1,3,1", "5,8,4", "0,3,2",
"0,7,1,3", "9,8,5,3", "8,7,0,9,6", "5,9,7,9,1", "5,7,8,4,7,6",
"2,7,9,0,6,7", "5,7,5,0,8,1,6", "9,1,2,1,4,7,9", "3,2,3", "1,3,1",
"2,7,2,6", "7,2,9,0", "8,6,4,5,0", "3,6,7,4,6", "0,2,3,4,6,5",
"2,6,8,0,1,5", "0,3,6,1,0,4,7", "2,9,7,0,6,2,0", "6,9,0,6,7,3,5,3",
"7,2,9,0,7,0,1,3", "7,4,3,4,2,5,3,8,5", "3,2,5,9,3,4,5,7,1",
"5,1,0,2,4,1,2,9,8,2", "5,8,4", "0,3,2", "0,7,1,3", "9,8,5,3",
"8,7,0,9,6", "5,9,7,9,1", "3,2,3", "1,3,1", "2,7,2,6", "7,2,9,0",
"8,6,4,5,0", "3,6,7,4,6", "0,2,3,4,6,5", "2,6,8,0,1,5", "0,3,6,1,0,4,7",
"2,9,7,0,6,2,0", "5,8,4", "0,3,2", "0,7,1,3", "9,8,5,3", "8,7,0,9,6",
"5,9,7,9,1", "5,7,8,4,7,6", "2,7,9,0,6,7", "3,2,3", "1,3,1",
"2,7,2,6", "7,2,9,0", "8,6,4,5,0", "3,6,7,4,6", "0,2,3,4,6,5",
"2,6,8,0,1,5", "0,3,6,1,0,4,7", "2,9,7,0,6,2,0", "5,8,4", "0,3,2",
"0,7,1,3", "9,8,5,3", "8,7,0,9,6", "5,9,7,9,1", "5,7,8,4,7,6",
"2,7,9,0,6,7", "3,2,3", "1,3,1", "2,7,2,6", "7,2,9,0", "8,6,4,5,0",
"3,6,7,4,6", "0,2,3,4,6,5", "2,6,8,0,1,5", "0,3,6,1,0,4,7", "2,9,7,0,6,2,0",
"6,9,0,6,7,3,5,3", "7,2,9,0,7,0,1,3", "7,4,3,4,2,5,3,8,5", "3,2,5,9,3,4,5,7,1",
"5,1,0,2,4,1,2,9,8,2", "9,5,3,7,5,6,4,1,6,7", "1,8,4,8,8,7,6,0,3,9,5",
"8,3,3,6,0,9,8,2,7,6,0", "5,8,4", "0,3,2", "0,7,1,3", "9,8,5,3",
"8,7,0,9,6", "5,9,7,9,1", "5,7,8,4,7,6", "2,7,9,0,6,7", "5,7,5,0,8,1,6",
"9,1,2,1,4,7,9", "5,1,6,9,6,2,6,1", "3,4,8,1,3,2,7,1", "8,5,6,0,8,4,6,0,4",
"3,2,3", "1,3,1", "2,7,2,6", "7,2,9,0", "8,6,4,5,0", "3,6,7,4,6",
"0,2,3,4,6,5", "2,6,8,0,1,5", "0,3,6,1,0,4,7", "5,8,4", "0,3,2",
"0,7,1,3", "9,8,5,3", "8,7,0,9,6", "5,9,7,9,1", "5,7,8,4,7,6",
"2,7,9,0,6,7", "3,2,3", "1,3,1", "2,7,2,6", "7,2,9,0", "8,6,4,5,0",
"3,6,7,4,6", "0,2,3,4,6,5", "2,6,8,0,1,5", "0,3,6,1,0,4,7", "2,9,7,0,6,2,0",
"6,9,0,6,7,3,5,3", "7,2,9,0,7,0,1,3", "5,8,4", "0,3,2", "0,7,1,3",
"9,8,5,3", "8,7,0,9,6", "5,9,7,9,1", "5,7,8,4,7,6", "2,7,9,0,6,7",
"3,2,3", "1,3,1", "2,7,2,6", "7,2,9,0", "8,6,4,5,0", "3,6,7,4,6",
"0,2,3,4,6,5", "2,6,8,0,1,5", "5,8,4", "0,3,2", "0,7,1,3", "9,8,5,3",
"8,7,0,9,6", "5,9,7,9,1", "3,2,3", "1,3,1", "2,7,2,6", "7,2,9,0",
"8,6,4,5,0", "3,6,7,4,6", "0,2,3,4,6,5", "2,6,8,0,1,5", "0,3,6,1,0,4,7",
"5,8,4", "0,3,2", "0,7,1,3", "9,8,5,3", "8,7,0,9,6", "5,9,7,9,1",
"5,7,8,4,7,6", "2,7,9,0,6,7", "5,7,5,0,8,1,6", "9,1,2,1,4,7,9",
"3,2,3", "1,3,1", "2,7,2,6", "7,2,9,0", "8,6,4,5,0", "3,6,7,4,6",
"0,2,3,4,6,5", "2,6,8,0,1,5", "0,3,6,1,0,4,7", "2,9,7,0,6,2,0",
"6,9,0,6,7,3,5,3", "7,2,9,0,7,0,1,3", "5,8,4", "0,3,2", "0,7,1,3",
"9,8,5,3", "8,7,0,9,6", "5,9,7,9,1", "5,7,8,4,7,6", "2,7,9,0,6,7",
"5,7,5,0,8,1,6", "3,2,3", "1,3,1", "2,7,2,6", "7,2,9,0", "8,6,4,5,0",
"3,6,7,4,6", "0,2,3,4,6,5", "2,6,8,0,1,5", "0,3,6,1,0,4,7", "2,9,7,0,6,2,0",
"6,9,0,6,7,3,5,3", "7,2,9,0,7,0,1,3", "7,4,3,4,2,5,3,8,5", "5,8,4",
"0,3,2", "0,7,1,3", "9,8,5,3", "8,7,0,9,6", "3,2,3", "1,3,1",
"2,7,2,6", "7,2,9,0", "8,6,4,5,0", "3,6,7,4,6", "0,2,3,4,6,5",
"2,6,8,0,1,5", "0,3,6,1,0,4,7", "2,9,7,0,6,2,0", "5,8,4", "0,3,2",
"0,7,1,3", "9,8,5,3", "8,7,0,9,6", "5,9,7,9,1", "3,2,3", "1,3,1",
"2,7,2,6", "7,2,9,0", "8,6,4,5,0", "3,6,7,4,6", "0,2,3,4,6,5",
"2,6,8,0,1,5", "0,3,6,1,0,4,7", "2,9,7,0,6,2,0", "6,9,0,6,7,3,5,3",
"7,2,9,0,7,0,1,3", "5,8,4", "0,3,2", "0,7,1,3", "9,8,5,3", "8,7,0,9,6",
"5,9,7,9,1", "5,7,8,4,7,6", "2,7,9,0,6,7", "5,7,5,0,8,1,6", "9,1,2,1,4,7,9"
), DSAns.corr = c(0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, NA, NA, NA,
NA, NA, 1, 1, 1, 1, 1, 1, 1, 0, 0, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0,
NA, NA, NA, NA, NA, NA, NA, NA, NA, 1, 1, 1, 1, 1, 1, 1, 1, 0,
0, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 0, 1, 1, 1, 1,
1, 0, 1, 1, 1, 0, 1, 0, 0, NA, NA, NA, NA, NA, NA, NA, 1, 1,
1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1,
0, 1, 1, 0, 0, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 1, 1, 1, 1, 1,
1, 1, 0, 1, 1, 0, 0, NA, NA, NA, NA, NA, NA, NA, 0, 0, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1,
1, 1, 1, 0, 0, NA, NA, NA, NA, NA, NA, 1, 0, 1, 1, 1, 0, 1, 1,
0, 0, NA, NA, NA, NA, NA, NA, NA, NA, 0, 1, 1, 1, 1, 1, 1, 1,
0, 0, NA, NA, NA, NA, NA, NA, NA, NA, 0, 1, 0, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 0, 1, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, 1, 1, 1, 0, 1, 1, 1, 0, 0, NA, NA, NA, NA,
NA, NA, NA, NA, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, NA, NA, NA,
NA, NA, NA, NA, NA, 1, 1, 1, 1, 1, 1, 0, 0, NA, NA, NA, NA, NA,
NA, 0, 1, 1, 1, 1, 1, 1, 0, 0, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, NA, NA, NA, NA, NA,
NA, NA, NA, NA, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, NA, NA,
NA, NA, NA, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, NA, NA, NA, NA, NA,
NA, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA), DSAns_2.corr = c(NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, 1, 1, 1, 0, 0, NA, NA, NA, NA, NA, NA, NA, NA,
NA, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, 1, 1, 1, 1, 0, 1, 1, 0, 0, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0,
0, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 1,
1, 1, 1, 1, 0, 0, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 0, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 1, 1,
1, 1, 1, 0, 1, 0, 1, 1, 0, 0, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
0, 1, 1, 0, 0, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
1, 1, 0, 1, 1, 0, 0, NA, NA, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 1, 0,
1, 1, 0, 0, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 1, 1, 1,
1, 0, 1, 0, 0, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 1, 1,
1, 1, 0, 1, 0, 0, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1,
0, 0, NA, NA, NA, NA, NA, NA, NA, NA, NA, 1, 1, 1, 1, 1, 1, 0,
0, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 1, 1, 1, 1,
1, 1, 0, 0, NA, NA, NA, NA, NA, NA, NA, NA, 1, 1, 1, 1, 0, 0,
NA, NA, NA, NA, NA, NA, NA, NA, NA, 1, 1, 1, 1, 0, 1, 1, 1, 0,
0, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 1, 1, 1, 1,
1, 1, 1, 0, 0, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, 1, 1, 1, 0, 0, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 1,
1, 0, 1, 0, 0, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
1, 1, 1, 0, 1, 1, 0, 1, 0, 0)), row.names = c(NA, -454L), class = c("data.table",
"data.frame"), .internal.selfref = <pointer: 0x000001a95b0e1ef0>)
解决方案
Flying blind here w/o reproducible data, but I think this would work:
library(dplyr)
data %>%
# select last row of each user session with DNAns.corr == 1
group_by(session, initials) %>%
filter(DSAns.corr == 1) %>%
slice_tail(n = 1) %>% # EDIT: corrected from (1) to (n=1)
ungroup() %>%
# Count commas in corrAns plus 1 = # of comma-sep values
# (I'm assuming if zero correct it wouldn't make it through filter above)
mutate(digitspan = stringr::str_count(corrAns, ',') + 1)
推荐阅读
- javascript - 向 console.log 发送消息(开玩笑的木偶师)
- java - 用于匹配特定大小写模式的正则表达式
- python - Django-polymorphic - 我可以按内容类型指定顺序吗?
- netsuite - 在 NetSuite 中重命名术语“员工”
- qt - 如何删除 Flickable QML 组件的边界?
- php - Liip - 仅在大于预期时调整图像大小
- jenkins - 有什么方法可以一次性更新所有 Jenkins 作业的配置(描述)而无需手动操作?
- java - 无法从 Java 在 iOS(Swift)中解密(AES)
- docker - 无法创建没有匹配网关的 Docker 网络
- javascript - useEffect 中的一个简单事件侦听器导致多个警告