R: 给 dataframe 的某列赋值、分组、因子化

###################################################

问题：给某一列赋值、分组、分类、因子化   18.4.24

         如何把 data.frame 中的某一列，赋值、即分组分类，，

解决方案：

         先 复制 要赋值的这一列，

         iris1<- iris;  range(iris1$Sepal.Length)    #[1] 4.3  7.9 得到数据范围，为下面分段

         方法一： 常规赋值，，可适用于被赋值列为 numeric、character 均可。为 numeric 时可用< > >= <= 等，character 时可用 == 方式。

iris1$Sepal.Length_fuzhi1 <- iris1$Sepal.Length;

str(iris1)

iris1$Sepal.Length_fuzhi1[iris1$Sepal.Length < 5] <- 1  #条件用 iris1$Sepal.Length 列，而不用新复制的列，是为了防止犯错    

iris1$Sepal.Length_fuzhi1[iris1$Sepal.Length >= 5 & iris1$Sepal.Length < 6] <- 2

iris1$Sepal.Length_fuzhi1[iris1$Sepal.Length >= 6 & iris1$Sepal.Length < 7] <- 3

iris1$Sepal.Length_fuzhi1[iris1$Sepal.Length >= 7] <- 4;

str(iris1)    

　　

         方法二： 自定义函数去赋值，，用于被赋值列可以比较大小，如 numeric 型，

iris1<- iris
num_assign <- function(temp_df,col_name,clas,newname){         ##此函数为通用函数。。对可以比大小的列进行赋值的函数。
    # temp_data 即要处理的数据框的名字，col_name为数据框中要处理的列名。
    # clas为分组界限组成的向量。。newname为赋值后的新产生的列的列名。、。。。
  temp_df[["temp1"]] = temp_df[["temp"]] <- temp_df[[col_name]];
  CI <- rep("a",length(clas)+1);  #CI 用来显示 原来值与新赋的值 之间对应关系。
  for(i in 1:length(clas)) {
    if(i == 1){    #得到第一个区间
      temp_df[["temp"]][temp_df[["temp1"]] < clas[i]] <- i 
      CI[i] <- paste("<"