メモ

R 
x$A3 <- ifelse(x$AREA<=3, "P", 
	ifelse(x$AREA<=6, "Q","R"))

# この方が後で改変しやすいかも