which.minとwhich.max出力の名前と同じ

Question

私は2つの列の間の欠損値を持つ韓国では、次のデータがあります：私は果物の名前を印刷する必要が

canada <- c(100, 0, 100) 
korea <- c(100, "", 100) 
brazil <- c(100, 90, 100) 
fruit <- rbind(canada, korea, brazil) 
colnames(fruit) <- c("apple", "orange", "banana") 
fruit 

を最小値から最大値まで変化する。私はこれを持っている：

price <- function(val){ 
    # General Functions ---- 
    val <- tolower(val) 
    myrow <- fruit[val,] 
    nation <- tools::toTitleCase(val) 

    name.min <- names(myrow)[which.min(c(myrow))] 
    name.max <- names(myrow)[which.max(c(myrow))] 

    cat(paste0("There is an 'NA' between two columns: ", name.min, " ", name.max)) 
} 

問題は、韓国のリンゴとバナナの間に欠損値があるので、これはそれが印刷さ何であるということである。

> price("korea") 
There is an NA between two columns: apple apple 

私はそれが次のようになりたい：

> price("korea") 
There is an NA between two columns? No problem: apple banana 

Answer 1

price <- function(val){ 
    val <- tolower(val) 
    myrow <- fruit[val,] 
    nation <- tools::toTitleCase(val) 

    name.min <- names(myrow)[which.min(c(myrow))] 
    name.max <- names(which(myrow == max(myrow))) 

    cat(paste0(name.max)) 
} 

> price("korea") 
apple banana 

Answer 2

これは醜いですが、あなたが探しているものを行う必要があります。

price <- function(x) { 
    temp <- data.frame(val = as.numeric(fruit[rownames(fruit)==x,]), 
        name = colnames(fruit)) 
    ind <- which(is.na(temp[,1])) 
    if (length(ind!=0)) temp <- temp[-ind,] 
    temp[order(temp[,1]),2] 
} 

price("korea")