Как разместить столбцы из одного кадра данных в другой? Мой метод возвращает ошибки

Question

rankhospital <- function(state = factor(), outcome = factor(), num = factor()) {
        ##read data
        caremeasures <- data.frame(read.csv("D:/data science specialization/course stuff/rprogw3/outcome-of-care-measures.csv", na.strings = "NA", stringsAsFactors = FALSE))
        
        ##vector that directs argument to corresponding column
        outcomes <- c("heart attack" = 11, "heart failiure" = 17, "pneumonia" = 23)
        
        
        ##check if state and outcome are valid
        if (!(state %in% caremeasures$State)){
                stop("Invalid state")
        }
        else if (!(outcome %in% outcomes)){
                stop("Invalid outcome")
        }
        
        ##separating useful data from caremeasures dataframe
        requiredData <- caremeasures[caremeasures[,7] == state, c(2, outcomes[outcome])]

Мне нужно создать функцию, которая принимает три аргумента: «состояние», «исход» (которые могут быть «сердечный приступ», «сердечная недостаточность» или «пневмония») , и ранг "num". Я создал переменную подмножества, чтобы использовать для получения данных из файла .csv, взятых в качестве входных данных, и взять необходимый столбец в переменной, которую я создал, но не могу этого сделать. Куда я иду неправильно?