Mutate/summarise bugs

[hadley]

From Dave Cooper:

# mutate and summarize bugs.R

rm(list = ls())

require(plyr)
require(ggplot2)

d = diamonds

#########################
# MUTATE BUG
# this works
e = mutate(d,
  cut2 = as.character(cut) )
e = mutate(e,
  cut2 = ifelse(cut2 == 'Fair', '*Fairest*', cut2))
plyr::count(e, ~cut+cut2)

# this fails
e = mutate(d,
  cut2 = as.character(cut),
  cut2 = ifelse(cut2 == 'Fair', '*Fairest*', cut2))
plyr::count(e, ~cut+cut2)

# but this works!
e = mutate(d,
  cut2 = as.character(cut),
  cut3 = ifelse(cut2 == 'Fair', '*Fairest*', cut2))
plyr::count(e, ~cut+cut2+cut3)

#########################
# SAME PROBLEM, BUT WITH SUMMARIZE
# this works
e = summarize(d,
  cut2 = as.character(cut) )
e = summarize(e,
  cut2 = ifelse(cut2 == 'Fair', '*Fairest*', cut2))
count(e, ~cut2)

# this fails
e = summarize(d,
  cut2 = as.character(cut),
  cut2 = ifelse(cut2 == 'Fair', '*Fairest*', cut2))
count(e, ~cut2)

# but this works!
e = summarize(d,
  cut2 = as.character(cut),
  cut3 = ifelse(cut2 == 'Fair', '*Fairest*', cut2))
count(e, ~cut2+cut3)


#########################
# MUTATE with REVALUE
# this works
e = mutate(d,
 cut2 = revalue(cut, c(Fair = '*Fairest*')) )
e = mutate(e,
 cut2 = revalue(cut2, c('*Fairest*' = '*Fairest of All*')) )
count(e, ~cut+cut2)

# this fails
e = mutate(d,
 cut2 = revalue(cut, c(Good = '*Fairest*')),
 cut2 = revalue(cut2, c('*Fairest*' = '*Fairest of All*')) )
count(e, ~cut+cut2)

# but this works!
e = mutate(d,
 cut2 = revalue(cut, c(Good = '*Fairest*')),
 cut3 = revalue(cut2, c('*Fairest*' = '*Fairest of All*')) )
count(e, ~cut+cut2+cut3)