R 错误的If，Else语句

我总是得到错误：在If，else语句的“else”中出现意外的“else”

请帮助我两天以来一直在处理这个错误，我需要在明天之前完成我的论文

Isflorida <- function(data) {
  data <- filter(data,is.na(State)== FALSE)
  data$Isflorida <- vector(mode = "logical", length = nrow(data)) 
  for (i in 1:nrow(data)) { 
    if (data[i,]$State == "Florida") {
      data[i,]$Isflorida <- TRUE }
    else {data[i,]$Isflorida <- FALSE}}data}  

---

Isflorida不要在
}
之后添加
数据
，如果确实需要，请添加分号

Isflorida <- function(data) {
  data <- filter(data,is.na(State)== FALSE)
  data$Isflorida <- vector(mode = "logical", length = nrow(data)) 
  for (i in 1:nrow(data)) { 
    if (data[i,]$State == "Florida") {
      data[i,]$Isflorida <- TRUE } 
    else {data[i,]$Isflorida <- FALSE}}; data}

难道这还不够吗

data$IsFlorida <- ifelse(data$State=="Florida", TRUE, FALSE)

data$IsFlorida我想如果（data$State[I]=“Florida”）data$IsFlorida[I]我真的不明白你想要什么。如果您只是在寻找一个变量Isflorida，它是true还是FALSE对于惯用（也许更有效）代码，我建议您将
is.na（State）=FALSE
转换为
！is.na（State）
。顺便说一句，我同意之前的回答/评论，即可能有更简单的方法来完成您想要的任务（IIUC）。@akrun谢谢；）您可以将其缩短为
data$IsFlorida
data$IsFlorida <- ifelse(data$State=="Florida", TRUE, FALSE)