具体来说，第三行代码的作用是什么？’train[train$label==1,]’是如何工作的？

   train <- read.csv("../input/train.csv")   set.seed(71)   data <- sample(as.integer(row.names(train[train$label==1,])),100)   par(mfrow=c(10,10),mar=c(0.1,0.1,0.1,0.1))  ---- 3

回答：

它将train数据集子集化为仅包含label等于1的观测值。