R로 해결한 PowerQuery 퍼즐

R로 해결한 PowerQuery 퍼즐제목: PowerQuery Puzzle solved with R작성자: ExcelBI이번 주부터 모든 퍼즐에 대한 엑셀 파일(퍼즐)과 R 솔루션 파일이 Github에 제공됩니다. 즐겁게 활용하시기 바랍니다. 놀랍게도 이번 주에는 시간 관련 퍼즐이 없으며, 표 변환 작업이 주를 이룹니다.퍼즐 #143이 퍼즐은 일종의 로그 파일입니다. 직원들이 관측값을 입력하지만, 동일한 관측값이 있는 경우가 있습니다. 이것이 올바른 것인지 확인하려면 중복값을 찾아야 합니다. 단, 처음 등장하는 것은 제외하고 두 번째(첫 중복)와 마지막 등장만 남깁니다. 혼란스러울 수 있지만, 해봅시다.library(tidyverse) library(readxl) input % group_by(Emp, Value) %% mutate(rn = row_number()) %% filter(rn == 2 | (rn == max(rn) & rn > 2)) %% select(-rn) %% ungroup() identical(result, test) # [1] TRUE코드를 실행하면 identical(result, test)가 TRUE를 반환하여 검증이 완료됩니다.퍼즐 #144다시 한번 직원 로그가 등장합니다. 두 날 중 어느 날에 기록했는지 명시하지 않아 관리자는 분석가에게 각 사람의 로그를 중간에서 나누도록 지시했습니다(로그가 홀수 개인 경우, “첫 번째 절반”이 더 커야 합니다). 따라서 누군가의 실수를 바로잡아 보겠습니다.library(tidyverse) library(readxl) input % group_by(Group) %% mutate(Half = ifelse(row_number() <= n() %/% 2 + n() %% 2, "first", "second")) %