报错内容如下:
Error in eval(ei, envir) : ++++++ Filtering left no data ++++++
In addition: Warning messages:
1: In (length(get(obj)) == 1) && (class(get(obj)) %in% c("character", :
'length(x) = 2 > 1' in coercion to 'logical(1)'
2: In eval(ei, envir) : NAs introduced