Unikanie agencjom krajowym w as.numeric()

Question

Gdybym to zrobił, otrzymuję poprawny wynik:

a <- c("10","28","3") 
which(as.numeric(a) == min(as.numeric(a))) 
[1] 3 

Ale jeśli nie ma agencjom krajowym w wektorze, to nie jest problem

a <- c("10","28","3","NA") 
which(as.numeric(a) == min(as.numeric(a))) 
integer(0) 
Warning messages: 
1: In which(as.numeric(a) == min(as.numeric(a))) : 
    NAs introduced by coercion 
2: In which(as.numeric(a) == min(as.numeric(a))) : 
    NAs introduced by coercion 

Answer 1

Two rzeczy.

Po pierwsze, występuje różnica między ciągiem znaków "NA" a reprezentacją danych R dla brakujących wartości, NA. Usunąć cudzysłowy wokół NA w swoim przykładzie zobaczyć:

a <- c("10","28","3",NA) 

drugie, gdy używasz min z rzeczywistych brakujących wartości (czyli nie jest ciągi znaków "NA") będziemy chcieli użyć na.rm = TRUE:

which(as.numeric(a) == min(as.numeric(a),na.rm = TRUE)) 

Answer 2

Twoim głównym problemem nie jest określeniem na.rm = TRUE w ramach wezwania do min

numeric_a <- as.numeric(a) 

which(numeric_a == min(numeric_a, na.rm = TRUE)) 
## [1] 3 

Można również użyć parametru which.min, który nie wymaga określenia, że ​​wartości NA powinny zostać usunięte. To tylko daje pierwszy mecz, nie wszystkie mecze (dzięki @Dason za przypomnienie mi to wyjaśnić)

which.min(numeric_a)