利用逻辑向量中的if else循环来区分R中数值的三种状态

Question

I want to convert numerical value to logical vector and compare it 5, this is the output that I want ( I wanted to compare logical vector to logical object, then if else loop to low, optimal or high):

5,2,8,6,11,4,7

 5 is optimal.
 Caution: 2 is low.
 8 is high.
 6 is high.
 11 is high.
 Caution: 4 is low .
 7 is high.

I tried the following:

a<-c(5,2,8,6,11,4,7) #assign values to a vector
a3<-unlist(a, recursive = TRUE, use.names = TRUE)
an<-as.numeric(a3) #convert to numeric
st5<-5   #set a reference 
st1<-as.logical(st5)  #convert to logical
suffice <-(n3 >= 5) #assign output of 7 True and False into a variable
cat("\n")
cat("5 is norm \n")
cat("Data: ", paste(shQuote(a), "pg", collapse=", "), "\n")
if(a > 5) {
    paste(co1, "is high \n") if (a = 5) {
        paste(a, "is optimal.\n")
        }
        else {paste("Caution:", a, "is low \n"))}
        }
    })

Answer 1

How about this?

a<-c(5,2,8,6,11,4,7) #assign values to a vector
n=5 #assign your optimal value
ifelse(a==n, paste0(n, " is optimal."), ifelse(a>n, paste0(a, " is high."), paste0("Caution: ",a," is low.")))