Hi Jeff,
Do I need to call the .csv template to perform this operation?
Shukor
On Wed, Sep 26, 2012 at 11:50 AM, Jeff Newmiller
<jdnew...@dcn.davis.ca.us>wrote:
> Perhaps you might try
>
> template[ , names(tbl) ] <- tbl
>
> where I have used tbl instead of table, for reasons previously mentioned.
> ---------------------------------------------------------------------------
> Jeff Newmiller The ..... ..... Go Live...
> DCN:<jdnew...@dcn.davis.ca.us> Basics: ##.#. ##.#. LiveGo...
> 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 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.
