Đối số mặc định

Nhập môn viết hàm trong R

Richie Cotton

Data Evangelist at DataCamp

Sự cố với toss_coin()

toss_coin <- function(n_flips, p_head) {
  coin_sides <- c("head", "tail")
  weights <- c(p_head, 1 - p_head)
  sample(coin_sides, n_flips, replace = TRUE, prob = weights)
}

Đặt giá trị mặc định trong khai báo hàm

toss_coin <- function(n_flips, p_head = 0.5) {
  coin_sides <- c("head", "tail")
  weights <- c(p_head, 1 - p_head)
  sample(coin_sides, n_flips, replace = TRUE, prob = weights)
}
Nhập môn viết hàm trong R

Mẫu hàm với mặc định

my_fun <- function(data_arg1, data_arg2, detail_arg1 = default1) {
  # Do something
}
Nhập môn viết hàm trong R

Các kiểu mặc định khác

args(median)
function (x, na.rm = FALSE, ...)
library(jsonlite)
args(fromJSON)
function (txt, simplifyVector = TRUE, simplifyDataFrame = simplifyVector, 
    simplifyMatrix = simplifyVector, flatten = FALSE, ...)
Nhập môn viết hàm trong R

Mặc định NULL

Theo quy ước, điều này có nghĩa là

Hàm sẽ xử lý đặc biệt đối số này. Vui lòng đọc tài liệu.

args(set.seed)
function (seed, kind = NULL, normal.kind = NULL)
Nhập môn viết hàm trong R

Mặc định cho biến phân loại

  1. Truyền một vector ký tự trong khai báo.
  2. Gọi match.arg() trong thân hàm.
args(prop.test)
function (x, n, p = NULL, alternative = c("two.sided", "less", "greater"), 
  conf.level = 0.95, correct = TRUE)

Trong thân hàm

alternative <- match.arg(alternative)
Nhập môn viết hàm trong R

Chia vector theo phân vị

cut_by_quantile <- function(x, n, na.rm, labels, interval_type) {
  probs <- seq(0, 1, length.out = n + 1)
  quantiles <- quantile(x, probs, na.rm = na.rm, names = FALSE)
  right <- switch(interval_type, "(lo, hi]" = TRUE, "[lo, hi)" = FALSE)
  cut(x, quantiles, labels = labels, right = right, include.lowest = TRUE)
}
  • x: Vector số cần chia
  • n: Số nhóm chia x
  • na.rm: Có loại bỏ giá trị thiếu không?
  • labels: Nhãn ký tự cho các nhóm
  • interval_type: Mở khoảng bên trái hay bên phải?
Nhập môn viết hàm trong R

Khối lượng tim mèo

Biểu đồ strip của khối lượng tim mèo. Phạm vi từ 3 đến 20 gram.

quantile(cats$Hwt)
    0%    25%    50%    75%   100% 
 6.300  8.950 10.100 12.125 20.500
1 data(cats, package = "MASS")
Nhập môn viết hàm trong R

Chia theo phân vị

Biểu đồ strip từ slide trước được tô màu: điểm đỏ bên trái, rồi xanh lá, xanh ngọc, tím bên phải.

cut(x, quantile(x))
Nhập môn viết hàm trong R

Ayo berlatih!

Nhập môn viết hàm trong R

Preparing Video For Download...