Question

我试图为每个独特的人添加一个身体计数。每个人都有多个数据点。

df <-  data.frame(PERSON  = c("A", "A", "A", "B", "B", "C", "C", "C", "C"),
                  Y = c(2, 5, 4, 1, 2, 5, 3, 7, 1))

这就是我喜欢的样子：

  PERSON Y UNIQ_CT
1      A 2       1
2      A 5       0
3      A 4       0
4      B 1       1
5      B 2       0
6      C 5       1
7      C 3       0
8      C 7       0
9      C 1       0

Answer 1

你可以使用复制并否定它：

function disable(elem) {
    var obj = document.getElementById(elem);
    status = obj.disabled;
    console.log(status);
    if (status) {
        console.log("test");
        obj.disabled = false;
        obj.style.backgroundColor = "white";
    } else {
        console.log("test2");
        obj.disabled = true;
        obj.style.backgroundColor = "#bfbfbf";
    }
}

Answer 2

由于问题有dplyr标记，因此这是一个选项

library(dplyr)

df %>% 
   group_by(PERSON) %>% 
   mutate(UNIQ_CT = ifelse(row_number( ) == 1, 1, 0))

独特的体数列

2 个答案: