HI,
There were some "spaces" inside the quotes that created the problem.
reg <-
structure(c(6L, 6L, 1L, 7L, 1L, 1L, 1L, 5L, 2L, 1L, 6L, 3L, 1L,
1L, 7L, 1L, 4L, 1L, 1L, 1L, 1L, 1L, 7L, 6L, 6L, 1L, 1L, 1L, 1L,
6L, 2L, 7L), .Label = c(" auckland", " christchurch", " hb",
" manawatu", " taranaki", " waikato", " wellington"), class = "factor")
^^
I changed it to:
reg <-
structure(c(6L, 6L, 1L, 7L, 1L, 1L, 1L, 5L, 2L, 1L, 6L, 3L, 1L,
1L, 7L, 1L, 4L, 1L, 1L, 1L, 1L, 1L, 7L, 6L, 6L, 1L, 1L, 1L, 1L,
6L, 2L, 7L), .Label = c("auckland", "christchurch", "hb",
"manawatu", "taranaki", "waikato", "wellington"), class =
"factor")levels(reg)<-rg2
reg
# [1] other other akl other akl akl akl other other akl other other
#[13] akl akl other akl other akl akl akl akl akl other other
#[25] other akl akl akl akl other other other
#Levels: akl other
A.K.
----- Original Message -----
From: Murray Jorgensen <m...@waikato.ac.nz>
To: r-help <r-help@r-project.org>
Cc:
Sent: Saturday, November 17, 2012 4:28 PM
Subject: [R] coarsening levels problem
Greetings from New Zealand.
I hope that my difficulties are clear from the following output. Ideas
gratefully received!
Murray Jorgensen
cc <- scan()
3000 3500 2500 2500 3000 3000 3000 3000 3000 2000
2000 2000 2000 4800 3000 4500 3000 2000 2000 4400
3000 3000 2500 3000 3000 2000 3000 2000 2000 2000 3000 2000
cc <- as.factor(cc)
> cc
[1] 3000 3500 2500 2500 3000 3000 3000 3000 3000 2000
[11] 2000 2000 2000 4800 3000 4500 3000 2000 2000 4400
[21] 3000 3000 2500 3000 3000 2000 3000 2000 2000 2000
[31] 3000 2000
Levels: 2000 2500 3000 3500 4400 4500 4800
> engroups <- list(L2 = 2000, L2.5 = 2500, L3 = 3000,
+ large = c(3500,4400,4500,4800))
> levels(cc) <- engroups
> cc
[1] L3 large L2.5 L2.5 L3 L3 L3 L3 L3
[10] L2 L2 L2 L2 large L3 large L3 L2
[19] L2 large L3 L3 L2.5 L3 L3 L2 L3
[28] L2 L2 L2 L3 L2
Levels: L2 L2.5 L3 large
reg <-
structure(c(6L, 6L, 1L, 7L, 1L, 1L, 1L, 5L, 2L, 1L, 6L, 3L, 1L,
1L, 7L, 1L, 4L, 1L, 1L, 1L, 1L, 1L, 7L, 6L, 6L, 1L, 1L, 1L, 1L,
6L, 2L, 7L), .Label = c(" auckland", " christchurch", " hb",
" manawatu", " taranaki", " waikato", " wellington"), class = "factor")
> reg
[1] waikato waikato auckland
[4] wellington auckland auckland
[7] auckland taranaki christchurch
[10] auckland waikato hb
[13] auckland auckland wellington
[16] auckland manawatu auckland
[19] auckland auckland auckland
[22] auckland wellington waikato
[25] waikato auckland auckland
[28] auckland auckland waikato
[31] christchurch wellington
7 Levels: auckland christchurch hb ... wellington
> rg2 <- list(akl = c("auckland"), other = c("christchurch",
+ "hb", "manawatu", "taranaki", "waikato", "wellington"))
> levels(reg) <- rg2
> reg
[1] <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA>
[11] <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA>
[21] <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA>
[31] <NA> <NA>
Levels: akl other
-- Dr Murray Jorgensen http://www.stats.waikato.ac.nz/Staff/maj.html
Department of Statistics, University of Waikato, Hamilton, New Zealand
Email: m...@waikato.ac.nz majorgen...@ihug.co.nz Fax 7 838 4155
Phone +64 7 838 4773 wk Home +64 7 825 0441 Mobile 021 0200 8350
______________________________________________
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.
______________________________________________
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.
