Hi Jeff,
I got it...Thank you for your help!
On Wed, Sep 26, 2012 at 11:53 AM, s.s.m. fauzi <ssmf...@gmail.com> wrote:
> 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.
