Hi all,
 Regarding the previous post, here is part of my data.

structure(list(Year = c(1949L, 1949L, 1949L, 1949L, 1949L, 1949L,
1949L, 1949L, 1949L, 1949L, 1949L, 1949L, 1949L, 1949L, 1949L,
1949L, 1949L, 1949L, 1949L, 1949L, 1949L, 1949L, 1949L, 1949L,
1949L, 1949L, 1949L, 1949L, 1949L, 1949L, 1949L, 1950L, 1950L,
1950L, 1950L, 1950L, 1950L, 1950L, 1950L, 1950L), Day = c(1L,
2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L,
16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L,
29L, 30L, 31L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L), Jan = c(8.8,
5, 0, 0, 0, 0, 1.2, 104.9, 8.8, 7.1, 0, 0, 0, 0, 0, 4.8, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 53.3, 0, 36.8, 0, 17.2,
0, 19.8, 7.1), Feb = c(0, 0, 0.2, 39.3, 5, 0, 0, 0, 0, 0, 19,
0, 0, 0, 40.6, 6.6, 1.2, 0, 0, 14.9, 0, 26.6, 0, 0, 0, 29.2,
0, 0, NA, NA, NA, 0, 0, 24.3, 11.1, 27.1, 3.5, 0, 0, 0), Mar = c(0,
0, 0, 0, 0, 0, 0, 7.8, 5, 8.1, 2.7, 36.8, 24.1, 2.7, 0, 0, 8.8,
0, 4, 0, 0, 3.8, 0, 0, 6.3, 13.9, 52.5, 0, 0.2, 0.2, 0, 0, 7.3,
1.7, 17.2, 16.5, 0, 1.7, 0, 4), Apr = c(0, 33.5, 38.3, 1, 1.7,
0, 20.3, 23.3, 16, 9.6, 0, 14.4, 1.7, 13.4, 2.7, 2.2, 4.5, 0,
52, 0, 0, 8.3, 0.7, 0, 0, 0, 0, 0, 0, 0, NA, 0, 2.7, 1.2, 0.5,
25.3, 0, 11.6, 0, 8.8), May = c(57.9, 0, 5.5, 0, 32.5, 0, 5.3,
3, 0, 0, 0, 2.5, 18.7, 3.3, 2.5, 1.2, 0, 19.3, 16.2, 0, 7.3,
0, 0, 0, 9.1, 0, 0, 32, 5, 0, 0, 3.8, 0, 4.8, 0.5, 0.2, 5, 0,
6.8, 0), Jun = c(2, 0, 7.8, 0, 0, 0, 0, 0, 0, 0, 0, 33, 6.3,
20.5, 0, 0, 0, 0, 0, 22.8, 16.5, 2.2, 1.2, 8.8, 13.2, 43.1, 0,
5, 0, 0, NA, 0, 0, 0, 0, 0.5, 0, 0, 0, 79.7), Jul = c(1.5, 0,
5, 2, 0.5, 21.5, 45.4, 0, 0, 0, 14.7, 1.5, 0, 0, 20.3, 0, 1.2,
0, 0, 6.3, 0.5, 0, 0, 0, 29.2, 0, 0, 0, 0, 0, 6.3, 0, 16.5, 0,
1.5, 1.2, 9.1, 0.7, 0, 1.7), Aug = c(3.8, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 16.5, 21.5, 9.6, 0, 14.4, 0, 0, 0, 5.3, 26.6, 16.5,
24.1, 3.8, 6.3, 0, 59.6, 0.2, 0.7, 3, 41.9, 0, 0, 5, 0, 4.5,
0, 0, 0, 0), Sep = c(3.8, 12.6, 0, 0, 0, 8.8, 0.2, 8.8, 34, 52,
50.7, 1.5, 29.2, 1.7, 19, 0, 0, 8.8, 0.5, 0, 0, 7.6, 6.3, 0.2,
0, 3, 0, 24.1, 11.4, 13.9, NA, 1.2, 30.2, 6, 0, 0, 0, 0, 0, 0
), Oct = c(0, 3.3, 0, 0, 1, 13.9, 3, 3.8, 36.8, 23.6, 21.8, 0,
1.2, 0.2, 2, 0, 0, 16.5, 5.8, 12.6, 0, 0, 0, 2.2, 0, 0, 16.5,
7.6, 14.7, 0.7, 0, 0, 2.2, 0.5, 0, 0, 5, 0.2, 9.6, 16.5), Nov = c(0,
13.9, 23.3, 0, 0, 0, 0, 0, 4.8, 0, 0, 0, 0, 0, 46.2, 0, 0, 0,
87.1, 23.3, 0, 1.7, 48.2, 25.9, 27.9, 2, 0, 0, 0.7, 0, NA, 11.4,
0, 16.5, 8.6, 0, 3.8, 0, 1.2, 38), Dec = c(0, 24.1, 6.3, 12.1,
0, 0, 3.8, 8.8, 26.6, 8.8, 37.3, 3.8, 44.4, 0, 17.2, 0, 0, 1.2,
2, 2.5, 0, 3.8, 0, 13.9, 1.2, 0.7, 20.3, 0, 9.1, 0, 0, 0.5, 0,
0.5, 7.6, 0, 0, 1.2, 1.5, 0)), .Names = c("Year", "Day", "Jan",
"Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct",
"Nov", "Dec"), row.names = c(NA, 40L), class = "data.frame")


But data that is left blank is the one that I want to delete so that when I
rearrange it column by column, it wont appear anymore.

Using this command, I can rearrange the data column by column

library(reshape2)
res <-
transform(melt(dat,id.var=c("Year","Day")),Month=match(variable,month.abb),Amount=value)[,-c(3:4)]
res1 <- res[with(res,order(Year,Month,Day)),]

So, how do I rearrange it by excluding the empty row?

Thank you for your help.

Dila


On 11 March 2014 01:42, PIKAL Petr <petr.pikal@precheza.cz> wrote:

> Hi
>
> No attachments allowed (mostly). Use ?dput and copy to email directly.
>
> How you can have more than 29 rows in February if each row is one day?
>
> I believe that merging your data with date column made by ?seq.POSIXt can
> remove any nonexistent row but it all depends on how your data are
> structured and what do you want to remove.
>
> Petr
>
>
> > -----Original Message-----
> > From: r-help-bounces@r-project.org [mailto:r-help-bounces@r-
> > project.org] On Behalf Of dila radi
> > Sent: Tuesday, March 11, 2014 6:04 AM
> > To: r-help@r-project.org
> > Subject: [R] Deletion of rows
> >
> > Hi,
> >
> > I would like to ask about the deletion of rows in the data.
> >
> > Assuming I have this kind of data set, which you can refer through the
> > attachment.
> >
> >
> > As in the attachment, I have 31 days for each month which is I want to
> > delete some of the rows according to the real days per month.
> >
> > For example:
> >
> >  Jan, March, May, July, Aug, Oct, Dec (these months have 31 days per
> > month, so no deletion of rows needed)
> >
> > Feb (28 days except for leap years), Apr, June, Sept, Nov (we have 30
> > days per month)
> >
> > so, for any month that is not 31 days, I want to delete the row
> > accordingly.
> >
> > The question is, I have data sets from year 1970-2013, and to delete
> > manually it would be time consuming, so how do I delete those rows
> > according to the
> >
> >                              1) month itself
> >                               2) leap years ( year that is categorized
> > as
> > leap year, should
> > have
> > 29 days in Feb)
> >
> > Hope you can help me. Thanks a lot.
> >
> > Regards,
> > Dila
>
> ________________________________
> Tento e-mail a jakékoliv k němu připojené dokumenty jsou důvěrné a jsou
> určeny pouze jeho adresátům.
> Jestliže jste obdržel(a) tento e-mail omylem, informujte laskavě
> neprodleně jeho odesílatele. Obsah tohoto emailu i s přílohami a jeho kopie
> vymažte ze svého systému.
> Nejste-li zamýšleným adresátem tohoto emailu, nejste oprávněni tento email
> jakkoliv užívat, rozšiřovat, kopírovat či zveřejňovat.
> Odesílatel e-mailu neodpovídá za eventuální škodu způsobenou modifikacemi
> či zpožděním přenosu e-mailu.
>
> V případě, že je tento e-mail součástí obchodního jednání:
> - vyhrazuje si odesílatel právo ukončit kdykoliv jednání o uzavření
> smlouvy, a to z jakéhokoliv důvodu i bez uvedení důvodu.
> - a obsahuje-li nabídku, je adresát oprávněn nabídku bezodkladně přijmout;
> Odesílatel tohoto e-mailu (nabídky) vylučuje přijetí nabídky ze strany
> příjemce s dodatkem či odchylkou.
> - trvá odesílatel na tom, že příslušná smlouva je uzavřena teprve
> výslovným dosažením shody na všech jejích náležitostech.
> - odesílatel tohoto emailu informuje, že není oprávněn uzavírat za
> společnost žádné smlouvy s výjimkou případů, kdy k tomu byl písemně zmocněn
> nebo písemně pověřen a takové pověření nebo plná moc byly adresátovi tohoto
> emailu případně osobě, kterou adresát zastupuje, předloženy nebo jejich
> existence je adresátovi či osobě jím zastoupené známá.
>
> This e-mail and any documents attached to it may be confidential and are
> intended only for its intended recipients.
> If you received this e-mail by mistake, please immediately inform its
> sender. Delete the contents of this e-mail with all attachments and its
> copies from your system.
> If you are not the intended recipient of this e-mail, you are not
> authorized to use, disseminate, copy or disclose this e-mail in any manner.
> The sender of this e-mail shall not be liable for any possible damage
> caused by modifications of the e-mail or by delay with transfer of the
> email.
>
> In case that this e-mail forms part of business dealings:
> - the sender reserves the right to end negotiations about entering into a
> contract in any time, for any reason, and without stating any reasoning.
> - if the e-mail contains an offer, the recipient is entitled to
> immediately accept such offer; The sender of this e-mail (offer) excludes
> any acceptance of the offer on the part of the recipient containing any
> amendment or variation.
> - the sender insists on that the respective contract is concluded only
> upon an express mutual agreement on all its aspects.
> - the sender of this e-mail informs that he/she is not authorized to enter
> into any contracts on behalf of the company except for cases in which
> he/she is expressly authorized to do so in writing, and such authorization
> or power of attorney is submitted to the recipient or the person
> represented by the recipient, or the existence of such authorization is
> known to the recipient of the person represented by the recipient.
>

	[[alternative HTML version deleted]]


