小白不大懂，望大佬包涵

wjhsd98

table2flat <- function(mytable){
  df <- as.data.frame(mytable)
  rows <- dim(df)[1]   #求行数
  cols <- dim(df)[2]   #求列数
  x <- NULL
  for(i in 1:rows){
    for(j in 1:df$Freq){
      row <- df[i,c(1cols-1))]
      x <- rbind(x,row)
    }
  }
  rownames(x) <- c(1:dim(x)[1])
  return(x)
}
这个函数是为了将数据扁平化，但是我看不大懂绿色标注的那一段
谢谢

chunfei_xu

从代码的表面上来看是把一行数据复制df$Freq遍，如果这个假设对的话，上面代码没有问题。