Arhn - архитектура программирования

Циклы с операторами if, классифицирующими числа [дубликаты]

У меня проблемы с циклом, который я создаю. Мое намерение состоит в том, чтобы цикл увидел, куда падает значение, и дал этому значению другое имя. Вот пример того, что я пытаюсь сделать:

a<-rnorm(10,0,1)
b<-rnorm(10,0,1)

testing<-data.frame(a,b)

testing2<-testing
for (i in 1:nrow(testing2)){
  for (j in 1:ncol(testing2)){
    if (testing2[i,j]>1) testing2[i,j]<-"More"
    else if (testing2[i,j]<(-1)) testing2[i,j]<-"Less"
    else testing2[i,j]<-"Same"
  }
}

Когда я смотрю на testing2 и сравниваю его с тестированием, оно не соответствует тому, что должно делать. «Больше», кажется, работает, но оно смешивается между «Меньше» и «То же самое».

r if-statement loops
04.03.2014

Ответы:


1

Нет необходимости в (вложенном) цикле, используйте векторизованный ifelse вместо этого:

testing = ifelse(testing > 1, 'More', ifelse(testing < -1, 'Less', 'Same'))
04.03.2014

2

cut приходит на ум как очевидный кандидат. Поскольку вам нужно применить его к нескольким столбцам, вы можете использовать lapply следующим образом:

x <- testing
x[] <- lapply(testing, cut, breaks=c(-Inf, -1, 1, Inf), 
              labels=c("less", "same", "more"))
x

^^отредактировано с уточнениями из комментариев ;-)

Или с as.matrix вместо lapply...

x <- cut(as.matrix(testing), c(-Inf, -1, 1, Inf), 
         labels=c("less", "same", "more"))
dim(x) <- dim(testing)
04.03.2014
  • +1 опередил меня, хотя я собирался пойти с более компактным lapply(testing, cut, breaks=c(-Inf, -1, 1, Inf), labels=c("less", "same", "more")) 04.03.2014
  • @MatthewPlourde, мне нужно избавиться от привычки использовать ненужные анонимные функции :-) 04.03.2014
  • Есть привычки и похуже. Мне нравится, как ты используешь x[], мне это никогда не приходило в голову. 04.03.2014
  • cut была функция, которой мне не хватало, и поэтому я получил (ужасно) вложенную ifelse. Очень хорошо. В дополнение к замечанию Мэтью о ненужной лямбде я просто хотел добавить, что присваивание (A <- …) тоже не нужно. 04.03.2014
  • @KonradRudolph, ха! Это было пережитком того, что я изначально думал о том, будет ли работать factor, прежде чем я вспомнил cut. Упс. 04.03.2014

    • 3

    Как было предложено, есть лучшие способы сделать это. Но возвращаясь к вашему коду, вы все портите, назначая тип character на numeric.

    В R data.frame столбцы имеют одинаковый тип. Поэтому, как только вы назначите символ, весь тип столбца станет символьным.

    Вы можете проверить это, вызвав sapply(testing2, class) до и после циклов for

    04.03.2014
    Новые материалы
    Коллекции публикаций по глубокому обучению
    Последние пару месяцев я создавал коллекции последних академических публикаций по различным подполям глубокого обучения в моем блоге https://amundtveit.com - эта публикация дает обзор 25..
    Представляем: Pepita
    Фреймворк JavaScript с открытым исходным кодом Я знаю, что недостатка в фреймворках JavaScript нет. Но я просто не мог остановиться. Я хотел написать что-то сам, со своими собственными..
    Советы по коду Laravel #2
    1-) Найти // You can specify the columns you need // in when you use the find method on a model User::find(‘id’, [‘email’,’name’]); // You can increment or decrement // a field in..
    Работа с временными рядами спутниковых изображений, часть 3 (аналитика данных)
    Анализ временных рядов спутниковых изображений для данных наблюдений за большой Землей (arXiv) Автор: Рольф Симоэс , Жильберто Камара , Жильберто Кейрос , Фелипе Соуза , Педро Р. Андраде ,..
    3 способа решить квадратное уравнение (3-й мой любимый) -
    1. Методом факторизации — 2. Используя квадратичную формулу — 3. Заполнив квадрат — Давайте поймем это, решив это простое уравнение: Мы пытаемся сделать LHS,..
    Создание VR-миров с A-Frame
    Виртуальная реальность (и дополненная реальность) стали главными модными терминами в образовательных технологиях. С недорогими VR-гарнитурами, такими как Google Cardboard , и использованием..
    Демистификация рекурсии
    КОДЕКС Демистификация рекурсии Упрощенная концепция ошеломляющей О чем весь этот шум? Рекурсия, кажется, единственная тема, от которой у каждого начинающего студента-информатика..