Nilai bawaan numerik

cut_by_quantile() mengonversi sebuah vektor numerik menjadi variabel kategorikal dengan kuantil sebagai batas pemotongnya. Ini adalah fungsi yang berguna, tetapi saat ini Anda harus menentukan lima argumen agar berfungsi. Itu terlalu banyak berpikir dan mengetik.

Dengan menetapkan argumen bawaan, Anda dapat membuatnya lebih mudah digunakan. Mari mulai dengan n, yang menentukan berapa banyak kategori untuk memotong x.

Sebuah vektor numerik berisi jumlah kunjungan ke Snake River disediakan sebagai n_visits.

Latihan ini merupakan bagian dari kursus

Pengantar Penulisan Fungsi di R

Lihat Kursus

Instruksi latihan

Perbarui definisi cut_by_quantile() sehingga argumen n memiliki nilai bawaan 5.
Hapus argumen n dari pemanggilan cut_by_quantile().

Latihan interaktif langsung praktik

Cobalah latihan ini dengan melengkapi kode contoh ini.

# Set the default for n to 5
cut_by_quantile <- function(x, n, na.rm, labels, interval_type) {
  probs <- seq(0, 1, length.out = n + 1)
  qtiles <- quantile(x, probs, na.rm = na.rm, names = FALSE)
  right <- switch(interval_type, "(lo, hi]" = TRUE, "[lo, hi)" = FALSE)
  cut(x, qtiles, labels = labels, right = right, include.lowest = TRUE)
}

# Remove the n argument from the call
cut_by_quantile(
  n_visits, 
  n = 5, 
  na.rm = FALSE, 
  labels = c("very low", "low", "medium", "high", "very high"),
  interval_type = "(lo, hi]"
)

Edit dan Jalankan Kode