Bagaimana cara menambahkan baris total ke bingkai data di r

Anda dapat menggunakan metode berikut untuk menambahkan baris “total” ke bagian bawah bingkai data di R:

Metode 1: Gunakan Basis R

 rbind(df, data. frame (team=' Total ', t(colSums(df[, -1]))))

Metode 2: gunakan dplyr

 library (dplyr)

df %>%
  bind_rows(summarize(., across(where(is.numeric), sum),
                         across(where(is.character), ~' Total ')))

Contoh berikut menunjukkan cara menggunakan setiap metode dalam praktik dengan kerangka data berikut:

 #create data frame
df <- data. frame (team=c('A', 'B', 'C', 'D', 'E', 'F'),
                 assists=c(5, 7, 7, 9, 12, 9),
                 rebounds=c(11, 8, 10, 6, 6, 5),
                 blocks=c(6, 6, 3, 2, 7, 9))

#view data frame
df

  team assists rebound blocks
1 to 5 11 6
2 B 7 8 6
3 C 7 10 3
4 D 9 6 2
5 E 12 6 7
6 F 9 5 9

Contoh 1: Tambahkan total baris menggunakan basis R

Kita dapat menggunakan fungsi rbind dan colSums dari basis R untuk menambahkan baris total di bagian bawah bingkai data:

 #add total row to data frame
df_new <- rbind(df, data. frame (team=' Total ', t(colSums(df[, -1]))))

#view new data frame
df_new

   team assists rebound blocks
1 to 5 11 6
2 B 7 8 6
3 C 7 10 3
4 D 9 6 2
5 E 12 6 7
6 F 9 5 9
7 Total 49 46 33

Perhatikan bahwa baris telah ditambahkan ke bagian bawah bingkai data yang menampilkan jumlah nilai di setiap kolom.

Contoh 2: Tambahkan total baris menggunakan dplyr

Kode berikut menunjukkan cara menggunakan fungsi paket dplyr di R untuk menambahkan baris total ke bagian bawah bingkai data:

 library (dplyr)

#add total row to data frame
df_new <- df %>%
            bind_rows(summarize(., across(where(is.numeric), sum),
                                   across(where(is.character), ~' Total ')))

#view new data frame
df_new

   team assists rebound blocks
1 to 5 11 6
2 B 7 8 6
3 C 7 10 3
4 D 9 6 2
5 E 12 6 7
6 F 9 5 9
7 Total 49 46 33

Perhatikan bahwa baris telah ditambahkan ke bagian bawah bingkai data yang menampilkan jumlah nilai di setiap kolom.

Perhatikan juga bahwa metode ini menghasilkan hasil yang sama dengan metode basis R.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di R:

Cara menggunakan rbind di R
Cara menghapus baris di R
Cara menghitung selisih antar baris di R