Hi Jeff,
Thank you for the respond.
I'm not really familiar with cbind.
Anyway, there is a duplication in my input and the template, and I want to
preserve the column order.
Shukor
On Wed, Sep 26, 2012 at 11:30 AM, Jeff Newmiller
<jdnew...@dcn.davis.ca.us>wrote:
> 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.
>
>
[[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.
