Обработка данных с помощью динамических имен для цикла

Question

Я обрабатываю некоторые .xlsx, которые называются как time1_drug1, time1_drug2, до tiume6_drug5 (всего 30 файлов).Я хочу загрузить эти xlsx в R и назвать их для набора данных, таких как t1d1, t2d2.Спасибо за @ akash87, его коды решили эту проблему.

Новая проблема заключается в том, что я хочу переименовать столбцы с именем "pERK" "NGFR" "AXL", а затем создать четвертый столбец для каждогоданные с именем name.

%%%these are code I have now

for(i in 1:6){
for(j in 1:5){
assign(paste0('t', i, '_', 'd', j), read.xlsx(paste0("/Users/pathway/dataset/time_",i,"_drug",j,".xlsx"), 1))
}
}

%%%%%%%%%%%%%for a single data, I could use which command, but I don't know what to do in a for loop.

pERKlimit=7
NGFRlimit=3.45
AXLlimit=3.6
names(data11)=c("pERK", "NGFR","AXL")
data11$Discription[which(data11$NGFR>=NGFRlimit&data11$AXL>=AXLlimit)]="NFGR High&AXL High"
data11$Discription[which(data11$NGFR>=NGFRlimit&data11$AXL<AXLlimit)]="NFGR High&AXL Low"
data11$Discription[which(data11$NGFR<NGFRlimit&data11$AXL<AXLlimit)]="NFGR Low&AXL Low"
data11$Discription[which(data11$NGFR<NGFRlimit&data11$AXL>=AXLlimit)]="NFGR Low&AXL High"

Я ожидаю использовать цикл for для решения проблемы переименования столбцов и создания четвертого столбца.