Tại sao 1,99,999 == "1" .. "99,999" trong R, nhưng 100.000! = "100.000"?

Question

Trong giao diện điều khiển, đi trước và thử

> sum(sapply(1:99999, function(x) { x != as.character(x) })) 
0 

Đối với tất cả các giá trị từ 1 đến 99999, "1" == 1, "2" == 2 ..., 99999 == "99999" là TRUE. Tuy nhiên,

> 100000 == "100000" 
FALSE 

Tại sao R có hành vi kỳ quặc này và đây có phải là lỗi không? Điều gì sẽ là một giải pháp để, ví dụ: kiểm tra xem mọi phần tử trong vectơ ký tự nguyên tử có thực sự là số không? Ngay bây giờ tôi đã cố gắng để kiểm tra xem x == as.numeric(x) cho mỗi x, nhưng điều đó không thành công trên bộ dữ liệu nhất định do vấn đề trên!

Answer 1

Hãy xem as.character(100000). Giá trị của nó không bằng "100000" (có một cái nhìn cho chính mình), và R là cơ bản chỉ nói cho bạn như vậy.

as.character(100000) 
# [1] "1e+05" 

Ở đây, từ ?Comparison, những quy tắc R cho việc áp dụng toán tử quan hệ với các giá trị của các loại khác nhau:

Nếu hai đối số là vectơ nguyên tử của các loại khác nhau, một là cưỡng chế các loại khác, thứ tự (giảm) của ưu tiên là ký tự, số phức, số, số nguyên, lôgic và thô.

Những quy tắc này có nghĩa là khi bạn kiểm tra xem 1=="1", trước tiên R chuyển đổi giá trị số trên LHS thành chuỗi ký tự và sau đó kiểm tra tính bình đẳng của chuỗi ký tự trên LHS và RHS. Trong một số trường hợp, chúng sẽ bằng nhau, nhưng trong những trường hợp khác, chúng sẽ không như vậy. Những trường hợp sản xuất bất bình đẳng sẽ phụ thuộc vào các thiết lập hiện tại của options("scipen") và options("digits")

Vì vậy, khi bạn gõ 100000=="100000", nó là như thể bạn đã thực sự thực hiện kiểm tra sau. (Lưu ý rằng trong nội bộ, R có thể cũng/có lẽ sử dụng một cái gì đó khác với as.character() để thực hiện việc chuyển đổi):

as.character(100000)=="100000" 
# [1] FALSE