> head(a)

  x1 x2 x3     x4 x5   x6 x7   x8 x9 x10 y
1  4 18 是 生意贷 男 已婚 是 大专 无  无 0
2  2 12 否 生意贷 男 已婚 是 大专 无  无 0
3  3 12 否 生意贷 男 已婚 是 大专 无  无 0
4  3 12 是 生意贷 女 已婚 是 中专 无  无 0
5  3 12 是 生意贷 男 离异 是 大专 无  无 0
6  3 12 是 生意贷 男 已婚 是 中专 无  无 0

> a[a[,'x3']=='是','x3'] <- 1　# 找到x3列值为是的行替换成列
> a[a[,'x3']=='否','x3'] <- 0
> head(a)
  x1 x2 x3     x4 x5   x6 x7   x8 x9 x10 y
1  4 18  1 生意贷 男 已婚 是 大专 无  无 0
2  2 12  0 生意贷 男 已婚 是 大专 无  无 0
3  3 12  0 生意贷 男 已婚 是 大专 无  无 0
4  3 12  1 生意贷 女 已婚 是 中专 无  无 0
5  3 12  1 生意贷 男 离异 是 大专 无  无 0
6  3 12  1 生意贷 男 已婚 是 中专 无  无 0

这个时候没报错。。

> a[a[,'x4']=='生意贷','x4'] <- 1
Error in `[<-.data.frame`(`*tmp*`, a[, "x4"] == "生意贷", "x4", value = 1) :
  missing values are not allowed in subscripted assignments of data frames
这个报错的大致意思的在数据帧的下标赋值中不允许遗漏值，百度了一圈发现也没什么资料


有没有人能知道这是个什么鬼啊！！！！！！！！