개인적인 연습으로 위험에 처한 수 또는 시간 t 에서 아직 이벤트를 경험하지 않은 관측치 수에 대한 열을 생성하는 방법을 궁금해했습니다 .
다음은 몇 가지 샘플 데이터입니다.
df <- tibble(
event = c(1,1,1,0,0),
time = c(10, 20, 30, 40, 50)
)
df
원하는 출력은 다음과 같아야합니다.
# A tibble: 5 x 3
event time nrisk
<dbl> <dbl> <dbl>
1 1 10 4
2 1 20 3
3 1 30 2
4 0 40 2
5 0 50 2
모든 행이 개별 인 경우 누적 합계를 사용하여 데이터 프레임의 행 수를 뺄 수 event있습니다.
df$n_risk <- nrow(df) - cumsum(df$event)
df
# event time n_risk
# <dbl> <dbl> <dbl>
#1 1 10 4
#2 1 20 3
#3 1 30 2
#4 0 40 2
#5 0 50 2
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다