сравнение двух целых чисел в R: «длина длинного объекта не кратная длины объекта меньше» ddply

Question

Я получаю предупреждение «длиннее объекта, не кратное более короткому объекту» в R при сравнении двух целых чисел, чтобы подмножество DataFrame в в середине пользовательской функции.

Определенная функция пользователя просто возвращает медиану подмножества целых чисел, взятое из dataframe:.

function(s){ 
    return(median((subset(EDB,as.integer(validSession) == as.integer(s)))$absStudentDeviation)) 
} 

(я изначально не был as.integer принуждения в там я их там отлаживать, текст, . и я все еще получаю сообщение об ошибке)

Специфическая ошибка я получаю:

В as.integer (validSession) == as.integer (ы): л onger длина объекта не кратна длине короче объекта

Я получаю это предупреждение свыше 50 раз при вызове:

mediandf <- ddply(mediandf,.(validSession), 
          transform, 
          grossMed2 = medianfuncEDB(as.integer(validSession))) 

Цель состоит в том, чтобы вычислить медиану $ validSession, связанного с данным validSession в большой блок данных EDB и привязать этот вектор к медиане.

Я фактически дважды проверял, что все значения для validSession как в фрейме данных mediandf, так и в блоке данных EDB являются целыми числами с помощью подмножества с is.integer(validSession).

Кроме того, похоже, что команда на самом деле выполняет то, что я намереваюсь, я получаю новый столбец в своем фреймворке данных со значениями, которые я не проверял, но я хочу понять это предупреждение. если «medianfuncEDB» вызывается с целым числом в качестве его ввода, почему я получаю «длинную длину объекта не кратно меньшей длины объекта», когда вызывается s == validSession?

Обратите внимание, что простые вызовы функций, такие как medianfuncEDB(5), работают без проблем, так почему я получаю предупреждения при использовании ddply?

EDIT: Я нашел проблему с помощью комментария Джорана. Я не знал, что преобразование передало целые векоторы в функцию. Использование validSession [1] вместо этого не выдавало никаких предупреждений.

Answer 1

Функция ddply уже подмножает ваш фрейм данных на validSession. Следовательно, transform подает только фрейм данных со всеми строками, соответствующими определенному validSession.

То есть, transform уже подает subset(mediandf,validSession==s) за каждые s в unique(mediandf$validSession).

Поскольку вы не должны делать какие-либо подмножества (ddply заботится о том, что), все, что вам нужно сделать, это:

ddply(mediandf,.(validSession),transform,grossMed2=median(absStudentDeviation)) 

И тогда вы получите mediandf обратно с новой колонки grossMed2 со значением, которое вы хотите (так что это будет одно и то же значение в каждом уникальном validSession).