在R中创建for循环时遇到问题

我试图在R预先指定的数据框Cars93中找到后轮驱动汽车的平均价格。这是我试过的。。。我得到一个意外的错误

library(MASS) # has Cars93 data

rearcar <- c()
for(train in 1:nrow(Cars93)){
   if(Cars93$DriveTrain[train] == Rear){
   rearcar <- c(rearcar, train)
   }
}

rearcarprice <- c()
for (train in rearcar){
    rearcarprice <- c(rearcarprice, Cars93[train,6])
}

mean(rearcarprice)

library（MASS）#具有Cars93数据
后车厢看起来在第一个for循环上有一个向后设置的支架

当前

for(train in 1:nrow(Cars93))
    }
    if(Cars93$DriveTrain[train] == Rear){
    rearcar <- c(rearcar, train)
    }}

for（列车进站1:nrow（Cars93））
}
如果（车辆93$动力传动系[传动系]==后部）{
后车厢看起来在第一个for循环上有一个向后设置的支架

当前

for(train in 1:nrow(Cars93))
    }
    if(Cars93$DriveTrain[train] == Rear){
    rearcar <- c(rearcar, train)
    }}

for（列车进站1:nrow（Cars93））
}
如果（车辆93$动力传动系[传动系]==后部）{
后车厢看起来在第一个for循环上有一个向后设置的支架

当前

for(train in 1:nrow(Cars93))
    }
    if(Cars93$DriveTrain[train] == Rear){
    rearcar <- c(rearcar, train)
    }}

for（列车进站1:nrow（Cars93））
}
如果（车辆93$动力传动系[传动系]==后部）{
后车厢看起来在第一个for循环上有一个向后设置的支架

当前

for(train in 1:nrow(Cars93))
    }
    if(Cars93$DriveTrain[train] == Rear){
    rearcar <- c(rearcar, train)
    }}

for（列车进站1:nrow（Cars93））
}
如果（车辆93$动力传动系[传动系]==后部）{
后车试着从纠正不匹配的花括号开始。同时确保将
Rear
放在引号中

library(MASS)
rearcar<-c()
for(train in 1:nrow(Cars93))
{
  if(Cars93$DriveTrain[train] == 'Rear'){
    rearcar <- c(rearcar, train)
  }
}
rearcarprice <- c()
for (train in rearcar) {
  rearcarprice <- c(rearcarprice, Cars93[train,6])
}
mean(rearcarprice)

库（MASS）
后车试着从纠正不匹配的花括号开始。同时确保将
Rear
放在引号中

library(MASS)
rearcar<-c()
for(train in 1:nrow(Cars93))
{
  if(Cars93$DriveTrain[train] == 'Rear'){
    rearcar <- c(rearcar, train)
  }
}
rearcarprice <- c()
for (train in rearcar) {
  rearcarprice <- c(rearcarprice, Cars93[train,6])
}
mean(rearcarprice)

库（MASS）
后车试着从纠正不匹配的花括号开始。同时确保将
Rear
放在引号中

library(MASS)
rearcar<-c()
for(train in 1:nrow(Cars93))
{
  if(Cars93$DriveTrain[train] == 'Rear'){
    rearcar <- c(rearcar, train)
  }
}
rearcarprice <- c()
for (train in rearcar) {
  rearcarprice <- c(rearcarprice, Cars93[train,6])
}
mean(rearcarprice)

库（MASS）
后车试着从纠正不匹配的花括号开始。同时确保将
Rear
放在引号中

library(MASS)
rearcar<-c()
for(train in 1:nrow(Cars93))
{
  if(Cars93$DriveTrain[train] == 'Rear'){
    rearcar <- c(rearcar, train)
  }
}
rearcarprice <- c()
for (train in rearcar) {
  rearcarprice <- c(rearcarprice, Cars93[train,6])
}
mean(rearcarprice)

库（MASS）
rearcar你根本不应该使用for循环

这给出了具有“后”传动系的数据子集：

Cars93[Cars93$DriveTrain == "Rear", ]

这是该数据子集的“价格”列：

Cars93[Cars93$DriveTrain == "Rear", "Price"]

因此，这是该子集的平均价格：

mean(Cars93[Cars93$DriveTrain == "Rear", "Price"])
# 28.95

您所需要的只是最后一行代码。
您不应该为此使用for循环

这给出了具有“后”传动系的数据子集：

Cars93[Cars93$DriveTrain == "Rear", ]

这是该数据子集的“价格”列：

Cars93[Cars93$DriveTrain == "Rear", "Price"]

因此，这是该子集的平均价格：

mean(Cars93[Cars93$DriveTrain == "Rear", "Price"])
# 28.95

您所需要的只是最后一行代码。
您不应该为此使用for循环

这给出了具有“后”传动系的数据子集：

Cars93[Cars93$DriveTrain == "Rear", ]

这是该数据子集的“价格”列：

Cars93[Cars93$DriveTrain == "Rear", "Price"]

因此，这是该子集的平均价格：

mean(Cars93[Cars93$DriveTrain == "Rear", "Price"])
# 28.95

您所需要的只是最后一行代码。
您不应该为此使用for循环

这给出了具有“后”传动系的数据子集：

Cars93[Cars93$DriveTrain == "Rear", ]

这是该数据子集的“价格”列：

Cars93[Cars93$DriveTrain == "Rear", "Price"]

因此，这是该子集的平均价格：

mean(Cars93[Cars93$DriveTrain == "Rear", "Price"])
# 28.95

你所需要的只是最后一行代码。
首先，你有不匹配的大括号。其次，你应该发布一个
Cars93
的示例数据集。当问一个你在哪里出错的问题时，要养成包含错误文本的习惯。你忘记了引号：
if（Cars93$DriveTrain[train]=“Rear”）
不要使用循环！对于这些问题，我倾向于使用
dplyr
，但我首选的基本解决方案是：
使用（Cars93，tapply（价格，传动系，平均值））
首先，你有不匹配的大括号。其次，你应该发布一个
Cars93
的示例数据集。当问一个你在哪里出错的问题时，要养成包含错误文本的习惯。你忘记了引号：
if（Cars93$DriveTrain[train]=“Rear”）
不要使用循环！对于这些问题，我倾向于使用
dplyr
，但我首选的基本解决方案是：
使用（Cars93，tapply（价格，传动系，平均值））
首先，你有不匹配的大括号。其次，你应该发布一个
Cars93
的示例数据集。当问一个你在哪里出错的问题时，要养成包含错误文本的习惯。你忘记了引号：
if（Cars93$DriveTrain[train]=“Rear”）
不要使用循环！对于这些问题，我倾向于使用
dplyr
，但我首选的基本解决方案是：
使用（Cars93，tapply（价格，传动系，平均值））
首先，你有不匹配的大括号。其次，你应该发布一个
Cars93
的示例数据集。当问一个你在哪里出错的问题时，要养成包含错误文本的习惯。你忘记了引号：
if（Cars93$DriveTrain[train]=“Rear”）
不要使用循环！对于这些问题，我倾向于使用
dplyr
，但我首选的基本解决方案是：
使用（Cars93，tapply（价格，传动系，平均值））
谢谢，在我发布问题后立即意识到谢谢，在我发布问题后立即意识到谢谢，在我发布问题后立即意识到谢谢，在我发布问题后立即意识到