Try this:
> set.seed(1)
> x <- c(rnorm(1e3, mean=10, sd=1), 50, 100)
>
> start <- 0
> end <- 110
> h <-10
>
> c1 <- cut(x, br=seq(start, end, h), right=TRUE)
> levels(c1)
[1] "(0,10]" "(10,20]" "(20,30]" "(30,40]" "(40,50]" "(50,60]"
"(60,70]" "(70,80]"
[9] "(80,90]" "(90,100]" "(100,110]"
> # I get:
> # [1] "(0,10]" "(10,20]" "(20,30]" "(30,40]"
> # [5] "(40,50]" "(50,60]" "(60,70]" "(70,80]"
> # [9] "(80,90]" "(90,100]" "(100,110]"
> x.str <- strsplit(levels(c1), ',')
> # reformat the numbers
> x.fmt <- lapply(x.str, function(.vals){
+ .vals[1L] <- sprintf("(%03d", as.integer(substring(.vals[1L], 2)))
+ .vals[2L] <- sprintf("%03d]", as.integer(substring(.vals[2L], 1,
nchar(.vals[2L]) - 1)))
+ paste(.vals, collapse=',')
+ })
> levels(c1) <- unlist(x.fmt)
> levels(c1)
[1] "(000,010]" "(010,020]" "(020,030]" "(030,040]" "(040,050]" "(050,060]"
"(060,070]" "(070,080]"
[9] "(080,090]" "(090,100]" "(100,110]"
>
On Wed, Apr 21, 2010 at 10:24 AM, Jose Claudio Faria <
joseclaudio.fa...@gmail.com> wrote:
> Dear list,
>
> I would like to format the result of the 'cut' function to perform a
> subsequent
> frequency distribution table (fdt) suitable for publications.
> Below an reproducible example:
>
> set.seed(1)
> x <- c(rnorm(1e3, mean=10, sd=1), 50, 100)
>
> start <- 0
> end <- 110
> h <-10
>
> c1 <- cut(x, br=seq(start, end, h), right=TRUE)
> levels(c1)
> # I get:
> # [1] "(0,10]" "(10,20]" "(20,30]" "(30,40]"
> # [5] "(40,50]" "(50,60]" "(60,70]" "(70,80]"
> # [9] "(80,90]" "(90,100]" "(100,110]"
>
> # I need (observe digits and space after the comma):
> # [1] "(000, 010]" "(010, 020]" "(020, 030]" "(030, 040]"
> # [5] "(040, 050]" "(050, 060]" "(060, 070]" "(070, 080]"
> # [9] "(080, 090]" "(090, 100]" "(100, 110]"
>
> c2 <- cut(x, br=seq(start, end, h), right=FALSE)
> levels(c2)
> # I get:
> # [1] "[0,10)" "[10,20)" "[20,30)" "[30,40)"
> # [5] "[40,50)" "[50,60)" "[60,70)" "[70,80)"
> # [9] "[80,90)" "[90,100)" "[100,110)"
>
> # I need (observe digits and space after the comma):
> # [1] "[000, 010)" "[010, 020)" "[020, 030)" "[030, 040)"
> # [5] "[040, 050)" "[050, 060)" "[060, 070)" "[070, 080)"
> # [9] "[080, 090)" "[090, 100)" "[100, 110)"
>
> # Making fdt:
> table(c1)
> # I get:
> # c1
> # (0,10] (10,20] (20,30] (30,40] (40,50] (50,60]
> # 518 482 0 0 1 0
> # (60,70] (70,80] (80,90] (90,100] (100,110]
> # 0 0 0 1 0
>
> # I need (observe digits and space after the comma):
> # c1
> # (000, 010] (010, 020] (020, 030] (030, 040] (040, 050] (050, 060]
> # 518 482 0 0
> 1 0
> # (060, 070] (070, 080] (080, 090] (090, 100] (100, 110]
> # 0 0 0 1
> 0
>
> table(c2)
> # I get:
> # c2
> # [0,10) [10,20) [20,30) [30,40) [40,50) [50,60)
> # 518 482 0 0 0 1
> # [60,70) [70,80) [80,90) [90,100) [100,110)
> # 0 0 0 0 1
>
> # I need (observe digits and space after the comma):
> # c2
> # [000, 010) [010, 020) [020, 030) [030, 040) [040, 050) [050, 060)
> # 518 482 0 0
> 0 1
> # [060, 070) [070, 080) [080, 090) [090, 100) [100, 110)
> # 0 0 0 0
> 1
>
>
> Is it possible? Any tip will be welcome!
>
> Thanks in advance,
> --
> ///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\
> Jose Claudio Faria
> Estatistica - prof. Titular
> UESC/DCET/Brasil
> joseclaudio.fa...@gmail.com
> ///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\
>
> ______________________________________________
> 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<http://www.r-project.org/posting-guide.html>
> and provide commented, minimal, self-contained, reproducible code.
>
--
Jim Holtman
Cincinnati, OH
+1 513 646 9390
What is the problem that you are trying to solve?
[[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.
