tibble에 새 계산 열을 추가하는 방법에 대해 고민하고 있습니다. 이것은 내 코드이며 실행될 때 새 열 ( scs_oi_pre
) 의 모든 행 에는 동일한 값이 포함되지만 입력은 다릅니다. 나는의 평균을 찾고 scs_pre_1
및 scs_pre_2
행 단위로 계산한다. 내가 교체하는 경우 mean(c(scs_pre_1, scs_pre_2)
에 scs_pre_1 + scs_pre_2
, 합계 벌금을 계산하지만, 어디에 문제가 거짓말 함수를 사용하는 것입니다.
scsData <- tibble(scs_pre_1, scs_pre_2) %>%
mutate(scs_oi_pre = mean(c(scs_pre_1, scs_pre_2)))
산출
내가 뭘 놓치고 있는지 알려주 시겠어요?
한 가지 dplyr
관용구는 다음 rowwise()
과 함께 사용하는 것 입니다 c_across
.
library(dplyr)
df %>%
rowwise() %>%
mutate(avg = mean(c_across(c(pre_1, pre_2))))
# A tibble: 10 x 3
# Rowwise:
pre_1 pre_2 avg
<dbl> <dbl> <dbl>
1 -0.560 1.22 0.332
2 -0.230 0.360 0.0648
3 1.56 0.401 0.980
4 0.0705 0.111 0.0906
5 0.129 -0.556 -0.213
6 1.72 1.79 1.75
7 0.461 0.498 0.479
8 -1.27 -1.97 -1.62
9 -0.687 0.701 0.00725
10 -0.446 -0.473 -0.459
데이터:
set.seed(123)
df <- tibble(pre_1 = rnorm(10), pre_2 = rnorm(10))
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다