###################################################
问题:给某一列赋值、分组、分类、因子化 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("<"