如何檢查矢量中的每個元素是否是R中的整數？

Question

說，我有一個向量y，我想檢查y中的每個元素是否爲整數，如果不是，則停止並顯示錯誤消息。我試過is.integer（y），但它不起作用。

Answer 1

最簡單（最快！）的東西可能是這樣的：

stopifnot(all(y == floor(y))) 

...所以試試看：

y <- c(3,4,9) 
stopifnot(all(y == floor(y))) # OK 

y <- c(3,4.01,9) 
stopifnot(all(y == floor(y))) # ERROR! 

如果你想有一個更好的錯誤消息：

y <- c(3, 9, NaN) 
if (!isTRUE(all(y == floor(y)))) stop("'y' must only contain integer values") 

Answer 2

你可以這樣做：

y <- c(3,3.1,1,2.3) 
    (y - floor(y)) == 0 
    [1] TRUE FALSE TRUE FALSE 

或

(y - round(y)) == 0 

，如果你想對整個事情的單一TRUE或FALSE，把它放在all()，如：

all((y - round(y)) == 0) 
    [1] FALSE 

Answer 3

不知道Tim的方式還是這個更快，但是：

> x <- 1:5 
> y <- c(x, 2.0) 
> z <- c(y, 4.5) 
> all.equal(x, as.integer(x)) 
[1] TRUE 
> all.equal(y, as.integer(y)) 
[1] TRUE 
> all.equal(z, as.integer(z)) 
[1] "Mean relative difference: 0.1111111" 
> 

或：

all((z - as.integer(z))==0) 

Answer 4

我在一個完全不同的方向，然後添去（我喜歡他的更好，雖然我的方法適用於混合向量與整數等字符向量）：

int.check <- function(vect) { 
    vect <- as.character(vect) 
    sapply(vect, function(x) all(unlist(strsplit(x, ""))%in% 0:9)) 
} 

x <- c(2.0, 1111,"x", 2.4) 
int.check(x) 

編輯：改變功能，因爲它只對字符向量工作。

這適用於類字符的向量，以及萬一你有一個混合了各種數字的字符向量但被強制轉換爲字符。

Answer 5

這裏的另一種方式（使用同樣的伎倆，因爲每個數字比較裹挾進「整數」類型的號碼的賈斯汀）：

R> v1 = c(1,2,3) 
R> v2 = c(1,2,3.5) 
R> sapply(v1, function(i) i == as.integer(i)) 
[1] TRUE TRUE TRUE 
R> sapply(v2, function(i) i == as.integer(i)) 
[1] TRUE TRUE FALSE 

爲了讓你的測試：

R> all(sapply(v2, function(i) i == as.integer(i))) 
[1] FALSE 

Answer 6

如果已經浮點表示錯誤，請嘗試：

round(y, TOLERANCE.DIGITS) %% 1 == 0 

在我的申請，我不得不認真殘酷浮動點代表性錯誤，例如：

> dictionary$beta[3] 
[1] 89 
> floor(dictionary$beta[3]) 
[1] 88 
> as.integer(dictionary$beta)[3] 
[1] 88 
> dictionary$beta[3] %% 1 
[1] 1 

除以1的餘數爲1。我發現在整數之前我必須輪迴。我認爲所有這些測試將失敗的情況下，你想要上述89計爲一個整數。全部。平等」的功能，就是要處理浮點表示錯誤的最好辦法，但：

all.equal(88, 89); 

在我的情況下，將有（也沒有）給出了一個整數值檢查假陰性

。

編輯：在基準測試中，我發現：

(x == as.integer(x)) 

是普遍的最好表演

(x == floor(x)) 
((x - as.integer(x)) == 0) 

。

通常運行良好，通常同樣快。

(x %% 1 <= tolerance) 

的作品，但不盡快別人

!(is.character(all.equal(x, as.integer(x)))) 

當載體是不是整數，有可怕性能（當然，因爲它關係到估計差的麻煩）。

identical(x, as.integer(x)) 

當載體是所有整數值，則返回不正確結果（假定的問題是爲了檢查整數值，而不是整數類型）。

Answer 7

檢查以下內容可以幫助我們在條件允許的情況下使用腳本。

sff <- 5 

if(!(is.integer(sff) == is.character(sff))){ 
    sff 
} else { 
    "hello" 
} 

給

hello 

sff <- 'a'給'a'作爲結果。