ou... ate' usando o codigo q vc tem, nao e' suficiente substituir:
tm0411 = read.csv2("C:\\&ano\\Dados &mes &ano.csv")
por
tm0411 = read.csv2(paste('C:/', ano, '/Dados ', mes, ' ', ano, '.csv', sep=''))
imagino q deva ser mais simples para o workflow q vc tem...
b