Удаление строк в кадре данных с помощью функции ПОЛУЧИТЬ

Question

Предположим, я следующий кадр данных:

mydataframe <- data.frame(ID=c(1,2,NA,4,5,NA),score=11:16) 

Я хочу, чтобы получить следующий кадр данных в конце:

mydataframe[-which(is.na(mydataframe$ID)),] 

мне нужно сделать этот вид (и другие подобные манипуляции) со многими другими кадрами данных. Итак, я решил присвоить имя mydataframe и переменную, представляющую интерес.

dbname <- "mydataframe" 
varname <- "ID" 
attach(get(dbname)) 

У меня есть ошибка в следующей строке, понятно.

get(dbname) <- get(dbname)[-which(is.na(get(varname))),] 
detach(get(dbname)) 

Как это решить? (Я не хочу назначать новый фрейм данных, хотя сейчас это кажется только решением. Я буду использовать «dbname» много раз после этого.) Спасибо заранее.

Answer 1

Там нет get<- функции, и нет get(colname) функции (так как COLNAMES не являются объектами первого класса), но есть assign() функции:

assign(dbname, get(dbname)[!is.na(get(dbname)[varname]), ]) 

Вы также не хотите использовать -which(.). Это сработало бы здесь, так как были некоторые соответствия этому условию. Тем не менее, это вас укусит, когда не будет никаких строк, которые соответствуют, и вместо того, чтобы ничего не возвращать, как он должен, он вернет все, начиная с vec[numeric(0)] == vec. Используйте только «which» для «позитивного» выбора.

Answer 2

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

mydataframe <- data.frame(ID=c(1,2,NA,4,5,NA),score=11:16) 

#define target dataframe and varname 
dbname <- "mydataframe" 
varname <- "ID" 

tmp.df <- get(dbname) #get df and give it a temporary name 
col.focus <- which(colnames(tmp.df) == varname) #define the column of focus 
tmp.df <- tmp.df[which(!is.na(tmp.df[,col.focus])),] #cut out the subset of the df where the column of focus is not NA. 

#Result 
    ID score 
1 1 11 
2 2 12 
4 4 14 
5 5 15 

Answer 3

Как предлагает @Dason, для такого рода работ создаются списки.

т.д .:

# make a list with all your data.frames in it 
# (just repeating the one data.frame 3x for this example) 
alldfs <- list(mydataframe,mydataframe,mydataframe) 

# apply your function to all the data.frames in the list 
# have replaced original function in line with @DWin and @flodel's comments 
# pointing out issues with using -which(...) 
lapply(alldfs, function(x) x[!is.na(x$ID),]) 

Answer 4

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

Что-то вроде этого должно соответствовать счету.

stripNAs <- function(df, var) df[!is.na(df[[var]]), ] 

mydataframe <- stripNAs(mydataframe, "ID") 
cars <- stripNAs(cars, "speed")