取代：

ifelse(V>=80,"Above_Average","Average")

use:

cat(ifelse(V>=80,"Above_Average","Average"))

这就行了!

例如：

conditional <- function(V)
{
  W <- ifelse(V>=80,paste("Above_Average_Marks"), paste("Average"))
  cat(W)
}

conditional(c(90,80,85,70,95))
#> Above_Average_Marks Above_Average_Marks Above_Average_Marks Average Above_Average_Marks

这将删除多余的空间：

conditional <- function(V)
{
    x <- if_else(V>=80,"Above_Average", "Average")
    paste(x, collapse= ' ')
}

conditional(c(90,80,85,70,95))

[1] "Above_Average Above_Average Above_Average Average Above_Average"

我想我明白了。
我认为当你有一个向量返回Above_Average和Average时，它会根据较大字符串的长度来分隔所有元素，即Above_Average。

conditional(c(90,80,85,70,95))

你得到

[1] "Above_Average" "Above_Average" "Above_Average" "Average"       "Above_Average"

如果您将Above_Average更改为Above_Average_Marks，我们将获得更大的空间。

conditional <- function(V)
{
  ifelse(V>=80,paste("Above_Average_Marks"), paste("Average"))
}
conditional(c(99, 90,80,85,70,95, 100))

[1] "Above_Average_Marks" "Above_Average_Marks" "Above_Average_Marks" "Above_Average_Marks" "Average"             "Above_Average_Marks" "Above_Average_Marks"

这些不是空格，只是长度对齐.

这可能有用。

conditional <- function(V) 
{
  
    for (i in V){
        if(i>=80){
            cat("Above_Average ")
            }
        else{ 
            cat("Average ")
            }
    }
}

conditional(c(78,85,90))