R 환경에서 첫 번째 행의 여러 데이터 프레임에 대해 colnames를 할당하는 방법

Question

벡터에서 모든 데이터 프레임을 나열하고 벡터 (list_all)에서 데이터 프레임을 호출하여 데이터 프레임에 대해 다른 연산을 수행합니다. 첫 번째 행을 사용하여 각 데이터 프레임에 colnames를 할당하려고합니다. 내가 선으로이 코드 줄을 실행하면

#table_1 
      V1    V2    V3    V4    V5 
1:  caffeine    ACHE   Adora1   ADORA1   Adora2a 
2:     7.25- 7.25 15.00- 44.00 44.00- 49.00  9.40- 48.10 

#table_2 
      V1  V2 
1: paraxanthine daf-12 
2:     NA 

#table_3 

      V1    V2    V3    V4    
1: theophylline   Adora1   ADORA1   Adora2a   
2:     0.70- 26.00 0.00- 20.00 1.31- 25.30 

list_all <- c("table_1","table_2","table_3") # this list was derived from previous code of 60 lines 
n_drugs <- 3 
drug_names <- c("caffeine","paraxanthine","theophylline") 
output_final <- matrix(ncol=n_drugs , nrow=1) 

for (t in 1:length(list_all)){ 
    output_final[t] <- paste(drug_names[t],"output_final", sep = "_") 
    names_all <- c() 
    names_all[t,] <- unlist(c(as.character(get(noquote(list_all[t]))[1,]))) #saving colnames in 'names_all' 
    names_all[t,1] <- c("drug_name")  # change first column name 
    assign(output_final[t],setnames(get(noquote(list_all[t])),colnames(get(noquote(list_all[t]))),names_all[t,])) 
    } 

작동하지만 연료 소모량을 나는 취득으로 오류를

"오류를 얻고 그 연료 소모량 실행할 때 (을 noquote (list_all [t])) : 객체 ' NA '을 (를) 찾을 수 없습니다. 도와주세요

Answer 1

위의 의견과 마찬가지로 데이터를 가져올 때이를 처리하는 것이 더 쉽습니다. read.table(..., header = TRUE). 어떻게 든 그것을 할 수없는 경우

그러나,이 솔루션은 당신을 위해 작동 할 수 있습니다

이

set_first_row_name <- function(X) { 
    X <- as.data.frame(X) 
    # X should be a data frame 
    names(X) <- X[1,] 
    X[-1,] 
} 
for (the_one_table in list_all) { 
    # list_all is your created name list of tables 
    # Do set_first_row_name to each table and assign them back respectively 
    assign(the_one_table, set_first_row_name(get(the_one_table))) 
}