Hello, thank you for your reply.
Actually, the whole rows would have to be averaged anyways - my mistake :-) Besides the first column "name" there is one other string (chr) variable "Test" in the dataset (the rows I want to average have always the same Testvariable), the other variables are numeric or integer. Best, Verena On Wed, May 28, 2014 at 2:57 PM, PIKAL Petr <petr.pi...@precheza.cz> wrote: > Hi > > AFAIK you can not average values only in 2 columns leaving others intact. > The exact code depends on what are in columns 2-39 in your data frame. If > numbers, you can averege them as well. > > Something like > > dat.ag <- aggregate(dat[,-1], list(dat$Name), mean, na.rm=TRUE) > > if your data frame is named dat and first column calls Name. You get new > object with aggregated values for the same Name. > > If some columns are nonnumeric the problem gets trickier and solution > strongly depends what mode are those columns and what you want to do with > them when aggregating values in column 40 and 41. > > Show us at least structure of your data frame. > > ?str > > Regards > Petr > > > -----Original Message----- > > From: r-help-boun...@r-project.org [mailto:r-help-bounces@r- > > project.org] On Behalf Of Verena Weinbir > > Sent: Wednesday, May 28, 2014 2:00 PM > > To: arun > > Cc: r-help > > Subject: Re: [R] Dataframe: Average cells of two rows and replace them > > with one row > > > > Hey guys, > > > > thank you very much for your help. Since I am a R-newbie I am still > > checking out how your code works and how I could adapt it to my > > dataframe, > > which has 124 rows and 41 columns/variables. The first column would be > > "name", the last ones, 40 and 41, contain the cells I want to average > > for > > some rows. Is it possible to read the dataframe without copying the > > whole > > thing into the text"" function (just tried it and got an error > > message)? > > > > Thank you! > > > > Verena > > > > > > On Wed, May 28, 2014 at 3:48 AM, arun <smartpink...@yahoo.com> wrote: > > > > > Hi, > > > You can also try: > > > dat <- read.table(text="Name C1 C2 C3 > > > 1 A 3 3 5 > > > 2 B 2 7 4 > > > 3 C 4 3 3 > > > 4 C 4 4 6 > > > 5 D 5 5 3",sep="",header=TRUE,stringsAsFactors=FALSE) > > > > > > > > > library(plyr) > > > ddply(dat,.(Name),numcolwise(mean,na.rm=TRUE)) > > > A.K. > > > > > > > > > On Tuesday, May 27, 2014 4:08 PM, Verena Weinbir <vwein...@gmail.com> > > > wrote: > > > Hello, > > > > > > I have a big dataframe, and want to average two specific cells of two > > > specific rows and then replace those two rows with one row which > > contains > > > the averaged cells. Example (row 3 and 4: Cells2 and Cells3 averaged > > and > > > replaced) > > > > > > NameC1 C2 C3 > > > 1 A 3 3 5 > > > 2 B 2 7 4 > > > 3 C 4 3 3 > > > 4 C 4 4 6 > > > 5 D 5 5 3 > > > > > > > > > > > > NameC1 C2 C3 > > > 1 A 3 3 5 > > > 2 B 2 7 4 > > > 3 C 4 3.5 4.5 4 D 5 5 3 > > > > > > > > > Many thanks in advance! > > > > > > Best, > > > > > > Verena > > > > > > [[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. > > ________________________________ > 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]]
______________________________________________ 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.
