Не удалось создать петлю цикла в R

Question

Я пытаюсь найти среднюю цену для цен на автомобиль с задним приводом в предварительно заданном кадре данных 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) 

Answer 1

Вы не должны использовать петлю для всех для этого.

Это дает подмножество данных с трансмиссией «Задний»:

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

Это столбец «Цена» для этого подмножества данных:

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

Таким образом, это средняя цена для этого подмножества:

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

Все что вам нужно, это последняя строка кода.

Answer 2

Похоже, у вас есть скобка с обратной связью на первом цикле.

Текущий

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

Try:

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

Answer 3

Попробуйте исправляя свои несовпадающие фигурные скобки в качестве отправной точки. А также обязательно поставьте 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)