Hi,
Try:
res2 <- res1[!is.na(res1$Amount),]
A.K.
On Friday, March 14, 2014 3:41 AM, dila radi <dilarad...@gmail.com> wrote:
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.pi...@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-boun...@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.
>
______________________________________________
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.
