R中怎么用xtabs统计同科的植物种数

R零基础

如图
我的代码是x <- xtabs(~"种"+"属",data = dat)
dat为读取这个表
输出结果为

正常的输出结果应该为(这种样式)

不知道出了什么错，求解答[大哭]，dat的数据结构为list，难道xtabs函数不能用list这种数据结构[大哭]

读取成数据框处理，写成这样试试：

dat<-read.csv('r0110.csv',fileEncoding='utf-8',sep=',',header=T)
attach(dat)
x <- xtabs(~科+属,data = dat)
print(x)