大富翁回顾

高效 R 代码写作

Colin Gillespie

Jumping Rivers & Newcastle University

数据框 vs 矩阵

# Original
rolls <- data.frame(d1 = sample(1:6, 3, replace = TRUE),
                    d2 = sample(1:6, 3, replace = TRUE))

# Updated
rolls <- matrix(sample(1:6, 6, replace = TRUE), ncol = 2)

# Original
total <- apply(df, 1, sum)

# Updated
total <- rowSums(df)

# Original
is_double[1] & is_double[2] & is_double[3]

# Updated
is_double[1] && is_double[2] && is_double[3]

高效 R 代码写作