R 错误

===》

get_msg(file.path(hard_ham,files[250]))

Error in (which(nchar(msg, allowNA = T) == 0)[1] + 1):length(msg) : 

  NA/NaN argument

which(nchar(msg, allowNA = T) == 0)[1]返回NA

===》

> ggplot(data1)+
+ geom_density(aes(x=AgeAtDeath, colour=Smokes))
Error in unit(tic_pos.c, "mm") : 'x' and 'units' must have length > 0

原来Smokes需要是factor