Печать определенных элементов вектора символов на основе условия и удаление других - PullRequest
Новая
       83

Печать определенных элементов вектора символов на основе условия и удаление других

1 голос
/ 26 мая 2020

У меня есть вектор под названием fruit, который содержит названия 7 фруктов. Я хочу напечатать те названия фруктов, в названии которых содержится более или равно 5 символов. 

fruits <- c("apple", "orange","pear","figs","avocado","plum", "kiwi")
j <- 1
while(j<=length(fruits)){

  if(nchar(fruits[j]>=5)){
    print(fruits[j])}
  else{
    remove(fruit[j])}
  j=j+1
}

Ожидаемый результат 

[1] "apple"
[1] "orange"
[1] "avocado"

Но я получаю 

[1] "apple"
[1] "orange"
[1] "pear"
[1] "figs"
[1] "avocado"
[1] "plum"
[1] "kiwi"

Он также должен удалить из вектора имя плода, содержащее менее 5 символов.

...