Primeiro , você pode usar a indexação direta (com vetores booleanos) em vez de acessar novamente os nomes das colunas se estiver trabalhando com o mesmo quadro de dados; será mais seguro, como indicado por Ista, e mais rápido para escrever e executar. Então, o que você só precisará é:
var.out.bool <- !names(data) %in% c("iden", "name", "x_serv", "m_serv")
e, em seguida, basta reatribuir dados:
data <- data[,var.out.bool] # or...
data <- data[,var.out.bool, drop = FALSE] # You will need this option to avoid the conversion to an atomic vector if there is only one column left
Segundo , mais rápido de escrever, você pode atribuir NULL diretamente às colunas que deseja remover:
data[c("iden", "name", "x_serv", "m_serv")] <- list(NULL) # You need list() to respect the target structure.
Por fim , você pode usar o subconjunto (), mas ele não pode realmente ser usado no código (mesmo o arquivo de ajuda avisa). Especificamente, um problema para mim é que, se você quiser usar diretamente o recurso drop de susbset (), precisará escrever sem aspas a expressão correspondente aos nomes das colunas:
subset( data, select = -c("iden", "name", "x_serv", "m_serv") ) # WILL NOT WORK
subset( data, select = -c(iden, name, x_serv, m_serv) ) # WILL
Como bônus , aqui está uma pequena referência das diferentes opções, que mostra claramente que o subconjunto é o mais lento e que o primeiro método de reatribuição é o mais rápido:
re_assign(dtest, drop_vec) 46.719 52.5655 54.6460 59.0400 1347.331
null_assign(dtest, drop_vec) 74.593 83.0585 86.2025 94.0035 1476.150
subset(dtest, select = !names(dtest) %in% drop_vec) 106.280 115.4810 120.3435 131.4665 65133.780
subset(dtest, select = names(dtest)[!names(dtest) %in% drop_vec]) 108.611 119.4830 124.0865 135.4270 1599.577
subset(dtest, select = -c(x, y)) 102.026 111.2680 115.7035 126.2320 1484.174
O código está abaixo:
dtest <- data.frame(x=1:5, y=2:6, z = 3:7)
drop_vec <- c("x", "y")
null_assign <- function(df, names) {
df[names] <- list(NULL)
df
}
re_assign <- function(df, drop) {
df <- df [, ! names(df) %in% drop, drop = FALSE]
df
}
res <- microbenchmark(
re_assign(dtest,drop_vec),
null_assign(dtest,drop_vec),
subset(dtest, select = ! names(dtest) %in% drop_vec),
subset(dtest, select = names(dtest)[! names(dtest) %in% drop_vec]),
subset(dtest, select = -c(x, y) ),
times=5000)
plt <- ggplot2::qplot(y=time, data=res[res$time < 1000000,], colour=expr)
plt <- plt + ggplot2::scale_y_log10() +
ggplot2::labs(colour = "expression") +
ggplot2::scale_color_discrete(labels = c("re_assign", "null_assign", "subset_bool", "subset_names", "subset_drop")) +
ggplot2::theme_bw(base_size=16)
print(plt)
subset(data, select=c(...))
ajuda no meu caso para deixar cair vars. a questão, porém, era principalmente sobre apaste("data$",var.out[i],sep="")
parte para acessar colunas de interesse dentro do loop. como colar ou de alguma forma compor um nome de coluna? Obrigado a todos por sua atenção e sua ajuda