총 행 합계 열을 데이터 프레임에 R

Question

을 입력하십시오.

데이터 프레임을 여러 볼륨 열로 만 만들고 데이터 프레임에있는 test라는 총 열을 만들고 싶습니다. 아래 코드는 단지 test <- ...으로 설정했지만, 왼쪽에 summary_transposed_no_time$을 추가하면 코드가 데이터 프레임에 추가되지 않는 것 같습니다.

나는이 코드 조각을 어떻게 전개하여 모든 열이 마이너스 열 1인지 테스트를 만들 수 있는지 알고 싶습니다. 그리고 나중에 또 다른 테스트 열 (아마도 test2라고 불리는)을 만들 것입니다. 모든 열을 뺀 열 2의 요약 - (그들은 규칙을 코드가 실행될 때마다 이름으로 변경할 수) 열심히 열 위치가 아닌 열 이름을 코딩 할 수 있습니다 그래서 여기

w <- ncol(summary_transposed_no_time) 
summary_transposed_no_time$test <- apply(summary_transposed_no_time[,c(1:w)], 1, sum) 

그들을 포함하지 않은

summary_transposed_no_time의 예 :

postal_dist_a | postal_dist_b | postal_dist_c 
------------- | ------------- | ------------- 
20   | 25   | 15 
25   | 40   | 23 
31   | 32   | 19 
24   | 39   | 17 
37   | 19   | 26 

summary_transposed_no_time 내

원하는 결과 열 :

postal_dist_a | postal_dist_b | postal_dist_c | test 
------------- | ------------- | ------------- | ------------- 
20   | 25   | 15   | 60 
25   | 40   | 23   | 88 
31   | 32   | 19   | 82 
24   | 39   | 17   | 80 
37   | 19   | 26   | 82 

Answer 1

당신은 reprocucible 예를 제공해야합니다. 그러나 만약 당신의 질문이 정말로 단지 행을 어떻게하는지에 관한 것입니다, 나는 오히려 내장 함수 rowSum을 사용할 것입니다. 귀하의 코드는 다음과 같습니다 나는 DF 내의 모든 열에 대해 "total_"를 만드는 방법을 발견했습니다

set.seed(1) 
# I recreate a table more or less like yours 
summary_transposed_no_time=data.frame(matrix(rnorm(1000),ncol=5)) 
n=ncol(summary_transposed_no_time) 

# Test that contains the rowsum 
summary_transposed_no_time$test=rowSums(summary_transposed_no_time) 

# test1 rowsum minus column 1 
summary_transposed_no_time$testm1=rowSums(summary_transposed_no_time[,2:n]) 
# test2 rowsum minus column 2 
summary_transposed_no_time$testm2=rowSums(summary_transposed_no_time[,c(1,3:n)]) 
#test_i minus column i 
i=3 
summary_transposed_no_time$testmi=rowSums(summary_transposed_no_time[,c(1:n)][,-i]) 

#check on first line : 
sum(summary_transposed_no_time[1,1:n])==summary_transposed_no_time$test[1] 
sum(summary_transposed_no_time[1,2:n])==summary_transposed_no_time$testm1[1] 
sum(summary_transposed_no_time[1,c(1,3:n)])==summary_transposed_no_time$testm2[1] 
sum(summary_transposed_no_time[1,c(1:2,4:n)])==summary_transposed_no_time$testmi[1] 

Answer 2

. total_1은 모든 열을 뺀 열 1, total_2는 모든 열 빼기 열 2 등입니다.

n=ncol(summary_transposed_no_time) 

for (h in 1:ncol(summary_transposed_no_time)) { 

    summary_transposed_no_time[,paste0("total_",h)] <- rowSums(summary_transposed_no_time[,c(1:n)][,-h]) 
    m = ncol(summary_transposed_no_time) 
    print(paste("added in a total columns for region", h, "so the column count is now : ",m)) 

} # end for (h in 1:nrow(filtered_data_contents)){