LO ENCONTRÉEEEEEEEEEEEEEEEEEEEEEE
al cabo de un buen rato... (.-.)
E aqui l'script: (en catalajajaja)
######################################## Via cbind #######################
#El que es fa es fer un df de la mitja de cada municipi (tapply), llavors s'ajunta a CB (cbind).
#llavors es canvia el nom de les columnes pel que ja definit Nomcol.
CB<-c()
for (i in 3:(length(Nomcol)+2)) {
print(Nomcol[i-2])
nombr<-tapply(((Nitrats_bo[,i])), (list=(Nitrats_bo$Municipi)), mean, na.rm=TRUE)
for (e in 1:length(nombr)){
nombr[e]<-gsub("[[:punct:]]", ",", nombr[e])
}
CB<-cbind(CB, nombr)
colnames(CB)[i-2]=Nomcol[i-2]
print(i)
nombr<-c()
}
Municipis<-levels(Nitrats_bo$Municipi)
CB<-cbind(CB,Municipis)
CB
colnames(CB)
write.csv2(CB, file="Mean69.csv", row.names = FALSE)
?write.csv2
?cbind()
Saludos ;)