例子 数据来自于ggplot2的diamonds library(ggplot2) data_cut_color <- table(diamonds$cut,diamonds$color) data_cut_color 转换为data.frame as.data.frame.array(data_cut_color) 注:table要是直接用as.data.frame(data_cut_color),会变成这样