創建一個句子，如果最低分是其列平均

Question

下面這是我有：

canada <- c(90, 50, 90) 
korea <- c(60, 30, 90) 
iran <- c(40, 20, 40) 
fruit <- rbind(canada, korea, iran) 
colnames(fruit) <- c("apple", "banana", "orange") 

price <- function(val){ 
    val <- tolower(val) # assuming all row names are in lower case 
    myrow <- fruit[val,] 
    nation <- tools::toTitleCase(val) 

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

    range <- c(paste0(nation, " has cheap fruit, ", score.min, " cents for one ", name.min, ".")) 
    cat(range) 
} 

> price("iran") 
Iran has cheap fruit, 20 cents for banana. 

腳本使用which.min以提供選定行的細胞具有最低的分數。

加拿大最便宜的水果是香蕉，價格爲50美分，但仍高於平均水平。我想從計算機打印內容只有香蕉的價格是高於平均水平，產生這樣的句子：

> price("canada") 
Canada's cheapest fruit is banana, but it is still more expensive than the average. 

我總是可以手動輸入列平均和使用操作的跡象，但我希望如果有將是我可以融入到我目前擁有的功能。

Answer 1

這樣的事情？

canada <- c(90, 50, 90) 
korea <- c(60, 30, 90) 
iran <- c(40, 20, 40) 
fruit <- rbind(canada, korea, iran) 
colnames(fruit) <- c("apple", "banana", "orange") 

price <- function(val){ 
    val <- tolower(val) # assuming all row names are in lower case 
    myrow <- fruit[val,] 
    nation <- tools::toTitleCase(val) 

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

    if (score.min < mean(fruit[, name.min])) { 
    cat(paste0(nation, "'s cheapest fruit is ", name.min, 
       ", and it is cheaper than the average.")) 
    } else { 
    cat(paste0(nation, "'s cheapest fruit is ", name.min, 
       ", but it is still more expensive than the average.")) 
    } 
} 

> price("iran") 
Iran's cheapest fruit is banana, and it is cheaper than the average. 
> price("canada") 
Canada's cheapest fruit is banana, but it is still more expensive than the average.