for (i in 1:nrow) {
  d <- data.frame(mydata[[1]][i], strsplit(mydata[[2]][i], "、"))
  ID <- d[,1]
  ZY <- d[,2]
  d <- data.frame(ID, ZY)
  DF <- rbind(df, d)
}

运行提示Error in .subset2(x, i, exact = exact) : subscript out of bounds，求指教！