Заменить на 0 повторяющуюся переменную в соответствии с идентификатором
У меня есть фрейм данных, подобный этому:
df
ID job_code
1 8
1 8
1 8
2 7
2 7
2 4
3 1
3 2
Если у человека несколько раз один и тот же код задания, я хотел бы сохранить только первый и заменить остальные на 0, чтобы получить такой фрейм данных:
df
ID job_code job_code_2
1 8 8
1 8 0
1 8 0
2 7 7
2 7 0
2 4 4
3 1 1
3 2 2
Я думал об использовании функции:
dataframe %>%
group_by(ID) %>%
and replace
но я не уверен, как это сделать.
Спасибо заранее за вашу помощь.
Ответы 4
Используйте duplicated:
df %>%
group_by(ID) %>%
mutate(job_code2 = ifelse(duplicated(job_code), 0, job_code)) %>%
ungroup()
в базе R вы можете использовать tapply + duplicated:
df$job_code2 <- unlist(tapply(df$job_code, df$ID, function(x) ifelse(duplicated(x), 0, x)))
первая функция хороша, но я не знаю, почему в некоторых темах она не работает. Для предметов, где уже есть код, выпущенный для предыдущего предмета, он не работает. например, по предмету 4 я получаю 0, когда должен получить 8
У меня есть это :
ID job_code job_code_2 1 8 8 1 8 0 1 8 0 2 7 7 2 7 0 2 4 4 3 1 1 3 2 2 4 8 0
Вместо этого :
ID job_code job_code_2 1 8 8 1 8 0 1 8 0 2 7 7 2 7 0 2 4 4 3 1 1 3 2 2 4 8 8
library(tidyverse)
df <- data.frame(
ID = c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L),
job_code = c(8L, 8L, 8L, 7L, 7L, 4L, 1L, 2L)
)
df %>%
group_by(ID, job_code) %>%
mutate(job_code2 = job_code * +(row_number() == 1)) %>%
ungroup()
#> # A tibble: 8 x 3
#> ID job_code job_code2
#> <int> <int> <int>
#> 1 1 8 8
#> 2 1 8 0
#> 3 1 8 0
#> 4 2 7 7
#> 5 2 7 0
#> 6 2 4 4
#> 7 3 1 1
#> 8 3 2 2
Created on 2022-03-23 by the reprex package (v2.0.1)
Я получаю это сообщение об ошибке: Ошибка в mutate(): ! Проблема при вычислении job_code2 = job_code* +(row_number() == 1). ℹ Произошла ошибка в группе 1: ID = 1. Вызвана ошибкой в job_code * +(row_number() == 1): ! нечисловой аргумент для бинарного оператора. Запустите rlang::last_error(), чтобы увидеть, где произошла ошибка.
показать небольшой воспроизводимый пример данных с этой ошибкой
Я перезапустил весь сеанс R, и, наконец, это сработало, большое спасибо за вашу помощь!
Большой! Если вы считаете, что этот ответ был полезен для вас, вы можете принять его, нажав на галочку слева от этого ответа :)
Другое возможное решение:
library(tidyverse)
df <- read_table("ID job_code
1 8
1 8
1 8
2 7
2 7
2 4
3 1
3 2")
df %>%
group_by(ID, job_code) %>%
mutate(job_code = if_else(row_number() > 1, 0, job_code)) %>%
ungroup
#> # A tibble: 8 x 2
#> ID job_code
#> <dbl> <dbl>
#> 1 1 8
#> 2 1 0
#> 3 1 0
#> 4 2 7
#> 5 2 0
#> 6 2 4
#> 7 3 1
#> 8 3 2
Как сейчас написано, ваш ответ неясен. Пожалуйста, редактировать, чтобы добавить дополнительную информацию, которая поможет другим понять, как это относится к заданному вопросу. Дополнительную информацию о том, как писать хорошие ответы, можно найти в справочном центре.