Dplyr sản xuất NaN trong khi cơ sở sản xuất R NA

Question

Hãy xem xét các dữ liệu đồ chơi sau và tính toán:

library(dplyr) 

df <- tibble(x = 1) 

stats::sd(df$x) 

dplyr::summarise(df, sd_x = sd(x)) 

Kết quả tính toán đầu tiên trong NA trong khi thứ hai, khi tính toán được bao gồm trong các chức năng dplyr summarise sản xuất NaN. Tôi mong đợi cả hai tính toán để tạo ra kết quả tương tự và tôi tự hỏi tại sao chúng khác nhau?

Answer 1

Gọi điện là một chức năng khác. Tôi không rõ chức năng là gì, nhưng nó không phải là stats.

dplyr::summarise(df, sd_x = stats::sd(x)) 
# A tibble: 1 x 1 
    sd_x 
    <dbl> 
1 NA 

debugonce(sd) # debug to see when sd is called 

Không gọi đây:

dplyr::summarise(df, sd_x = sd(x)) 
# A tibble: 1 x 1 
    sd_x 
    <dbl> 
1 NaN 

Nhưng gọi đây:

dplyr::summarise(df, sd_x = stats::sd(x)) 
debugging in: stats::sd(1) 
debug: sqrt(var(if (is.vector(x) || is.factor(x)) x else as.double(x), 
    na.rm = na.rm)) 
... 

Cập nhật

Dường như sd trong summarise được tính bên ngoài của R, gợi ý tại trong tệp tiêu đề này: https://github.com/tidyverse/dplyr/blob/master/inst/include/dplyr/Result/Sd.h

Một số hàm dường như được định nghĩa lại bởi dplyr. Cho rằng var cho kết quả tương tự trong cả hai trường hợp, tôi nghĩ rằng hành vi sd là một lỗi.