NULL.V1 NULL.V2 NULL.V3 NULL.V4
1  区组号 营养素1 营养素2 营养素3
2       1   50.10   58.20   64.50
3       2   47.80   48.50   62.40
4       3   53.10   53.80   58.60
5       4   63.50   64.20   72.50
6       5   71.20   68.40   79.30
7       6   41.40   45.70   38.40
8       7   61.90   53.00   51.20
9       8   42.20   39.80   46.20


如上图,我用readhtmltable在网页上抓到的table,但是不能识别第一行变成列名,我的方法是,手动复制第一行的名字然后
names(data)[1:4]<-c(区组号 营养素1 营养素2 营养素3),然后再data[-1,],但是我感觉这个方法非常的低效,有大神有比较好的方法吗