R 错误：意外'；}'；整天烦我

我整天都在试图处理一件意想不到的事情，但我无法让它正常工作。当我运行这个代码时

read<-function(file){ 
+     df<-read.table(file=file,header=FALSE,sep = ",", na.strings = "NULL")  
+     names(df)<-c("date","Open","High","Low","Close")                       
+     dl<-split(df,format(as.POSIXct(df$date),'%Y-%m-%d'))                   
+     lapply(dl,function(item){                                              
+         xts(item[-1],order.by = as.POSIXct(item$date))
+     })
+     }

---

这里有一个不应该中断的语法。它确实看起来像是从其他地方粘贴“+”标记，这就是问题的根源

read <- function(file) {
  df <- read.table(file=file, header=FALSE, sep = ",", na.strings = "NULL")
  names(df) <- c("date","Open","High","Low","Close")
  dl <- split(df, format(as.POSIXct(df$date), '%Y-%m-%d'))
  lapply(dl, function(item){ xts(item[-1], order.by = as.POSIXct(item$date))})
}

---

read这里有一个不应该中断的语法。它确实看起来像是从其他地方粘贴“+”标记，这就是问题的根源

read <- function(file) {
  df <- read.table(file=file, header=FALSE, sep = ",", na.strings = "NULL")
  names(df) <- c("date","Open","High","Low","Close")
  dl <- split(df, format(as.POSIXct(df$date), '%Y-%m-%d'))
  lapply(dl, function(item){ xts(item[-1], order.by = as.POSIXct(item$date))})
}

read@Psidom我已经回滚了您的更改，因为我认为这是问题的关键。看到错误消息中的“+”了吗？您需要删除所有这些加号。我的猜测是，您复制/粘贴到控制台，并没有删除它们。@KonradRudolph我认为这是有道理的。您是否将代码从Rstudio控制台复制到编辑器，然后编译文件？Rstudio在行首添加
+
，以显示前一行的延续。
+
不是语法的一部分。您可以将
continue
选项设置为
”
以禁用控制台中以行开头的
+
。@KonradRudolph您没事！非常感谢。如果我想使用这个函数读取csv文件，我应该怎么做？你能给我举个例子吗。@Psidom我已经回滚了你的更改，因为我认为这是问题的关键。看到错误消息中的“+”了吗？您需要删除所有这些加号。我的猜测是，您复制/粘贴到控制台，并没有删除它们。@KonradRudolph我认为这是有道理的。您是否将代码从Rstudio控制台复制到编辑器，然后编译文件？Rstudio在行首添加
+
，以显示前一行的延续。
+
不是语法的一部分。您可以将
continue
选项设置为
”
以禁用控制台中以行开头的
+
。@KonradRudolph您没事！非常感谢。如果我想使用这个函数读取csv文件，我应该怎么做？你能给我举个例子吗？我想他是逐行运行代码，然后从控制台复制代码。我想他是逐行运行代码，然后从控制台复制代码。