Как управлять несколькими скелетными анимациями независимо с помощью SceneKit?

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

Факторы структурированы как числовые индексы, привязанные к списку «уровней». Это можно увидеть, если вы преобразуете коэффициент в числовой. Итак:

> fact <- as.factor(c("a","b","a","d")
> fact
[1] a b a d
Levels: a b d

> as.numeric(fact)
[1] 1 2 1 3

Цифры, возвращаемые в последней строке, соответствуют уровням фактора.

> levels(fact)
[1] "a" "b" "d"

Обратите внимание, что levels() возвращает массив символов. Вы можете использовать этот факт для легкого и компактного преобразования факторов в строки или числовые значения следующим образом:

> fact_character <- levels(fact)[as.numeric(fact)]
> fact_character
[1] "a" "b" "a" "d"

Это также работает для числовых значений, если вы завершаете свое выражение в as.numeric().

> num_fact <- factor(c(1,2,3,6,5,4))
> num_fact
[1] 1 2 3 6 5 4
Levels: 1 2 3 4 5 6
> num_num <- as.numeric(levels(num_fact)[as.numeric(num_fact)])
> num_num
[1] 1 2 3 6 5 4