coarsening levels problem
Thanks very much Arun! Murray
On 18/11/12 11:07 AM, arun wrote:
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 <maj at waikato.ac.nz>
To: r-help <r-help at 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: maj at waikato.ac.nz majorgensen at ihug.co.nz Fax 7 838 4155 Phone +64 7 838 4773 wk Home +64 7 825 0441 Mobile 021 0200 8350
______________________________________________ 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.
Dr Murray Jorgensen http://www.stats.waikato.ac.nz/Staff/maj.html Department of Statistics, University of Waikato, Hamilton, New Zealand Email: maj at waikato.ac.nz majmurr at gmail.com Fax 7 838 4155 Phone +64 7 838 4773 wk Home +64 7 825 0441 Mobile 021 0200 8350