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:<jdnew...@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" <ssmf...@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@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.
______________________________________________
R-help@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.
