R: Извлечение данных из данных из анализа

Question

Я пытаюсь извлечь данные из фрейма данных для анализа.

heightweight <- function(person, health) { 
    ## Read in data 
    data <- read.csv("heightweight.csv", header = TRUE, 
        colClasses = "character") 
    ## Check that the outcomes are valid 
    measure = c("height", "weight") 
    if(health %in% measure == FALSE){ 
     stop("Valid inputs are height and weight") 
    } 
    ## Truncate the data matrix to only what columns are needed 
    data <- data[c(1, 5, 7)] 
    ## Rename columns 
    names(data)[1] <- "Name" 
    names(data)[2] <- "Height" 
    names(data)[3] <- "Weight" 
    ## Convert numeric columns to numeric 
    data[, 2] <- as.numeric(data[, 3]) 
    data[, 3] <- as.numeric(data[, 4]) 
    ## Convert NAs to 0 after coercion 
    data[is.na(data)] <- 0 
    ## Check that the name is valid 
    name <- data[, 1] 
    name <- unique(name) 
    if(person %in% name == FALSE){ 
     stop("Invalid person") 
    } 
    ## Return person with lowest height or weight 
    list <- data[data$name == person & data[health],] 
    outcomes <- list[, health] 
    minumum <- which.min(outcomes) 
    ## Min Rate 
    minimum[rowNum, ]$name 
} 

Проблема, которую я имею, что происходит с

list <- data[data$name == person & data[health],] 

То есть, я бег heightweight("Bob", "weight"), я получаю следующее сообщение

Error in matrix(unlist(value, recursive = FALSE, use.names = FALSE), nrow = nr, : 
    length of 'dimnames' [2] not equal to array extent 

Я гугл этого сообщения и проверил некоторые здесь, но не может определить, в чем проблема.

Answer 1

Если я что-то не хватает, если вам нужен только самый низкий вес и высоту для данного имени, последние три строки кода немного избыточен.

Вот простой способ получить минимальное измерение здоровья для данного человека:

min(data[data$name==person, "height"]) 

Первая часть выбирает только те строки данных, которые соответствуют этому человеку, он выступает в качестве индекса строки. Вторая часть после запятой выбирает только нужную переменную (столбец). После того, как вы выбрали нужные данные, вы будете искать минимум в этом подмножестве данных.

Пример для иллюстрации результата:

data<-data.frame(name=as.character(c(rep("carlos",2),rep("marta",3),rep("johny",2),"sara"))) 
set.seed(1) 
data$height <- rnorm(8,68,3) 
data$weight <- rnorm(8,160,10) 

Соответствующий кадр данных:

name height weight 
1 carlos 66.12064 165.7578 
2 carlos 68.55093 156.9461 
3 marta 65.49311 175.1178 
4 marta 72.78584 163.8984 
5 marta 68.98852 153.7876 
6 johny 65.53859 137.8530 
7 johny 69.46229 171.2493 
8 sara 70.21497 159.5507 

Допустим, мы хотим, чтобы минимальный вес для Marta:

person <- "marta" 
health <- "weight" 

Минимальный " вес "для" marta "есть,

min(data[data$name==person,health]) 

, которая дает желаемый результат:

[1] 153.7876 

Answer 2

Вот упрощенный аналог вашей функции:

heightweight <- function(person,health) { 
    data.set <- data.frame(names=rep(letters[1:5],each=3),height=171:185,weight=seq(95,81,by=-1)) 
    d1 <- data.set[data.set$name == person,] 
    d2 <- d1[d1[,health]==min(d1[,health]),] 
    d2[,c('names',health)]  
} 

Первая линия производит набор выборки данных. Вторая строка выбирает все записи для заданного person. Последняя строка находит запись, соответствующую минимальному значению health.

heightweight('b','height') 
# names height 
# 4  b 174