'Re: [R] [FORGED] missing and replace'

[prev in list] [next in list] [prev in thread] [next in thread] 

List:       r-help
Subject:    Re: [R] [FORGED]  missing and replace
From:       PIKAL Petr <petr.pikal () precheza ! cz>
Date:       2017-04-27 6:33:30
Message-ID: 6E8D8DFDE5FA5D4ABCB8508389D1BF88FF99824E () SRVEXCHCM301 ! precheza ! cz
[Download RAW message or body]

Hi

not sure if sexiest but zoo package has several functions for replacing missing \
values.

as.data.frame(lapply(DF1, function(x) na.aggregate(x, FUN=function(y) \
round(mean(y)))))

Cheers
Petr

> -----Original Message-----
> From: R-help [mailto:r-help-bounces@r-project.org] On Behalf Of Rolf
> Turner
> Sent: Thursday, April 27, 2017 3:17 AM
> To: Val <valkremk@gmail.com>
> Cc: r-help@R-project.org (r-help@r-project.org) <r-help@r-project.org>
> Subject: Re: [R] [FORGED] missing and replace
> 
> On 27/04/17 12:45, Val wrote:
> > HI all,
> > 
> > I have a data frame with three variables. Some of the variables do
> > have missing values and I want to replace those missing values
> > (1represented by NA) with the mean value of that variable. In this
> > sample data,  variable z and y do have missing values. The mean value
> > of y  and z are152. 25  and 359.5, respectively . I want replace those
> > missing values  by the respective mean value ( rounded to the nearest
> > whole number).
> > 
> > DF1 <- read.table(header=TRUE, text='ID1 x y z
> > 1  25  122    352
> > 2  30  135    376
> > 3  40   NA    350
> > 4  26  157    NA
> > 5  60  195    360')
> > mean x= 36.2
> > mean y=152.25
> > mean z= 359.5
> > 
> > output
> > ID1  x  y  z
> > 1   25 122   352
> > 2   30 135   376
> > 3   40 152   350
> > 4   26 157   360
> > 5   60 195   360
> 
> This is pretty basic.  You really ought to learn a bit more about R if you are
> going to use R.  That being said, try:
> 
> newDF1 <- as.data.frame(lapply(DF1,function(x){
> x[is.na(x)] <- mean(x,na.rm=TRUE)
> x}))
> 
> There may be sexier ways of accomplishing your goal, but this should work.
> 
> cheers,
> 
> Rolf Turner
> 
> --
> Technical Editor ANZJS
> Department of Statistics
> University of Auckland
> Phone: +64-9-373-7599 ext. 88276
> 
> ______________________________________________
> 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.

________________________________
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 -- 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.

[prev in list] [next in list] [prev in thread] [next in thread] 