可以的话，把原始数据发来看看，这是我目前能想到的解决方案
(1)读入数据时确定分隔符，我一般以csv存储数据,举个例子：data<-read.csv("sim1.csv"，sep=",",header=T)
(2)检查啊元数据是否都有列名，若无，则data<-read.csv("sim1.csv"，sep=",",header=F)
(3)看下读入的数据类型，没记错的话应该是class(data)

data的内容输出一下看看

输出data，出来了一个函数：
> print(data)
function (..., list = character(0L), package = NULL, lib.loc = NULL,
    verbose = getOption("verbose"), envir = .GlobalEnv)
{
    fileExt <- function(x) {
..........................................................

那估计是没有导入成功吧。