1、
dat <- data.frame(v1=sample(1:15,15),v2=sample(1:15,15)) dat$cat[dat$v1 <= 8] <- "SMALL" dat$cat[dat$v1 > 8 ] <- "BIG"
2、
dat <- data.frame(v1=sample(1:15,15),v2=sample(1:15,15)) dat <- within(dat,{ cat = NA cat[v1 <= 8] = "SMALL" cat[v1 > 8] = "BIG" }) dat