Сумма столбцов с одинаковыми именами

Question

у меня есть числовой вектор var с именами (выход из predict.cv.glmnet)

var<-c(5.74,0.00,0.15,0.00,0.04,0.00,0.00,0.00,1.81,0.00) 
names(var)<- cbind("(Intercept)","as.factor(holiday)1","as.factor(season)2","as.factor(season)3","as.factor(season)4","as.factor(weathersit)2", "as.factor(weathersit)3","windspeed","temp","hum") 

(Intercept) as.factor(holiday)1  as.factor(season)2  as.factor(season)3  as.factor(season)4  as.factor(weathersit)2 
    5.74    0.00     0.15      0.00     0.04     0.00 
as.factor(weathersit)3    windspeed     temp     hum 
      0.00      0.00      1.81     0.00 

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

"(Intercept)"  "as.factor(season)"   "temp" 

У меня также есть переменная с именами факторов fac доступны:

fac<-c("as.factor(holiday)","as.factor(season)","as.factor(weathersit)") 


"as.factor(holiday)" "as.factor(season)"  "as.factor(weathersit)" 

и подумывал совокупностей с похожим именем опуская их уровни и проверить, если сумма агрегированных факторов> 0, но я не могу идти о кодировании это.

Answer 1

Я играл с which и регулярными выражениями:

var<-c(5.74,0.00,0.15,0.00,0.04,0.00,0.00,0.00,1.81,0.00) 
names(var)<- cbind("(Intercept)","as.factor(holiday)1","as.factor(season)2","as.factor(season)3","as.factor(season)4","as.factor(weathersit)2", "as.factor(weathersit)3","windspeed","temp","hum") 

X <- names(var)[which(var!=0)] 
n <- grep("as[.]factor.*", X) 
X[n] <- gsub(")[0-9]+$", ")", X[n]) 

X <- unique(X) 
X 

#[1] "(Intercept)"  "as.factor(season)" "temp" 

which выбирает ненулевые компоненты. grep используется для определения индексов факторов. Затем gsub удаляет уровни факторов.