WedX - журнал о программировании и компьютерных науках

присвоение категориальных значений нескольким переменным в r

Скажем, у меня есть следующие данные для ввода в R

x <- c(1,1,0,0,0,0)
y <- c(1,0,1,0,0,0)
z <- c(0,0,0,0,1,1)
p <- c(0,0,0,1,1,0)

data <- data.frame(x,y,z,p)

Теперь я хочу ввести в данные новую переменную под названием «кошка».

внутри cat я хочу присвоить значения «a» любому наблюдению, где 1 появляется либо в x, либо в y o появляется в обоих. Я хочу присвоить значение «b» наблюдениям, где 1 появляется в любом/оба из z и p.


Ответы:


1
c("b", "a")[(!!rowSums(data[,1:2])) +0 + (!!rowSums(data[,3:4])+1)]
#[1] "a" "a" "a" "b" "b" "b"
  • Предполагая, что я понимаю условие, а также предполагая, что не будет никаких пересекающихся случаев, т. Е. Строки одного или обоих x, y, которые являются 1, не пересекаются с z или p, имеющими 1 значения
  • В качестве первого шага я сделал rowSums для столбцов x и y.

    rowSums(data[,1:2])
    #[1] 2 1 1 0 0 0
    
  • Двойное отрицание приведенного выше результата и добавление 0 дает

    (!!rowSums(data[,1:2]))+0
     #[1] 1 1 1 0 0 0
    
  • То же самое при применении к столбцам z и p, но я добавляю 1, что дает

    (!!rowSums(data[,3:4]))+1
    #[1] 1 1 1 2 2 2
    
  • Если вы добавите два вышеуказанных результата, получите

    (!!rowSums(data[,1:2])) +0 + (!!rowSums(data[,3:4])+1)
     #[1] 2 2 2 1 1 1
    
  • Это можно использовать как числовой индекс, так что если я использую c("b", "a")[!!rowSums..], значения 2 будут заменены на b, а 1 на a.

15.08.2014
  • Не могли бы использовать некоторую разработку/объяснение. 15.08.2014

  • 2

    Эта строка возвращает «a», если x или y не равно нулю, и «b» в противном случае.

    ifelse(data$x | data$y, "a", "b")
    # [1] "a" "a" "a" "b" "b" "b"
    

    Если вам нужно обработать случай, когда все четыре столбца равны нулю, вы можете использовать:

    ifelse(data$x | data$y,
           "a",
           ifelse(data$z | data$p, "b", "neither a nor b"))
    
    15.08.2014
  • как работает команда ifelse, если мои данные расширены до трех переменных, таких что g ‹- c(1,1,0,0,0,0,0,0,0) h ‹- c(0,1, 1,0,0,0,0,0,0) i ‹- c(0,0,0,0,1,1,0,0,0) j ‹- c(0,0,0,1, 0,1,0,0,0) к ‹- с(0,0,0,0,0,0,1,1,0) л ‹- с(0,0,0,0,0,0, 0,1,1), где я хочу присвоить: R, где 1 встречается в любом/оба g и h Q, где 1 встречается в любом/оба i и j S, где 1 встречается в любом/оба k и l 15.08.2014
  • Я не совсем уверен, что понимаю. Возможно, вам нужно другое или (символ вертикальной черты)? 15.08.2014
  • Новые материалы

    Как создать диаграмму градиентной кисти с помощью D3.js
    Резюме: Из этого туториала Вы узнаете, как добавить градиентную кисть к диаграмме с областями в D3.js. Мы добавим градиент к значениям SVG и применим градиент в качестве заливки к диаграмме с..

    Я хотел выучить язык программирования MVC4, но не мог выучить его раньше, потому что это выглядит сложно…
    Просто начните и учитесь самостоятельно Я хотел выучить язык программирования MVC4, но не мог выучить его раньше, потому что он кажется мне сложным, и я бросил его. Это в основном инструмент..

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

    Объяснение документов 02: BERT
    BERT представил двухступенчатую структуру обучения: предварительное обучение и тонкая настройка. Во время предварительного обучения модель обучается на неразмеченных данных с помощью..

    Как проанализировать работу вашего классификатора?
    Не всегда просто знать, какие показатели использовать С развитием глубокого обучения все больше и больше людей учатся обучать свой первый классификатор. Но как только вы закончите..

    Работа с цепями Маркова, часть 4 (Машинное обучение)
    Нелинейные цепи Маркова с агрегатором и их приложения (arXiv) Автор : Бар Лайт Аннотация: Изучаются свойства подкласса случайных процессов, называемых дискретными нелинейными цепями Маркова..

    Crazy Laravel Livewire упростил мне создание электронной коммерции (панель администратора и API) [Часть 3]
    Как вы сегодня, ребята? В этой части мы создадим CRUD для данных о продукте. Думаю, в этой части я не буду слишком много делиться теорией, но чаще буду делиться своим кодом. Потому что..


    Для любых предложений по сайту: [email protected]