cbind в данных временных рядов

Question

Вот простой пример, который работает отлично:

a = 1; b = 2; c = 3 
d = 65; e = 66; f = 77 
m1 = cbind(a, b, c); m2 = cbind(d, e, f); M = cbind(m1, m2) 
colnames(M) 
# [1] "a" "b" "c" "d" "e" "f" 

Но теперь попробуйте то же самое с данными временных рядов:

a = 1; b = 2; c = 3 
d = 65; e = 66; f = 77 
m1 = as.ts(cbind(a, b, c)); m2 = as.ts(cbind(d, e, f)); M = cbind(m1, m2) 
colnames(M) 
#   [1] "m1.a" "m1.b" "m1.c" "m2.d" "m2.e" "m2.f"' 

Как избежать эти префиксы для данных временных рядов?
(то есть: префиксы m1. и m2.)

PS: Конечно, я знаю, что мы можем просто сделать команду прямой «cbind» на a, b, c, d, e, f обходя m1 и m2, но мне нужно это промежуточное поставил матрицы в цикле.

Answer 1

Не могу объяснить почему, но cbind.data.frame работает одинаково для обоих:

a = 1; b = 2; c = 3 
d = 65; e = 66; f = 77 
m1 = cbind(a, b, c) 
m2 = cbind(d, e, f) 
M = cbind.data.frame(m1, m2) 
colnames(M) 
#[1] "a" "b" "c" "d" "e" "f" 

m1 = as.ts(cbind(a, b, c)) 
m2 = as.ts(cbind(d, e, f)) 
M = cbind.data.frame(m1, m2) 
colnames(M) 
#[1] "a" "b" "c" "d" "e" "f" 

Answer 2

Там нет никакого способа, чтобы предотвратить cbind.ts делать это. Обычным способом, который вы могли бы предотвратить, было бы установить deparse.level=0, но cbind.ts игнорирует его.

R> stats:::cbind.ts 
function (..., deparse.level = 1) 
{ 
    if (deparse.level != 1) 
     .NotYetUsed("deparse.level != 1") 
    .cbind.ts(list(...), .makeNamesTs(...), dframe = FALSE, union = TRUE) 
} 
<bytecode: 0x35531f8> 
<environment: namespace:stats> 

Вы всегда можете установить colnames себя, только будьте осторожны, они являются «действительными» (например, через make.names) и не дублируется, или вы могли бы иметь проблемы позже в анализе.

colnames(M) <- make.names(c(colnames(m1), colnames(m2)))