Thank you so much Jim. Here is the code.
sum_balok <- as.vector(by(dt1$x,dt1$year,sum,na.rm=TRUE)) sum_gambang <- as.vector(by(dt2$x,dt2$year,sum,na.rm=TRUE)) sum_sgsoi <- as.vector(by(dt3$x,dt3$year,sum,na.rm=TRUE)) sum_jpsphg <- as.vector(by(dt4$x,dt4$year,sum,na.rm=TRUE)) sum_pbesar <- as.vector(by(dt5$x,dt5$year,sum,na.rm=TRUE)) sum_pmanis <- as.vector(by(dt6$x,dt6$year,sum,na.rm=TRUE)) sum_year <- cbind(sum_balok, sum_gambang, sum_sgsoi, sum_jpsphg, sum_pbesar, sum_pmanis) dimnames(sum_year) = list( 2009:2014, c("Balok","Gambang","SgSoi","JPSPhg","PayaBesar","PulauManis")) # column names rbind(sum_year, colMeans(sum_year)) Best regards On Fri, Jul 29, 2016 at 4:52 PM, Jim Lemon <drjimle...@gmail.com> wrote: > Hi Roslina, > This may be what you want: > > sum_balok<- > as.vector(by(aggbalok_2009_2014$x,aggbalok_2009_2014$year,sum,na.rm=TRUE)) > cbind(year=2009:2014,sum_balok) > > I don't have the data for the other measures, but you could calculate > the sums as you did below and then add them to the cbind arguments. > > Jim > > > On Fri, Jul 29, 2016 at 5:51 PM, roslinazairimah zakaria > <roslina...@gmail.com> wrote: > > I tried this: > > dt1 <- aggbalok_mth[aggbalok_mth$year %in% 2009:2014,] > > dt2 <- agggambang_mth[agggambang_mth$year %in% 2009:2014,] > > dt3 <- aggsgsoi_mth[aggsgsoi_mth$year %in% 2009:2014,] > > dt4 <- aggjpsphg_mth[aggjpsphg_mth$year %in% 2009:2014,] > > dt5 <- aggpbesar_mth[aggpbesar_mth$year %in% 2009:2014,] > > dt6 <- aggpmanis_mth[aggpmanis_mth$year %in% 2009:2014,] > > > > ## Yearly Sum > > dt_year <- cbind(aggregate(dt1[,3], by=dt1[,c(2,2)],FUN=sum, na.rm=TRUE), > > aggregate(dt2[,3], by=dt2[,c(2,2)],FUN=sum, na.rm=TRUE), > > aggregate(dt3[,3], by=dt3[,c(2,2)],FUN=sum, na.rm=TRUE), > > aggregate(dt4[,3], by=dt4[,c(2,2)],FUN=sum, na.rm=TRUE), > > aggregate(dt5[,3], by=dt5[,c(2,2)],FUN=sum, na.rm=TRUE), > > aggregate(dt6[,3], by=dt6[,c(2,2)],FUN=sum, na.rm=TRUE)) > > > > However the output is not good. > > dput(dt_year) > > structure(list(year = c(2009, 2010, 2011, 2012, 2013, 2014), > > year.1 = c(2009, 2010, 2011, 2012, 2013, 2014), x = c(3511.6, > > 2456, 3575.7, 3029, 2849.7, 1697.7), year = c(2009, 2010, > > 2011, 2012, 2013, 2014), year.1 = c(2009, 2010, 2011, 2012, > > 2013, 2014), x = c(3040.3, 2209.1, 3210.3, 3403.8, 3449.3, > > 2070.4), year = c(2009, 2010, 2011, 2012, 2013, 2014), year.1 = > c(2009, > > 2010, 2011, 2012, 2013, 2014), x = c(3657.1, 2059.2, 2862.4, > > 3221.2, 3136.8, 3255.1), year = c(2009, 2010, 2011, 2012, > > 2013, 2014), year.1 = c(2009, 2010, 2011, 2012, 2013, 2014 > > ), x = c(2726.4, 2266.8, 2249.1, 3093.5, 1513, 3087.5), year = > c(2009, > > 2010, 2011, 2012, 2013, 2014), year.1 = c(2009, 2010, 2011, > > 2012, 2013, 2014), x = c(3194.9, 1879.6, 1861.4, 3080, 1648.4, > > 3012.3), year = c(2009, 2010, 2011, 2012, 2013, 2014), year.1 = > c(2009, > > 2010, 2011, 2012, 2013, 2014), x = c(2697.9, 1639.7, 2107.8, > > 2479.7, 3078.8, 2288.7)), .Names = c("year", "year.1", "x", > > "year", "year.1", "x", "year", "year.1", "x", "year", "year.1", > > "x", "year", "year.1", "x", "year", "year.1", "x"), row.names = c(NA, > > -6L), class = "data.frame") > > > > Thank you. > > > > On Fri, Jul 29, 2016 at 2:30 PM, roslinazairimah zakaria > > <roslina...@gmail.com> wrote: > >> > >> I have one more question, how do I get the sum for the years. Thank > you. > >> > >> On Fri, Jul 29, 2016 at 12:36 PM, roslinazairimah zakaria > >> <roslina...@gmail.com> wrote: > >>> > >>> Thank you very much Jim. It works beautifully. > >>> > >>> Best regards, > >>> > >>> > >>> > >>> On Fri, Jul 29, 2016 at 11:56 AM, Jim Lemon <drjimle...@gmail.com> > wrote: > >>>> > >>>> Hi Roslina, > >>>> Try this: > >>>> > >>>> aggbalok_mth[aggbalok_mth$year %in% 2009:2014,] > >>>> > >>>> Jim > >>>> > >>>> > >>>> On Fri, Jul 29, 2016 at 1:12 PM, roslinazairimah zakaria > >>>> <roslina...@gmail.com> wrote: > >>>> > Dear r-users, > >>>> > > >>>> > I would like to extract year from 2009 to 2014 with the > corresponding > >>>> > month > >>>> > and rain amount. > >>>> > > >>>> > I tried this: > >>>> > aggbalok_mth[aggbalok_mth$year == 2009:2014, ] but some of the data > >>>> > is > >>>> > missing. > >>>> > > >>>> >> dput(aggbalok_mth[aggbalok_mth$year == 2009:2014, ] ) > >>>> > structure(list(month = c(1, 7, 2, 8, 3, 9, 4, 10, 5, 11, 6, 12 > >>>> > ), year = c(2009, 2009, 2010, 2010, 2011, 2011, 2012, 2012, 2013, > >>>> > 2013, 2014, 2014), x = c(424.6, 59.5, 6, 54.6, 387.9, 236.1, > >>>> > 160.3, 162.5, 102.8, 139.5, 293.3, 39)), .Names = c("month", > >>>> > "year", "x"), row.names = c(7L, 13L, 20L, 26L, 33L, 39L, 46L, > >>>> > 52L, 59L, 65L, 72L, 78L), class = "data.frame") > >>>> > Warning message: > >>>> > In aggbalok_mth$year == 2009:2014 : > >>>> > longer object length is not a multiple of shorter object length > >>>> > > >>>> > > >>>> > Here is the my data: > >>>> > > >>>> > structure(list(month = c(7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, > >>>> > 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, > >>>> > 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, > >>>> > 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, > >>>> > 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, > >>>> > 11), year = c(2008, 2008, 2008, 2008, 2008, 2008, 2009, 2009, > >>>> > 2009, 2009, 2009, 2009, 2009, 2009, 2009, 2009, 2009, 2009, 2010, > >>>> > 2010, 2010, 2010, 2010, 2010, 2010, 2010, 2010, 2010, 2010, 2010, > >>>> > 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, > >>>> > 2011, 2012, 2012, 2012, 2012, 2012, 2012, 2012, 2012, 2012, 2012, > >>>> > 2012, 2012, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, > >>>> > 2013, 2013, 2013, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, > >>>> > 2014, 2014, 2014, 2014, 2015, 2015, 2015, 2015, 2015, 2015, 2015, > >>>> > 2015, 2015, 2015, 2015), x = c(0, 168.7, 203, 149.3, 299.9, 570.7, > >>>> > 424.6, 52.6, 407.7, 210.3, 459.8, 249.2, 59.5, 310.4, 182.7, > >>>> > 433.3, 161, 560.5, 197.5, 6, 68.9, 170.4, 117, 271.2, 133.5, > >>>> > 54.6, 145.5, 122.5, 460.9, 708, 646.7, 58.8, 387.9, 42.9, 190.7, > >>>> > 133.3, 131.7, 158.4, 236.1, 412.9, 462.5, 713.8, 437.1, 140.1, > >>>> > 311.4, 160.3, 202.4, 58.8, 134.7, 120.4, 206.9, 162.5, 68.5, > >>>> > 1025.9, 229.5, 331, 9, 51.4, 102.8, 162.9, 157.2, 32.6, 103.9, > >>>> > 158.7, 139.5, 1371.2, 221.5, 6.1, 19.1, 11, 87.7, 293.3, 87.3, > >>>> > 184, 69.5, 231, 448.2, 39, 19.3, 3.9, 53.8, 141.9, 325, 53.5, > >>>> > 133.3, 321.1, 77.6, 156.5, 2.2)), .Names = c("month", "year", > >>>> > "x"), row.names = c(NA, -89L), class = "data.frame") > >>>> > > >>>> > Thank you very much for any help given. > >>>> > -- > >>>> > *Dr. Roslinazairimah Binti Zakaria* > >>>> > *Tel: +609-5492370; Fax. No.+609-5492766* > >>>> > > >>>> > *Email: roslinazairi...@ump.edu.my <roslinazairi...@ump.edu.my>; > >>>> > roslina...@gmail.com <roslina...@gmail.com>* > >>>> > Deputy Dean (Academic & Student Affairs) > >>>> > Faculty of Industrial Sciences & Technology > >>>> > University Malaysia Pahang > >>>> > Lebuhraya Tun Razak, 26300 Gambang, Pahang, Malaysia > >>>> > > >>>> > [[alternative HTML version deleted]] > >>>> > > >>>> > ______________________________________________ > >>>> > R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see > >>>> > 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. > >>> > >>> > >>> > >>> > >>> -- > >>> Dr. Roslinazairimah Binti Zakaria > >>> Tel: +609-5492370; Fax. No.+609-5492766 > >>> Email: roslinazairi...@ump.edu.my; roslina...@gmail.com > >>> Deputy Dean (Academic & Student Affairs) > >>> Faculty of Industrial Sciences & Technology > >>> University Malaysia Pahang > >>> Lebuhraya Tun Razak, 26300 Gambang, Pahang, Malaysia > >> > >> > >> > >> > >> -- > >> Dr. Roslinazairimah Binti Zakaria > >> Tel: +609-5492370; Fax. No.+609-5492766 > >> Email: roslinazairi...@ump.edu.my; roslina...@gmail.com > >> Deputy Dean (Academic & Student Affairs) > >> Faculty of Industrial Sciences & Technology > >> University Malaysia Pahang > >> Lebuhraya Tun Razak, 26300 Gambang, Pahang, Malaysia > > > > > > > > > > -- > > Dr. Roslinazairimah Binti Zakaria > > Tel: +609-5492370; Fax. No.+609-5492766 > > Email: roslinazairi...@ump.edu.my; roslina...@gmail.com > > Deputy Dean (Academic & Student Affairs) > > Faculty of Industrial Sciences & Technology > > University Malaysia Pahang > > Lebuhraya Tun Razak, 26300 Gambang, Pahang, Malaysia > -- *Dr. Roslinazairimah Binti Zakaria* *Tel: +609-5492370; Fax. No.+609-5492766* *Email: roslinazairi...@ump.edu.my <roslinazairi...@ump.edu.my>; roslina...@gmail.com <roslina...@gmail.com>* Deputy Dean (Academic & Student Affairs) Faculty of Industrial Sciences & Technology University Malaysia Pahang Lebuhraya Tun Razak, 26300 Gambang, Pahang, Malaysia [[alternative HTML version deleted]] ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see 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.