Many thanks Petr! Best, Frank > From: petr.pi...@precheza.cz > To: f_j_...@hotmail.com; r-help@r-project.org > Subject: RE: [R] Overlapping subject-specific histograms > Date: Thu, 14 Jan 2016 12:03:16 +0000 > > Hi > > change > > points( factor(names(tab)) + dist.overlap, data$sim[kat == i] , > > type="h", col=2, lw =4) > > to > > points( 1:length(data$count[kat == i]) + dist.overlap, data$sims[kat == i] , > type="h", col=2, lw =4) > > And do not use html post, your code could be scrammbled. > > Cheers > Petr > > > > -----Original Message----- > > From: R-help [mailto:r-help-boun...@r-project.org] On Behalf Of Frank > > S. > > Sent: Thursday, January 14, 2016 12:48 PM > > To: r-help@r-project.org > > Subject: [R] Overlapping subject-specific histograms > > > > Dear R users, > > > > First of all, excuse me if my doubt is very trivial, but so far I > > haven't been able to solve it. > > My question is this: I have a data frame which contains repeated > > measurements on 4 subjects coded > > as "id", and I want to plot, for each subject, not only the > > corresponding "counts" variable histogram, > > but also overlapping to the right side the corresponding results of > > "sim" variable (I want to do it in basic > > R code, i.e., without any specific R package). I have almost the right > > code (see the example code below), > > but I can not overlap the "sim" variable. > > > > Thanks in advance for suggestions!! > > > > Frank > > > > data <- data.frame(id = rep(c(1,3,4,7), c(9,5,3,3)), > > count = c(0, 10, 15, 0, 16, 7, 14, 11, 12, 1, 8, 17, 19, 0, 9, 10, > > 14, 2, 3, 10), > > sims = c(1, 9, 15, 1, 14, 5, 12, 10, 12, 2, 6, 15, 18, 1, 9, 9, > > 12, 5, 3, 9)) > > > > # The actual code I have > > # ------------------------------ > > windows(height = 5, width = 5) > > par(mfrow = c(2, 2), oma = c(1, 2, 2, 1), mar=c(3, 2, 1, 1), las = 1) > > for(i in 1:length(unique(data$id))){ > > kat <- factor(data$id, labels = 1:length(unique(data$id))) > > plot(data$count[kat == i], > > type = "h", col = 1, lwd = 3, xaxt = "n", xlab ="", main = "", > > xlim = c(1, max(table(data$id))), ylim = c(0, 20)) > > axis(1, at = 1:max(table(data$id))) > > mtext( bquote(paste("id = ", .(unique(data$id)[i]))), side = 3, cex > > = 0.9, line = 0.5) > > tab <- table( as.matrix( data$id ) ) > > dist.overlap <- 0.4 # Distance of right overlapping of the "sim" > > variable > > # points( factor(names(tab)) + dist.overlap, data$sim[kat == i] , > > type="h", col=2, lw =4) ## =======> Line I can not solve > > } > > > > [[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. > > ________________________________ > 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 -- 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.
