Thanks for posting dput data, but I don't understand your question.
are you familiar with cbind?
Is there duplication of column names in your input table and template? Are they
always duplicated in the template? What characteristics of the template are you
trying to preserve? Column order?
Other:
Don't post HTML email.
The name "table" is defined in the base package, so using it as a data
name can lead to confusion and inability to perform fundamental operations.
---------------------------------------------------------------------------
Jeff Newmiller The ..... ..... Go Live...
DCN:<jdnewmil at dcn.davis.ca.us> Basics: ##.#. ##.#. Live
Go...
Live: OO#.. Dead: OO#.. Playing
Research Engineer (Solar/Batteries O.O#. #.O#. with
/Software/Embedded Controllers) .OO#. .OO#. rocks...1k
---------------------------------------------------------------------------
Sent from my phone. Please excuse my brevity.
"s.s.m. fauzi" <ssmfone at gmail.com> wrote:
>Hi,
>
>I have a table with data, as below:
>
>dput(table):
>
>structure(list(Adrian.Cole = c(0L, 0L, 0L, 0L, 0L, 0L), Alison.Wong
>c(0L, 0L, 0L, 0L, 0L, 0L), Andrei.Savu = c(0L, 0L, 0L, 0L, 0L, 0L),
>Bruno.Dumon = c(0L, 0L, 0L, 0L, 0L, 0L), Edward.J..Yoon = c(0L, 0L, 0L,
>0L, 0L, 0L), Eugene.Koontz = c(0L, 0L, 0L, 0L, 0L,
> 0L), Jakob.Homan = c(0L, 0L, 0L, 0L, 0L, 0L), Kelvin.Kakugawa >c(0L,
0L, 0L, 0L, 0L, 0L), Kirk.True = c(0L, 0L, 0L, 0L, 0L, 0L
> ), Lars.George = c(0L, 0L, 1L, 0L, 0L, 0L), Soren.Macbeth = c(0L, 0L,
>1L, 0L, 0L, 0L), Stu.Hood = c(0L, 0L, 0L, 0L, 0L, 0L),
> Tibor.Kiss = c(0L, 0L, 0L, 0L, 0L, 0L), Tom.White = c(0L, 0L, 1L, 0L,
>0L, 0L), Unassigned = c(0L, 0L, 0L, 0L, 0L, 0L
> )), .Names = c("Adrian.Cole", "Alison.Wong",
>"Andrei.Savu", "Bruno.Dumon",
"Edward.J..Yoon", "Eugene.Koontz",
>"Jakob.Homan",
>"Kelvin.Kakugawa", "Kirk.True", "Lars.George",
"Soren.Macbeth",
>"Stu.Hood",
>"Tibor.Kiss", "Tom.White", "Unassigned"),
row.names = c("Adrian Cole",
>"Alison Wong", "Andrei Savu", "Bruno Dumon",
"Edward J. Yoon", "Eugene
>Koontz"), class = "data.frame")
>
>> dim(table)
>[1] 15 15
>> names(table)
>[1] "Adrian.Cole" "Alison.Wong"
"Andrei.Savu" "Bruno.Dumon"
>"Edward.J..Yoon" "Eugene.Koontz"
"Jakob.Homan" "Kelvin.Kakugawa"
> [9] "Kirk.True" "Lars.George"
"Soren.Macbeth" "Stu.Hood"
> "Tibor.Kiss" "Tom.White"
"Unassigned"
>
>What I want to do is to embed/write this table to other big .csv
>template,
>and save it with other name.
>
>dput(template)
>
>structure(list(Adrian.Cole = c(0L, 0L, 0L, 0L, 0L, 0L), Alison.Wong
>c(0L, 0L, 0L, 0L, 0L, 0L), Andrei.Savu = c(0L, 0L, 0L, 0L, 0L, 0L),
>Bruno.Dumon = c(0L, 0L, 0L, 0L, 0L, 0L), Edward.J..Yoon = c(0L, 0L, 0L,
>0L, 0L, 0L), Eugene.Koontz = c(0L, 0L, 0L, 0L, 0L,
> 0L), Jakob.Homan = c(0L, 0L, 0L, 0L, 0L, 0L), Kelvin.Kakugawa >c(0L,
0L, 0L, 0L, 0L, 0L), Kirk.True = c(0L, 0L, 0L, 0L, 0L, 0L
> ), Lars.George = c(0L, 0L, 0L, 0L, 0L, 0L), Soren.Macbeth = c(0L, 0L,
>0L, 0L, 0L, 0L), Stu.Hood = c(0L, 0L, 0L, 0L, 0L, 0L),
> Tibor.Kiss = c(0L, 0L, 0L, 0L, 0L, 0L), Tom.White = c(0L, 0L, 0L, 0L,
>0L, 0L), Unassigned = c(0L, 0L, 0L, 0L, 0L, 0L
> ), David.Alves = c(0L, 0L, 0L, 0L, 0L, 0L), Patrick.Hunt = c(0L, 0L,
>0L, 0L, 0L, 0L), Sebastian.Schoenherr = c(0L, 0L, 0L,
>0L, 0L, 0L), Roman.Valls = c(0L, 0L, 0L, 0L, 0L, 0L), Pavel.Yaskevich
>c(0L, 0L, 0L, 0L, 0L, 0L), Karel.Vervaeke = c(0L, 0L, 0L, 0L, 0L,
> 0L), Shay.Banon = c(0L, 0L, 0L, 0L, 0L, 0L), Hyunsik.Choi = c(0L, 0L,
>0L, 0L, 0L, 0L), Joey.Hung. = c(0L, 0L, 0L, 0L, 0L, 0L
> ), Tommaso.Teofili = c(0L, 0L, 0L, 0L, 0L, 0L), Jeff.Hammerbacher.
>c(0L, 0L, 0L, 0L, 0L, 0L), Andrew.Purtell. = c(0L, 0L, 0L, 0L,
>0L, 0L), Johan.Oskarsson = c(0L, 0L, 0L, 0L, 0L, 0L), Erik.Frey = c(0L,
>0L, 0L, 0L, 0L, 0L), Sebb = c(0L, 0L, 0L, 0L, 0L, 0L), Andrew.klochkov
>>c(0L,
> 0L, 0L, 0L, 0L, 0L), Paul.Egan = c(0L, 0L, 0L, 0L, 0L, 0L), Hudson
>c(0L, 0L, 0L, 0L, 0L, 0L), Hadoop = c(0L, 0L,
> 0L, 0L, 0L, 0L), Aaron = c(0L, 0L, 0L, 0L, 0L, 0L), henry = c(0L, 0L,
>0L, 0L, 0L, 0L), steve = c(0L, 0L, 0L, 0L, 0L, 0L), russel = c(0L,
> 0L, 0L, 0L, 0L, 0L)), .Names = c("Adrian.Cole",
>"Alison.Wong", "Andrei.Savu", "Bruno.Dumon",
"Edward.J..Yoon",
>"Eugene.Koontz",
>"Jakob.Homan", "Kelvin.Kakugawa", "Kirk.True",
"Lars.George",
>"Soren.Macbeth",
>"Stu.Hood", "Tibor.Kiss", "Tom.White",
"Unassigned",
>"David.Alves", "Patrick.Hunt",
"Sebastian.Schoenherr",
>"Roman.Valls", "Pavel.Yaskevich",
"Karel.Vervaeke", "Shay.Banon",
>"Hyunsik.Choi",
>"Joey.Hung.", "Tommaso.Teofili",
"Jeff.Hammerbacher.",
>"Andrew.Purtell.", "Johan.Oskarsson",
"Erik.Frey", "Sebb",
>"Andrew.klochkov", "Paul.Egan",
>"Hudson", "Hadoop", "Aaron",
"henry", "steve", "russel"), row.names
>c("Adrian Cole", "Alison Wong", "Andrei Savu",
"Bruno Dumon", "Edward
>J.
>Yoon",
>"Eugene Koontz"), class = "data.frame")
>
>> dim(template)
>[1] 38 38
>> names(template)
> [1] "Adrian.Cole" "Alison.Wong"
"Andrei.Savu"
> "Bruno.Dumon"
> [5] "Edward.J..Yoon" "Eugene.Koontz"
"Jakob.Homan"
> "Kelvin.Kakugawa"
> [9] "Kirk.True" "Lars.George"
"Soren.Macbeth"
> "Stu.Hood"
>[13] "Tibor.Kiss" "Tom.White"
"Unassigned"
>"David.Alves"
>[17] "Patrick.Hunt" "Sebastian.Schoenherr"
"Roman.Valls"
> "Pavel.Yaskevich"
>[21] "Karel.Vervaeke" "Shay.Banon"
"Hyunsik.Choi"
>"Joey.Hung."
>[25] "Tommaso.Teofili" "Jeff.Hammerbacher."
"Andrew.Purtell."
> "Johan.Oskarsson"
>[29] "Erik.Frey" "Sebb"
"Andrew.klochkov"
> "Paul.Egan"
>[33] "Hudson" "Hadoop"
"Aaron"
> "henry"
>[37] "steve" "russel"
>
> [[alternative HTML version deleted]]
>
>______________________________________________
>R-help at r-project.org mailing list
>https://stat.ethz.ch/mailman/listinfo/r-help
>PLEASE do read the posting guide
>http://www.R-project.org/posting-guide.html
>and provide commented, minimal, self-contained, reproducible code.