Cara memuat banyak paket di r (dengan contoh)

Anda dapat menggunakan sintaks dasar berikut untuk memuat beberapa paket ke R sekaligus:

 lapply(some_packages, library, character. only = TRUE )

Dalam contoh ini, some_packages mewakili vektor nama paket yang ingin Anda muat.

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: memuat banyak paket di R

Kode berikut menunjukkan cara meringkas kumpulan data di R dan membuat plot menggunakan tiga paket berbeda:

• dplyr
• ggplot2
• tema gg

Dalam contoh ini, kita memuat setiap paket satu per satu menggunakan tiga fungsi perpustakaan() yang berbeda:

 library (dplyr)
library (ggplot2)
library (ggthemes)

#make this example reproducible
set. seeds (0)

#create data frame
df <- data. frame (category=rep(c('A', 'B', 'C', 'D', 'E'), each= 10 ),
                 value=runif(50, 10, 20))

#create summary data frame
df_summary <- df %>%
  group_by(category) %>%
  summarize(mean=mean(value),
            sd=sd(value))

#plot mean value of each category with error bars
ggplot(df_summary) +
    geom_bar(aes(x=category, y=mean), stat=' identity ') +
    geom_errorbar(aes(x=category, ymin=mean-sd, ymax=mean+sd), width= 0.3 ) +
    theme_tufte()

Dengan menggunakan kode ini, kita dapat memuat ketiga paket dan menghasilkan bagan yang merangkum nilai kumpulan data.

Namun, kita dapat mencapai hasil yang sama dengan menggunakan fungsi lapply() untuk memuat ketiga paket menggunakan satu baris kode:

 #define vector of packages to load
some_packages <- c(' ggplot2 ', ' dplyr ', ' ggthemes ')

#load all packages at once
lapply(some_packages, library, character. only = TRUE )

#make this example reproducible
set. seeds (0)

#create data frame
df <- data. frame (category=rep(c('A', 'B', 'C', 'D', 'E'), each= 10 ),
                 value=runif(50, 10, 20))

#create summary data frame
df_summary <- df %>%
  group_by(category) %>%
  summarize(mean=mean(value),
            sd=sd(value))

#plot mean value of each category with error bars
ggplot(df_summary) +
    geom_bar(aes(x=category, y=mean), stat=' identity ') +
    geom_errorbar(aes(x=category, ymin=mean-sd, ymax=mean+sd), width= 0.3 ) +
    theme_tufte() 

Sekali lagi kami dapat memuat ketiga paket dan menghasilkan plot yang sama seperti sebelumnya.

Perbedaannya adalah kali ini kita dapat memuat ketiga paket menggunakan satu baris kode.

Fungsi lapply() ini sangat berguna ketika Anda ingin memuat daftar paket yang panjang tanpa harus mengetikkan fungsi perpustakaan() setiap saat.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di R:

Cara membersihkan lingkungan di R
Cara menghapus semua plot di RStudio
Cara menafsirkan di R: objek berikut disembunyikan