Question

我的代码附带了我下载的数据集。此代码应该将因子变量转换为数字。当我单独运行每一行时，它工作正常，但如果我尝试突出显示整个部分，那么我会收到以下错误：

错误：...中的意外输入

它为每行代码提供了这个错误，但是如果我单独运行每一行，那么它工作正常。我以前从未遇到过这种情况。这是怎么回事？？谢谢！

这是我正在尝试运行的代码：

library(prettyR)
lbls <- sort(levels(DF$myVar))
lbls <- (sub("^\\([0-9]+\\) +(.+$)", "\\1", lbls))
DF$myVar <- as.numeric(sub("^\\(0*([0-9]+)\\).+$", "\\1", DF$myVar))
DF$myVar <- add.value.labels(DF$myVar, lbls)

这是输出错误：

> library(prettyR)
"rror: unexpected input in "library(prettyR)
> lbls <- sort(levels(DF$myVar))
"rror: unexpected input in "lbls <- sort(levels(DF$myVar))
> lbls <- (sub("^\\([0-9]+\\) +(.+$)", "\\1", lbls))
"rror: unexpected input in "lbls <- (sub("^\\([0-9]+\\) +(.+$)", "\\1", lbls))
> surv.df$myVar <- as.numeric(sub("^\\(0*([0-9]+)\\).+$", "\\1", DF$myVar))
"rror: unexpected input in "DF$myVar <- as.numeric(sub("^\\(0*([0-9]+)\\).+$", "\\1",DF$myVar))
> surv.df$BATTLEGROUND <- add.value.labels(DF$myVar, lbls)
Error in add.value.labels(surv.df$myVar, lbls) : 
object 'lbls' not found

Answer 1

我想出了问题（实际上有人告诉我问题是什么）

代码是作为.R文件下载的，必须使用带有非标准“新行”编码的文本编辑器编写。所以我只是将代码复制到文本编辑器中，确实将所有代码都切换为“\ n” “#####”。然后我再次使用replace all切换回换行并将其复制回R studio。

一切正常！

仅在运行整个代码块时出错

1 个答案: