Fügen Sie in einem Datenrahmen in R

Question

insgesamt Zeilensummierungsspalten hinzu Ich habe ein Datenframe, das nur zu mehreren Volume-Spalten erstellt wird, und ich möchte eine Gesamtspalte namens Test erstellen, die in dem Datenframe sitzt. Der folgende Code funktioniert, wenn ich nur test <- ... setze, aber wenn ich summary_transposed_no_time$ auf der linken Seite hinzufüge, scheint der Code es nicht dem Dataframe hinzuzufügen.

Ich würde auch gerne wissen, wie ich dieses Stück Code entwickeln konnte, so dass ich Test erstellen konnte, um alle Spalten minus Spalte 1 zu sein, und später im Prozess eine weitere Testspalte erstellen (vielleicht Test2 genannt) eine Zusammenfassung aller Spalten minus Spalte 2 - ich die Spaltenpositionen hart codieren können, aber nicht die Spaltennamen (wie sie in Namenskonvention jedes Mal, wenn der Code ausgeführt ändern können), so habe ich sie hier nicht enthalten

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

Beispiel für 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 

Wunschergebnis Spalten innerhalb 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

Sie sollten ein reprocucible Beispiel liefern. Aber wenn deine Frage wirklich nur geht, wie man Zeilenumbrüche durchführt, würde ich lieber die eingebaute Funktion rowSums verwenden. Ihr Code wäre:

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

Ich habe gefunden, wie man eine "total_" für jede Spalte innerhalb der df erstellen. total_1 ist die Summe aller Spalten minus Spalte 1, total_2 die Summe aller Spalten minus Spalte 2 etc.

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)){