コンバイン異なるクラスの引数

Question

は私が例で詳しく説明してみましょう：あなたが見ることができるように

mystr = "foo" 
intvector = c(1,2,3,4,5) 
trial1 = c(mystr,intvector) 
sapply(trial1,class) 

trial2 = mat.or.vec(1+length(intvector),1) 
trial2[1] = mystr 
trial2[2:length(trial2)] = intvector 
sapply(trial2,class) 

の両方が

 foo   1   2   3   4   5 
"character" "character" "character" "character" "character" "character" 

を返し、Rは、変換/私のためにcharacter型にnumericタイプをキャストし、私が望むものではありません。ありがとう:)

編集：私はdata.frameに直接（rbind）それを追加するために使用します。最初は空ですので、列クラスはまだ定義されていません。

Answer 1

私は、これは動作するはずと信じて誰もがよりよい解決策を見つけた場合は、リストを使用しなくても、私に知らせてください。

trial3 = data.frame(I(mystr), t(intvector)) 
sapply(trial3,class) 

が生成されます、我々はIでmystrをラップし、これが機能するためにはintvectorを移調する必要が

mystr  X1  X2  X3  X4  X5 
    "AsIs" "numeric" "numeric" "numeric" "numeric" "numeric" 

注意を。

Answer 2

リストを使用しないと回避できません。 c機能は、この場合には「文字」である「最小公分母」に強制されます。

trial1 = list(mystr,intvector) 
sapply(trial1,class) 
#[1] "character" "numeric"