Оцените, сколько последовательных истинных элементов есть в векторе в R
У меня действительно большой логический вектор (то есть T или F), и я хочу просто оценить, сколько «блоков» последовательных T есть в моем векторе, содержащем между элементы F.
Простой пример вектора с 3 из этих последовательных «блоков» из T элементов:
x <- c(T,T,T,T,F,F,F,F,T,T,T,T,F,T,T)
Выход:
1,1,1,1,0,0,0,0,2,2,2,2,0,3,3
Вы можете попробовать использовать кодирование длин серий; это сворачивает ваши прогоны TRUE/FALSE: stat.ethz.ch/R-manual/R-devel/library/base/html/rle.html
—
23.05.2019 20:02
Стоит ли изучать PHP в 2026-2027 годах?
Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.
Приемы CSS-макетирования - floats и Flexbox
Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...
Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest
В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...
Концепция локализации и ее применение в приложениях React ⚡️
Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...
Пользовательский скаляр GraphQL
Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...
2
2
55
2
Перейти к ответу
Данный вопрос помечен как решенный
Ответы 2
Ответ принят как подходящий
Ты можешь сделать:
rle <- rle(x)
rle$values <- with(rle, cumsum(values) * values)
inverse.rle(rle)
[1] 1 1 1 1 0 0 0 0 2 2 2 2 0 3 3
И упрощенная и более элегантная версия основной идеи (предложенная @Lyngbakr):
with(rle(x), rep(cumsum(values) * values, lengths))
Или даже with(rle, rep(cumsum(values) * values, lengths))
—
23.05.2019 20:08
@Lyngbakr очень хорошая идея, я добавил ее в свой пост. Спасибо :)
—
23.05.2019 20:10
Другое решение с rle/inverse.rle:
x <- c(T,T,T,T,F,F,F,F,T,T,T,T,F,T,T)
rle_x <- rle(x)
rle_x$values[rle_x$values] <- 1:length(which(rle_x$values))
inverse.rle(rle_x)
# [1] 1 1 1 1 0 0 0 0 2 2 2 2 0 3 3
Другие вопросы по теме
Применить функцию к столбцу A, если выполняется условие соответствующего (с той же индексной точкой) столбца B
Как я могу проверить значение из bool в представлении?
Разница между if not: и if False:
Python – как заменить логическое значение, если оно меньше определенного числа?
Преобразование true/false в логическое значение 0/1 в смешанном фрейме данных
Почему я не могу разместить здесь оператор функции печати?
Проблемы с логическими значениями и массивами
Я хочу подсчитать 4 логических значения от объекта и вернуть количество истинных
TensorFlow: эффективный способ получить индекс наименьшего элемента в тензоре, который не равен нулю?
Ошибка компиляции java: метод внутри метода
Похожие вопросы
Как гранить по геометрии/слою в ggplot2?
Travis CI не работает с книгой при использовании среды tikz
Как удалить строку до и после определенных позиций разделителя в R?
Рассчитать проценты уровней - добавить имя столбца
Увеличивайте числа в столбце Y на 1 каждый раз, когда числа в столбце X увеличиваются на 24
Как маркировать только один раз при построении нескольких продольных траекторий в R?
Пользовательская форма и размер легенды ggplot2
Как заставить Knitr удалить каталог поддержки (файлы .png) после вязания HTML
Seq_along, указывающий номер столбца, а не номер строки
Как быстро найти ближайшую точку в большой сетке
(1) Вы имеете в виду, что окончательный вывод здесь должен быть просто 3? Или вы говорите, что вам нужен текущий подсчет, чтобы в любой момент вашей последовательности вы могли оценить, сколько
Tблоков произошло на данный момент? (2) Что представляет собой блок - более 1T? (3) Вы сказали, что хотите знать, сколько блоков являются элементами междуF, но вы включаете два блокаTна обоих концах последовательности, которые не находятся междуF. Что это?