Hi Elisa,
I think your question is regarding "why the third column (Frequency) is absent??
aggregate(row.names(dat1)~class,dat1,function(x) x)[1]? #Here, the first two class are not there, because it was not in the dataset. (0.1<x<=0.2) was not there and (0<x<=0.1) is also not present, eventhough 0 was present, but our class should be >0.
#?????? class
#1 0.2<x<=0.3
#2 0.3<x<=0.4
#3 0.4<x<=0.5
#4 0.5<x<=0.6
#5 0.6<x<=0.7
#6 0.7<x<=0.8
#7 0.8<x<=0.9
#8?? 0.9<x<=1
vecNew1<-as.data.frame(table(vecNew))
? # ??? vecNew Freq
#1??? 0<x<=0.1??? 0
#2? 0.1<x<=0.2??? 0
#3? 0.2<x<=0.3?? 15
#4? 0.3<x<=0.4?? 24
#5? 0.4<x<=0.5?? 27
#6? 0.5<x<=0.6?? 20
#7? 0.6<x<=0.7?? 15
#8? 0.7<x<=0.8?? 12
#9? 0.8<x<=0.9??? 9
#10?? 0.9<x<=1??? 1
res1<- data.frame(aggregate(row.names(dat1)~class,dat1,function(x) x),Frequency=as.data.frame(table(vecNew))[-c(1,2),2]) #first two classes were not present
names(vecNew1)<-names(res1)[c(1,3)]
library(plyr)
join(vecNew1,res1,by=c("class","Frequency"),type="full")
?# ????? class Frequency
#1??? 0<x<=0.1???????? 0
#2? 0.1<x<=0.2???????? 0
#3? 0.2<x<=0.3??????? 15
#4? 0.3<x<=0.4??????? 24
#5? 0.4<x<=0.5??????? 27
#6? 0.5<x<=0.6??????? 20
#7? 0.6<x<=0.7??????? 15
#8? 0.7<x<=0.8??????? 12
#9? 0.8<x<=0.9???????? 9
#10?? 0.9<x<=1???????? 1
?# ?????????????????????????????????????????????????????????????????????????????????????????????? row.names.dat1.
#1?????????????????????????????????????????????????????????????????????????????????????????????????????????? NULL
#2?????????????????????????????????????????????????????????????????????????????????????????????????????????? NULL
#3???????????????????????????????????????????????? 2, 10, 14, 32, 34, 36, 70, 85, 95, 99, 101, 103, 104, 113, 120
#4???????????? 8, 45, 46, 51, 54, 57, 58, 60, 61, 63, 67, 78, 86, 87, 88, 91, 92, 96, 97, 102, 110, 114, 115, 124
#5? 11, 12, 15, 20, 27, 30, 33, 35, 48, 53, 55, 59, 68, 69, 71, 74, 77, 81, 82, 83, 89, 90, 93, 98, 105, 107, 121
#6??????????????????????????????? 4, 13, 17, 18, 21, 23, 24, 25, 28, 29, 31, 37, 43, 47, 62, 64, 65, 94, 100, 111
#7???????????????????????????????????????????????? 3, 16, 38, 41, 42, 50, 52, 72, 80, 84, 106, 108, 117, 118, 122
#8????????????????????????????????????????????????????????????????? 5, 6, 7, 9, 39, 40, 73, 76, 79, 109, 112, 116
#9??????????????????????????????????????????????????????????????????????????? 19, 22, 26, 44, 49, 56, 66, 75, 123
#10?????????????????????????????????????????????????????????????????????????????????????????????????????????? 119
A.K.
From: eliza botto <eliza_botto at hotmail.com>
To: "smartpink111 at yahoo.com" <smartpink111 at yahoo.com>
Sent: Monday, February 18, 2013 4:10 PM
Subject: RE: [R] addition in the initial question [SCL:4]
To: "smartpink111 at yahoo.com" <smartpink111 at yahoo.com>
Sent: Monday, February 18, 2013 4:10 PM
Subject: RE: [R] addition in the initial question [SCL:4]
Thanks arun, here it is? vec1<-c(gg) vec2<-vec1[1:124] names(vec2)<-(1:124) label1<-unlist(lapply(mapply(c,lapply(seq(0,0.90,0.1),function(x) x),lapply(seq(0.1,1,0.1),function(x) x),SIMPLIFY=FALSE),function(i) paste(i[1],"<x<=",i[2],sep=""))) ?dat1<-data.frame(vec2,class=cut(vec2,breaks=seq(0,1,0.1),labels=label1),stringsAsFactors=FALSE) ?vecNew<-cut(vec2,breaks=seq(0,1,0.1),labels=label1) res<-as.data.frame(aggregate(row.names(dat1)~class,dat1,function(x) x),Frequency=as.data.frame(table(vecNew))[,3],stringsAsFactors=FALSE) ?names(res)[2]<- "header_elements_class" thankyou so very much. stay blessed elisa > Date: Mon, 18 Feb 2013 13:02:35 -0800 > From: smartpink111 at yahoo.com > Subject: Re: [R] addition in the initial question [SCL:4] > To: eliza_botto at hotmail.com > > Hi Elisa, > > Here the vector length >26.? But, in the previous example the length was 26 and it was named with letters. > > Also, here, the class categories should be different, right? > > max(gg) > #[1] 0.95019 > > So, I am assuming you made some changes to the code.? Could you email the code you used and also the different categories of class? > Arun > > > > > > ________________________________ > From: eliza botto <eliza_botto at hotmail.com> > To: "smartpink111 at yahoo.com" <smartpink111 at yahoo.com> > Sent: Monday, February 18, 2013 3:08 PM > Subject: RE: [R] addition in the initial question [SCL:4] > > > > Dear Arun, > Thanks for your kind advice. But unfortunatly, its not working with my data. > > > dput(gg) > c(0, 0.28189, 0.6639, 0.5154, 0.77667, 0.70171, 0.78666, 0.34442,? > 0.72091, 0.23643, 0.44381, 0.45992, 0.59163, 0.25542, 0.48373,? > 0.64251, 0.54566, 0.5648, 0.84952, 0.42145, 0.54035, 0.88599,? > 0.59981, 0.57378, 0.59432, 0.82779, 0.46882, 0.54043, 0.59857,? > 0.40087, 0.55274, 0.28464, 0.4502, 0.24964, 0.44608, 0.21136,? > 0.58958, 0.64248, 0.70631, 0.70928, 0.61397, 0.65114, 0.57528,? > 0.82119, 0.33098, 0.31403, 0.51127, 0.49723, 0.80711, 0.6612,? > 0.33378, 0.64375, 0.45849, 0.32759, 0.44656, 0.84421, 0.32896,? > 0.31745, 0.48302, 0.3845, 0.3475, 0.57271, 0.3904, 0.54716, 0.56335,? > 0.86038, 0.37506, 0.48184, 0.47899, 0.2813, 0.47213, 0.6498,? > 0.79342, 0.46142, 0.85018, 0.73835, 0.40189, 0.33038, 0.7112,? > 0.6031, 0.47986, 0.49434, 0.48138, 0.69359, 0.25867, 0.33724,? > 0.37273, 0.3168, 0.44585, 0.48672, 0.39916, 0.3836, 0.41951,? > 0.58556, 0.20466, 0.31819, 0.30299, 0.41592, 0.25732, 0.57609,? > 0.29921, 0.31606, 0.29339, 0.21411, 0.47548, 0.67929, 0.43836,? > 0.6397, 0.7536, 0.31167, 0.56878, 0.79869, 0.26653, 0.33772,? > 0.38865, 0.70585, 0.64432, 0.66255, 0.95019, 0.28911, 0.48223,? > 0.69093, 0.84077, 0.3715) > > thanks alot > > eliza > > > Date: Sun, 17 Feb 2013 13:23:20 -0800 > > From: smartpink111 at yahoo.com > > To: eliza_botto at hotmail.com > > CC: r-help at r-project.org > > Subject: Re: [R] addition in the initial question [SCL:4] > > > > Dear Elisa, > > Try this: > > vec1<-c(33,18,13,47,30,10,6,21,39,25,40,29,14,16,44,1,41,4,15,20,46,32,38,5,31,12,48,27,36,24,34,2,35,11,42,9,8,7,26,22,43,17,19,28,23,3,49,37,50,45) > > vec2<-vec1[1:26] > > names(vec2)<-LETTERS[1:26] > > label1<-unlist(lapply(mapply(c,lapply(seq(0,45,5),function(x) x),lapply(seq(5,50,5),function(x) x),SIMPLIFY=FALSE),function(i) paste(i[1],"<x<=",i[2],sep=""))) > > ?dat1<-data.frame(vec2,class=cut(vec2,breaks=seq(0,50,5),labels=label1),stringsAsFactors=FALSE) > > ?vecNew<-cut(vec2,breaks=seq(0,50,5),labels=label1) > > res<-data.frame(aggregate(row.names(dat1)~class,dat1,function(x) x),Frequency=as.data.frame(table(vecNew))[,2],stringsAsFactors=FALSE) > > ?names(res)[2]<- "header_elements_class" > > ?res > > #????? class header_elements_class Frequency > > #1??? 0<x<=5?????????????? P, R, X???????? 3 > > #2?? 5<x<=10????????????????? F, G???????? 4 > > #3? 10<x<=15??????????? C, M, S, Z???????? 3 > > #4? 15<x<=20?????????????? B, N, T???????? 2 > > #5? 20<x<=25????????????????? H, J???????? 2 > > #6? 25<x<=30????????????????? E, L???????? 3 > > #7? 30<x<=35?????????????? A, V, Y???????? 3 > > #8? 35<x<=40?????????????? I, K, W???????? 2 > > #9? 40<x<=45????????????????? O, Q???????? 2 > > #10 45<x<=50????????????????? D, U???????? 2 > > ?str(res) > > #'data.frame':??? 10 obs. of? 3 variables: > > # $ class??????????????? : Factor w/ 10 levels "0<x<=5","5<x<=10",..: 1 2 3 4 5 6 7 8 9 10 > > # $ header_elements_class:List of 10 > > #? ..$ 0: chr? "P" "R" "X" > > #? ..$ 1: chr? "F" "G" > > #? ..$ 2: chr? "C" "M" "S" "Z" > > #? ..$ 3: chr? "B" "N" "T" > > #? ..$ 4: chr? "H" "J" > > #? ..$ 5: chr? "E" "L" > > #? ..$ 6: chr? "A" "V" "Y" > > #? ..$ 7: chr? "I" "K" "W" > > #? ..$ 8: chr? "O" "Q" > > #? ..$ 9: chr? "D" "U" > > # $ Frequency??????????? : int? 3 4 3 2 2 3 3 2 2 2 > > > > > > A.K. > > > > > > > > > > > > ________________________________ > > From: eliza botto <eliza_botto at hotmail.com> > > To: "smartpink111 at yahoo.com" <smartpink111 at yahoo.com> > > Sent: Sunday, February 17, 2013 3:27 PM > > Subject: addition in the initial question > > > > > > > > Dear Arun, > > > > just a small change in the initial question. > > what if, instead of counting number i want to get the headers of the numbers falling in each range. finally counting those numbers to get frequencies and then drawing histograms and fitting density curve. > > > > [HEADER] A ? B ?C ?D ?E ?F ?G ?H ?I ?J ?K ?L ?M ?N ?O ?P ?Q ?R ?S ?T ?U ?V ?W ? X Y ?Z > > [VECTOR] 33 18 13 47 30 10 ?6 21 39 25 40 29 14 16 44 ?1 41 ?4 15 20 46 32 38 ?5 31 12? > > > > > > classheader?of elements in each class?Frequency > > > > 0<x<=5P, R, X? ? ? ?3 > > 5<x<=10F, G? ? ? ?2 > > 10<x<=15 ?C, S? ? ? ?2 > > ..... > > ... > > ... > > ... > > 45<x<=50? ? ? ?U? ? ? ?1 > > > > thankyou very much in advance > > > > elisa > > > > ______________________________________________ > > R-help at 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.