Análisis para la fecha 2013-03-23

Leemos la información de la hoja de cálculo de contenedores visitados, después de transformar la codificación del fichero ( iconv -f “windows-1252” -t “UTF-8” 2012.csv > 2012_utf8.csv ) . Después buscamos las matrículas de los diferentes vehículos y determinamos características básicas de la actividad de los mismos:

#
require(zoo)

## Loading required package: zoo
## 
## Attaching package: 'zoo'
## 
## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric

require(maptools)

## Loading required package: maptools
## Loading required package: sp
## Checking rgeos availability: FALSE
##      Note: when rgeos is not available, polygon geometry     computations in maptools depend on gpclib,
##      which has a restricted licence. It is disabled by default;
##      to enable gpclib, type gpclibPermit()

require(rgdal)

## Loading required package: rgdal
## rgdal: version: 0.9-1, (SVN revision 518)
## Geospatial Data Abstraction Library extensions to R successfully loaded
## Loaded GDAL runtime: GDAL 1.10.1, released 2013/08/26
## Path to GDAL shared files: /usr/share/gdal/1.10
## Loaded PROJ.4 runtime: Rel. 4.8.0, 6 March 2012, [PJ_VERSION: 480]
## Path to PROJ.4 shared files: (autodetected)

require(RCurl)

## Loading required package: RCurl
## Loading required package: bitops

require(rjson)

## Loading required package: rjson

require(xtable)

## Loading required package: xtable
## 
## Attaching package: 'xtable'
## 
## The following object is masked from 'package:maptools':
## 
##     label

require(plyr)

## Loading required package: plyr

#
divide=function(idx,mat){
  return(mat[idx[1]:idx[2],])
}
duracion=function(datos,unit="hours"){
  return(as.numeric(difftime(datos$Fecha[length(datos$Fecha)],datos$Fecha[1],units=unit)))
}
calcula_rutas=function(matr,numh,datos) {
  ctruck01=datos[datos$Identificador == matr,-c(1,7,10,11,14,15,19:25,34,ncol(datos))]
  ctruck01$Fecha=strptime(ctruck01$"Fecha.Hora",format="%d/%m/%Y %H:%M:%S")
  # Comienza ruta si hay más de 5h de parada
  idx  =which(diff(ctruck01$Fecha)>numh*3600)
  segm = data.frame(orig =c(1,idx+1), fin  =c(idx,(idx[length(idx)]+1)))
  rutas=apply(segm,1,divide,ctruck01)
  dur = unlist(lapply(rutas,duracion))
  numc= unlist(lapply(rutas,nrow))
  return(list(numc=numc, dur=dur, rutas=rutas,
        sep=c(0,difftime(ctruck01$Fecha[idx+1],ctruck01$Fecha[idx],units="hours")),
        tipor=lapply(rutas,function(x){return(unique(sort(x$"Residuo")))})))
}
#
ocupa_conte=function(i,datos,amp=1.08) {
  conte01=datos[datos$Tag==i,c("Fecha.Hora","Residuo","Identificador","Longitud.Real",
                               "Latitud.Real","Peso..kgs.","Incidencia")]
  conte01$Fecha=strptime(conte01$"Fecha.Hora",format="%d/%m/%Y %H:%M:%S")
  if ( nrow(conte01) < 3) {
      return(list(tag=i,recog=conte01[,-1],rate=rep(0,nrow(conte01))))
  }
  pesos=rollapply(conte01$"Peso..kgs."[-1],3,mean,align="center",partial=TRUE)*amp
  ratios=pesos/as.numeric(difftime(conte01$Fecha[-1],
                    conte01$Fecha[-length(conte01$Fecha)],units="hours"))
  fech=conte01$Fecha[-length(conte01$Fecha)]
  rate = data.frame(t=fech,kh=ratios)
  return(list(tag=i,recog=conte01[,-1],rate=rate))
}
#
setwd("~/git/Daorje/")
if ( file.exists("utf8.RData")) {
  load(file="utf8.RData")
} else {
  lf=list.files(path="~/git/Daorje",pattern="*_utf8.csv",full.names=TRUE)
  for (i in lf) {
    d0=read.csv(file=i,header=TRUE, sep=";", stringsAsFactors=FALSE,fileEncoding="UTF-8") 
    if (exists("dd")) {
      dd=rbind(dd,d0)
    } else {
      dd=d0
    }
  }
  rm(d0,lf,i)
  dd[,"Recogida"]=as.character(strptime(dd$"Fecha.Hora",format="%d/%m/%Y %H:%M:%S"))
  matrs =unique(sort(dd$Identificador))  
  tags  =unique(sort(dd$Tag))
  comb=c("1483 HGK","2064 FLW","4974 DLW","9799 HCH")  
  tipoc=rep("NORMAL",length(matrs))
  tipoc[substr(matrs,1,8) %in% comb] = "COMBINADO"
  #
  segmentos=list()
  for(i in matrs) {
    segmentos[[i]] = calcula_rutas(i,2,dd)
  }
  conten=list()
  for (i in tags) {
    conten[[i]] = ocupa_conte(i,dd)
  }
  carga=data.frame(Residuo=c("ENVASES","PAPEL","VIDRIO"),
                Peso=c(1000,300,800))
  save(dd,tags,matrs,comb,segmentos,tipoc,conten,carga,file="utf8.RData")
}

Veamos algunos resultados del primer análisis previo.

	vehiculos	tipo	usos
1	0422 CSG - 16	NORMAL	225
2	1219 GFH - 21	NORMAL	2440
3	1483 HGK - 19	COMBINADO	1872
4	2064 FLW - 18	COMBINADO	1793
5	2503 FVB - 13	NORMAL	1028
6	2848-GFN - 19	NORMAL	194
7	2908 HFJ - 8	NORMAL	1432
8	3704-HCB - 24	NORMAL	151
9	3954 DLR - 3	NORMAL	2149
10	3986 DLR - 4	NORMAL	2293
11	4019 DLR - 2	NORMAL	1532
12	4589 BWB - 9	NORMAL	1188
13	4764 BMC - 8	NORMAL	288
14	4974 DLW - 17	COMBINADO	1763
15	5068 HJS - 11	NORMAL	1326
16	5224 BBF - 6	NORMAL	262
17	5225 BBF - 7	NORMAL	235
18	5226 BBF - 12	NORMAL	289
19	5400 HDK - 1	NORMAL	1705
20	6531 GLS - 22	NORMAL	1796
21	6965 HGR - 5	NORMAL	1569
22	7106 HHY - 10	NORMAL	1124
23	7246 FKK - 14	NORMAL	2212
24	7992 FRV - 20	NORMAL	2338
25	8012 HCJ - 23	NORMAL	1275
26	8191 HHJ - 6	NORMAL	1656
27	8434 HJG - 7	NORMAL	1595
28	8915 BLP - 1	NORMAL	280
29	8974 BBD - 25	NORMAL	54
30	8974 BBD - 5	NORMAL	317
31	9270 CHZ - 10	NORMAL	5
32	9799 HCH - 16	COMBINADO	1694
33	O 8469 CG - 11	NORMAL	218

Analicemos ahora la estimación de carga para un contenedor en una fecha dada: 2013-03-23

# 
# To be used like lapply function: icon item from conten; f targeted date; 
#                 nmoff = Number of months without collecting box => out of order
estcon=function(icon,f,nmoff=4) {
  pf     = as.POSIXlt(f)
  pf$hour= 7
  res    = icon$recog[1,"Residuo"]  
  if (is.null(nrow(icon$rate))) {
    return(data.frame(numh=0,val=0,fkg=0,tag=icon$tag,tres=res))
  }  
  rates  = icon$rate[pf>icon$rate$t,]
  if (nrow(rates) == 0) {
    return(data.frame(numh=0,val=0,fkg=0,tag=icon$tag,tres=res))    
  }
  rate   = rates[nrow(rates),]
  numh   = as.numeric(difftime(as.POSIXlt(pf),rate[1,1],units="hours"))
  if (numh > (nmoff * 720 )) {
    return(data.frame(numh=numh,val=0,fkg=0,tag=icon$tag,tres=res))
  }
  weights=c(0.3,0.25,0.2,0.15,0.1)
  setsr  =matrix(0,ncol=2,nrow=5)
  for (j in 1:5) {
    qf=pf
    qf$year=pf$year-(j-1)
    rates=icon$rate[qf>icon$rate$t,]
    rate=rates[nrow(rates),]   
    setsr[j,1]=qf$year + 1900
    setsr[j,2]=as.numeric(rate[1,2])
  }
  val=sum(setsr[,2]*weights,na.rm=TRUE)
  return(data.frame(numh=numh,val=val,fkg=val*numh,tag=icon$tag,tres=res))
}
realcon=function(icon,f) {
  pf     = as.POSIXlt(f)
  pf$hour= 7  
  rateold= icon$recog[pf > icon$recog$Fecha,]   
  rates  = icon$recog[pf < icon$recog$Fecha,]  
  if (nrow(rates) == 0 || nrow(rateold) == 0 ) {
    return(data.frame(numdt=0,numdh=0,val=0,rkg=0,tag=icon$tag))    
  }
  ltot = as.numeric(difftime(rates[1,"Fecha"],rateold[nrow(rateold),"Fecha"], units="hours"))
  lres = as.numeric(difftime(rates[1,"Fecha"],as.POSIXlt(pf), units="hours"))
  peso = rates[1,"Peso..kgs."]
  return(data.frame(numdt=ltot,numdh=lres,rval=peso/ltot,rkg=peso,tag=icon$tag))    
}
#
econ = ldply(conten,estcon,fechaobj)
rcon = ldply(conten,realcon,fechaobj)
tcon = merge(econ[,-1],rcon[,-1],by="tag")
vcon = tcon[tcon$fkg > 0 & tcon$numdt < 2000 & tcon$numdt > 0,]
#
vcon[vcon$tres=="Envases mezclados","tres"]="ENVASES"
vcon[vcon$tres=="Papel","tres"]="PAPEL"
vcon[vcon$tres=="Vidrio","tres"]="VIDRIO"
vcon=vcon[,-which(colnames(vcon)=="val.y")]
vcon[,"trem"]=vcon[,"numdh"]/vcon[,"numdt"]
vcon[,"rkgnow"]=vcon[,"rkg"]*vcon[,"trem"]
vcon[,"llenado"]=vcon[,"rkg"]/sapply(vcon$tres,
              function(x,cg){return(cg[cg$Residuo==as.character(x),2])},carga)
vcon[,"llenadonow"]=vcon[,"rkgnow"]/sapply(vcon$tres,
              function(x,cg){return(cg[cg$Residuo==as.character(x),2])},carga)
vcon[,"llenadof"]=vcon[,"fkg"]/sapply(vcon$tres,
              function(x,cg){return(cg[cg$Residuo==as.character(x),2])},carga)

#

Ahora echamos un vistazo a los resultados para los 8703 contendores activos el 2013-03-23

Se pinta la estructura del error de estimación frente a como de cerca o lejos está la recogida

# 
plot(vcon[,"llenadof"]-vcon[,"llenadonow"],vcon[,"trem"],type="p")

Se pinta ahora, dado que no hay una gran significación, la estructura del error de estimación:

Se mira ahora el grado de llenado en la recogida efectiva efectuada sobre el máximo por tipo de residuo:

# 
hist(vcon[,"llenado"],breaks=120)

A modo de ejemplo, el día 2013-03-23 se recogieron de modo efectivo 544 contenedores con una estructura de llenado:

# 
tgshoy=dd[dd$Recogida==fechaobj,"Tag"]
hist(vcon[vcon$tag %in% tgshoy,"llenado"],breaks=120)

Si se hubiese aplicado la estimación de llenado superior a un 60% del máximo se hubiesen recogido 314, 14 contenedores y la estructura de llenado estimada sería:

# 
hist(vcon[vcon$llenadof > 0.6,"llenadof"],breaks=120,xlim=c(0,1.1))

Vamos a escribir el fichero KML de cada secuencia de contenedores. Para los que se han recogido de modo efectivo ese día:

# 
pesar=function(tg,dcon,fecha){
  res=toupper(dcon[[tg]]$recog[1,"Residuo"])
  if (res=="ENVASES MEZCLADOS") res="ENVASES"
  pes=sum(dcon[[tg]]$recog[abs(difftime(dcon[[tg]]$recog$Fecha,fecha,units="days")) < 1. & 
                                as.Date(dcon[[tg]]$recog$Fecha) >= fecha,"Peso..kgs."])
  return(c(tg,res,pes))
}
#
tgshoy=dd[dd$Recogida==fechaobj,"Tag"]
recog=ldply(.data=tgshoy,.fun=pesar,conten,fechaobj)

print(xtable(recog),type="html")

	V1	V2	V3
1	657F271D12005F30	PAPEL	40
2	6532271D5F004B30	ENVASES	93
3	6517273C5B000530	ENVASES	38
4	6501271869005030	ENVASES	59
5	6509273B42004C30	PAPEL	63
6	6511272243003430	ENVASES	226
7	6561270E1F005D30	ENVASES	42
8	6556271D3B002730	ENVASES	113
9	655B273318001A30	PAPEL	39
10	6518272E46004330	ENVASES	25
11	6521272E7F001B30	ENVASES	122
12	657C270509003E30	ENVASES	191
13	65C02709B9003030	PAPEL	22
14	6573270506003B30	ENVASES	141
15	1001000000001441	PAPEL	51
16	657927050C004130	ENVASES	201
17	6569270E17005530	ENVASES	37
18	657927050C004130	ENVASES	201
19	654C270E32000F30	ENVASES	22
20	654F270E31000E30	PAPEL	18
21	65B1270ECF004B30	PAPEL	18
22	65CF2709B6002D30	PAPEL	95
23	65CE2709B7002E30	ENVASES	0
24	6506273B4D005730	PAPEL	15
25	65962721C7005630	PAPEL	43
26	6522271D4F003B30	PAPEL	40
27	6555273C19002430	ENVASES	30
28	653E270E40001D30	ENVASES	18
29	653627296F000630	PAPEL	39
30	65DC270EA2001E30	ENVASES	26
31	1001000000001372	PAPEL	32
32	6547272E19001630	ENVASES	35
33	1001000000001603	ENVASES	383
34	65BE2705CB003E30	ENVASES	166
35	6513272447003A30	ENVASES	85
36	65EC272BB7005030	ENVASES	138
37	1000000000001143	ENVASES	147
38	6559271D34002030	ENVASES	63
39	65F8273CB4005E30	ENVASES	36
40	65962724C2005430	ENVASES	69
41	655E27331D001F30	PAPEL	0
42	659B272BC0005930	ENVASES	110
43	657F27333C003E30	PAPEL	38
44	652327386B001130	ENVASES	88
45	65AB270ED5005130	ENVASES	60
46	6514272246003730	ENVASES	223
47	6543270C3F001A30	ENVASES	104
48	6556270D2B000730	ENVASES	45
49	65D7272A8D002530	ENVASES	154
50	65C32708BB003130	ENVASES	119
51	655A273C16002130	ENVASES	104
52	1000000000000097	ENVASES	138
53	65E0272BBB005430	ENVASES	104
54	6514272246003730	ENVASES	223
55	651727385F000530	ENVASES	160
56	6509272158004830	ENVASES	107
57	6506271462004530	ENVASES	31
58	6538270C44001F30	ENVASES	135
59	65C72708BF003530	ENVASES	126
60	6550270E2E000B30	ENVASES	26
61	6553270E2D000A30	ENVASES	44
62	1001000000001444	ENVASES	35
63	65C42709BD003430	ENVASES	34
64	655F270E21005F30	ENVASES	35
65	6564272E3A003730	ENVASES	52
66	1001000000001449	ENVASES	44
67	651D273558005C30	ENVASES	46
68	6560272E3E003B30	ENVASES	58
69	6569272E37003430	ENVASES	24
70	65BE270DC3003E30	ENVASES	17
71	65BA2709C3003A30	ENVASES	32
72	65B7270DCA004530	ENVASES	71
73	65B1270DCC004730	ENVASES	7
74	1000000000003591	PAPEL	19
75	65F62738BE000330	ENVASES	37
76	6503270F7C005A30	ENVASES	47
77	65B92709C0003730	ENVASES	31
78	6514272642003730	PAPEL	48
79	6509270178004830	ENVASES	34
80	6519272B42003C30	PAPEL	31
81	656F272E31002E30	ENVASES	7
82	1000000000004713	PAPEL	34
83	1001000000001412	ENVASES	47
84	65D527298C002330	PAPEL	33
85	6571272322001430	PAPEL	19
86	65BC270EC2003E30	ENVASES	39
87	6534273B7F002830	PAPEL	29
88	6545273E0B001830	PAPEL	58
89	65AE270ED0004C30	ENVASES	25
90	65952702E7005730	PAPEL	27
91	6571272E2F002C30	ENVASES	31
92	65C82719A1002830	PAPEL	37
93	6525273B6E001730	PAPEL	9
94	6540270E3E001B30	ENVASES	51
95	655C273A16001F30	PAPEL	176
96	653927327B001B30	PAPEL	30
97	6540273B0B001530	PAPEL	51
98	650B270C77005230	ENVASES	22
99	65F0270282005330	PAPEL	33
100	65982702EA005A30	PAPEL	39
101	1001000000001968	ENVASES	26
102	656C27322E002F30	PAPEL	22
103	1001000000001184	PAPEL	41
104	653F271D52003E30	ENVASES	46
105	655C27361A001F30	PAPEL	36
106	65FC2731BD005C30	PAPEL	26
107	654B272E15001230	ENVASES	54
108	654327291A001230	PAPEL	18
109	652E273866000C30	PAPEL	29
110	6529273168000730	PAPEL	22
111	652D27217C000B30	PAPEL	286
112	1000000000001272	PAPEL	614
113	65842702F6000530	PAPEL	59
114	653D271D50003C30	PAPEL	46
115	1000000000020007	PAPEL	108
116	653D271D50003C30	PAPEL	46
117	658B2702F9000830	PAPEL	32
118	1001000000001446	PAPEL	41
119	653427094D002530	ENVASES	15
120	1000000000020094	PAPEL	29
121	656D272A37003030	ENVASES	21
122	6571270302003530	PAPEL	99
123	1000000000005400	PAPEL	21
124	6533272A69000130	ENVASES	11
125	65D42707A3001830	PAPEL	9
126	1000000000004701	PAPEL	46
127	65DF273798003D30	ENVASES	39
128	656927031A004D30	PAPEL	112
129	650C272A56004F30	ENVASES	61
130	65AC2730EC002930	PAPEL	31
131	6565273B2E003830	PAPEL	0
132	6531270746001C30	PAPEL	26
133	652A270F55003330	ENVASES	19
134	650D272B56005030	ENVASES	27
135	65AE271BC5004E30	PAPEL	26
136	6547270C3B001630	PAPEL	78
137	65F1270F8E000B30	ENVASES	0
138	6524273763000830	PAPEL	24
139	65EF270F90000D30	ENVASES	25
140	6547270C3B001630	PAPEL	78
141	6562270311004430	PAPEL	185
142	65F7272BAC004530	ENVASES	28
143	6536272A6C000430	ENVASES	19
144	65C7273B8C003530	PAPEL	28
145	658D272ED3000E30	ENVASES	44
146	6567270314004730	PAPEL	26
147	1000000000003109	ENVASES	30
148	65F72731B6005530	PAPEL	20
149	65942724C0005230	ENVASES	28
150	6536273B7D002630	PAPEL	40
151	65DC273B97004030	PAPEL	150
152	652827326A000A30	ENVASES	43
153	6567272235002630	ENVASES	12
154	1001000000000890	PAPEL	42
155	65DC273B97004030	PAPEL	150
156	65DE272789001E30	ENVASES	35
157	6597272BCC000430	PAPEL	25
158	657827030B003E30	PAPEL	29
159	657C27272B002130	ENVASES	39
160	65DF2704AB001D30	ENVASES	67
161	6561270514004930	PAPEL	37
162	65B1271FDE000A30	ENVASES	44
163	655E270729006030	PAPEL	86
164	1000000000003322	PAPEL	15
165	654D270439000C30	ENVASES	18
166	6534272460005330	ENVASES	30
167	6531273776001B30	PAPEL	41
168	65F12737B6005B30	PAPEL	55
169	65C22704B6002830	ENVASES	47
170	65F22725A7003A30	PAPEL	32
171	656E27031D005030	PAPEL	32
172	655827321A001B30	PAPEL	14
173	659D272AC7005F30	ENVASES	54
174	6542270735000B30	PAPEL	19
175	656A273228002930	ENVASES	20
176	6503273B48005230	PAPEL	187
177	65F92738B1005730	ENVASES	36
178	6507273B4C005630	PAPEL	14
179	6561273726002C30	PAPEL	20
180	6551273213001430	ENVASES	8
181	65F92735BC005F30	ENVASES	54
182	655F27321D001E30	PAPEL	25
183	651927375E000330	PAPEL	41
184	65BC2704C8003A30	ENVASES	34
185	6562271E0C005A30	PAPEL	11
186	6570270707003E30	PAPEL	32
187	1000000000002385	ENVASES	15
188	6531272263005430	ENVASES	35
189	656927322B002C30	PAPEL	23
190	1000000000003343	PAPEL	44
191	65B22704C6003830	ENVASES	62
192	1000000000004698	PAPEL	33
193	65DE270AA4001C30	PAPEL	0
194	1000000000004698	PAPEL	33
195	6504272450004330	ENVASES	25
196	65F7271097001530	PAPEL	6
197	6557272007005730	PAPEL	18
198	65CB2704BF003130	ENVASES	48
199	653B27377C002130	PAPEL	18
200	65CF270AB5002D30	PAPEL	45
201	6535272461005430	ENVASES	51
202	6564270713004A30	PAPEL	21
203	65C82710A8002630	PAPEL	63
204	1001000000001931	ENVASES	37
205	65EC2737AB005030	PAPEL	104
206	659C272BC7006030	ENVASES	38
207	655E272F01006030	PAPEL	38
208	6507271E69005630	PAPEL	38
209	6537272463005630	ENVASES	49
210	6567273225002630	ENVASES	5
211	1000000000000051	PAPEL	34
212	655927052C000030	ENVASES	48
213	65AF2727F8002C30	ENVASES	28
214	6502271E6C005930	PAPEL	93
215	655F27052A005F30	ENVASES	55
216	1000000000011037	PAPEL	0
217	65A12727F6002A30	PAPEL	57
218	1000000000000047	PAPEL	49
219	65BB2704CF004130	ENVASES	62
220	1000000000000047	PAPEL	49
221	655F27311E001E30	PAPEL	35
222	650E27136D004F30	PAPEL	67
223	659C2705E9005C30	ENVASES	28
224	1001000000001183	ENVASES	27
225	6555270124005530	PAPEL	23
226	65A62703D5004630	ENVASES	39
227	6549272019000830	PAPEL	43
228	65C7272196002530	PAPEL	29
229	65BD2738F5003A30	ENVASES	14
230	659B2705EE000030	ENVASES	35
231	6558273B13001D30	PAPEL	206
232	65C0273181002030	PAPEL	19
233	65A02738E8002D30	ENVASES	0
234	1000000000004691	PAPEL	0
235	6566273B2D003730	PAPEL	22
236	659F270AE5005D30	ENVASES	22
237	6533272261005230	ENVASES	106
238	1000000000003367	PAPEL	23
239	658D2720DD000A30	PAPEL	69
240	6533272261005230	ENVASES	106
241	1000000000004693	PAPEL	22
242	1001000000001927	ENVASES	32
243	65812702F3000230	PAPEL	37
244	1000000000003329	PAPEL	14
245	655C27260A006030	PAPEL	10
246	6550273B1B002530	PAPEL	0
247	651A272F45004330	ENVASES	29
248	65A1270ADB005330	ENVASES	9
249	65E4273BAF005830	PAPEL	36
250	65942737D3001730	PAPEL	35
251	6547270631000630	ENVASES	38
252	6564273024002330	PAPEL	212
253	655A27371D002330	PAPEL	25
254	6517273B5C000530	PAPEL	24
255	651927224B003C30	ENVASES	34
256	657D273B36004030	PAPEL	34
257	657C270408003C30	PAPEL	34
258	1000000000005141	ENVASES	15
259	6570273232003330	ENVASES	17
260	1001000000001670	ENVASES	55
261	1001000000000038	PAPEL	14
262	652E273668000C30	PAPEL	35
263	65842707F3000730	ENVASES	29
264	1000000000003908	PAPEL	37
265	65F02737B7005C30	PAPEL	20
266	65812707F6000A30	ENVASES	55
267	651C270A66003F30	ENVASES	10
268	658E270CF2000B30	PAPEL	57
269	65942707E3005830	ENVASES	35
270	1000000000020001	PAPEL	79
271	653A27367C002030	PAPEL	32
272	6574272622001730	PAPEL	141
273	658F270CF3000C30	ENVASES	8
274	651A27264C004130	PAPEL	37
275	1001000000001762	ENVASES	55
276	65BF2736F9003C30	PAPEL	36
277	657C273539003D30	ENVASES	12
278	654927320B000C30	PAPEL	10
279	65E32737A4004930	PAPEL	36
280	659E2707E9005E30	ENVASES	73
281	1000000000004881	ENVASES	17
282	1000000000004316	PAPEL	45
283	6562272331002341	PAPEL	14
284	1000000000001234	ENVASES	41
285	6579272029001861	PAPEL	10
286	1000000000003532	ENVASES	4
287	65EB273BA0004930	PAPEL	0
288	659F2708E7005D30	ENVASES	11
289	650F270A75004E30	ENVASES	12
290	65842706F2000530	ENVASES	24
291	650E270A74004D30	PAPEL	46
292	655E271D33001F30	PAPEL	34
293	6507270176004630	PAPEL	0
294	6571272A2B002430	ENVASES	19
295	65DD2708A5001B30	ENVASES	36
296	653C27377B002030	PAPEL	21
297	65B2270DCF004A30	ENVASES	36
298	6574273A3E004730	PAPEL	83
299	65B6272BED002530	PAPEL	25
300	6527270552002630	ENVASES	124
301	65A9272BF2002A30	ENVASES	45
302	652B273B60000930	PAPEL	21
303	65CD2708B5002B30	PAPEL	0
304	1000000000003340	ENVASES	22
305	1000000000002558	PAPEL	150
306	659A2707ED000130	ENVASES	32
307	1000000000003353	PAPEL	37
308	650F27047B004E30	PAPEL	223
309	65A02718C8004E30	ENVASES	28
310	656827223A002B30	ENVASES	45
311	1001000000001602	PAPEL	0
312	6571272524001830	PAPEL	29
313	65992707EE000230	ENVASES	32
314	651F273B54005E30	PAPEL	22
315	6556271630001530	ENVASES	0
316	6571273233003430	ENVASES	68
317	65C12707B6002B30	ENVASES	41
318	654E273B05000F30	PAPEL	22
319	659B2701EA005930	PAPEL	27
320	6577273235003630	PAPEL	79
321	1004000000000509	PAPEL	10
322	6524273C68001230	ENVASES	65
323	655D27163B002030	PAPEL	53
324	656E273B25002F30	PAPEL	34
325	654D272B16001030	PAPEL	13
326	652F273C63000D30	ENVASES	20
327	655A27163C002130	ENVASES	15
328	6526271C4A003530	PAPEL	26
329	652E273C62000C30	ENVASES	36
330	6527271C4B003630	ENVASES	36
331	65DA273B91003A30	PAPEL	33
332	6525273C69001330	ENVASES	48
333	1001000000001763	PAPEL	349
334	659C2704E8005A30	PAPEL	16
335	6525273C69001330	ENVASES	48
336	650327186B005230	PAPEL	50
337	6521271647002C30	PAPEL	22
338	1000000000004938	PAPEL	204
339	6562270113004430	PAPEL	31
340	652E271648002D30	ENVASES	21
341	1000000000004939	ENVASES	0
342	65922706E4005830	ENVASES	34
343	65F7270A8D000530	PAPEL	49
344	6500273C4C005730	ENVASES	67
345	6579272029001887	PAPEL	7
346	6500271666004B30	ENVASES	0
347	65B52707C2003730	ENVASES	36
348	658F2730CF000C30	PAPEL	39
349	6503271665004A30	PAPEL	33
350	6524271C48003330	ENVASES	23
351	657E27050B004030	PAPEL	51
352	1001000000000826	ENVASES	0
353	652B271C47003230	PAPEL	35
354	65A52737E2002630	PAPEL	19
355	1000000000011044	PAPEL	48
356	6532274002001130	ENVASES	47
357	6503273A49005230	PAPEL	0
358	65862718EE001330	PAPEL	28
359	652927366F001330	PAPEL	12
360	1000000000003411	ENVASES	37
361	65E0273BAB005430	PAPEL	51
362	6574270307003A30	VIDRIO	0
363	65872718EF001430	ENVASES	50
364	6513271675005A30	PAPEL	61
365	65F72724A3003530	ENVASES	37
366	6547273A0D001630	PAPEL	12
367	65B32707C4003930	ENVASES	22
368	6513271675005A30	PAPEL	61
369	65B12707C6003B30	ENVASES	0
370	65892718E1000630	ENVASES	6
371	6557271D3A002630	PAPEL	40
372	65C1273B8A003330	PAPEL	40
373	659D2702EF005F30	VIDRIO	674
374	655C270B27000130	PAPEL	275
375	65BE2707C9003E30	ENVASES	0
376	652C270559002D30	PAPEL	13
377	65BC2705C9003C30	PAPEL	94
378	65A7272FF8003430	ENVASES	39
379	655D270B26000030	PAPEL	44
380	654E272A14000D30	ENVASES	18
381	658E273BC5000D30	PAPEL	7
382	655A27250F000330	ENVASES	0
383	65D5273B9E004730	PAPEL	13
384	6567272730002630	VIDRIO	697
385	65A72716C1004530	PAPEL	0
386	65AF2705DA004D30	ENVASES	47
387	65A42716C2004630	ENVASES	0
388	6543273704000A30	PAPEL	0
389	1000000000000130	ENVASES	50
390	6579272029001901	ENVASES	35
391	65CC27219D002C30	PAPEL	41
392	65D2272A88002030	ENVASES	0
393	65BB2718D3005930	ENVASES	29
394	65B42716D2005630	ENVASES	10
395	6505273742004830	PAPEL	37
396	657A273B31003B30	PAPEL	17
397	65BE272EE0001B30	ENVASES	34
398	6544272612000730	PAPEL	0
399	65CF273C83002D30	ENVASES	6
400	6502273745004B30	PAPEL	14
401	65972721C6005530	PAPEL	23
402	65952716F3001630	PAPEL	24
403	65A22705D7004A30	ENVASES	30
404	6500273A4A005330	PAPEL	46
405	65FC2735B9005C30	ENVASES	26
406	1001000000001764	PAPEL	47
407	659A2737DD002130	PAPEL	25
408	658B2716ED001030	PAPEL	68
409	657927030A003D30	VIDRIO	0
410	65932735D6001830	ENVASES	18
411	655B270823005B30	ENVASES	23
412	65F2270684005930	PAPEL	21
413	6536271D5B004730	PAPEL	38
414	65AD2735E8002A30	ENVASES	30
415	65D3272A89002130	ENVASES	7
416	6533271D5E004A30	PAPEL	26
417	65852707F2000630	PAPEL	76
418	65D827369E004230	PAPEL	29
419	65E52738AD005330	ENVASES	16
420	6563270310004330	VIDRIO	336
421	65852707F2000630	PAPEL	76
422	65F3270C8F000930	ENVASES	32
423	655F272A05005F30	ENVASES	37
424	1001000000001597	PAPEL	21
425	6589270CF5000E30	PAPEL	84
426	65CF2708B7002D30	PAPEL	26
427	6579270801003930	ENVASES	20
428	1000000000005527	VIDRIO	811
429	657C270804003C30	ENVASES	45
430	65902712F2001130	PAPEL	22
431	1001000000001761	PAPEL	29
432	65912712F3001230	ENVASES	21
433	65DF2706A9001D30	ENVASES	35
434	1000000000004360	PAPEL	19
435	6517270D6A004630	ENVASES	20
436	650B271E65005230	VIDRIO	473
437	65AB2737EC003030	PAPEL	19
438	6584270CF8001130	PAPEL	26
439	1000000000005149	ENVASES	37
440	1000000000003321	VIDRIO	0
441	65C62707B1002630	PAPEL	43
442	652A27015B002B30	PAPEL	42
443	65C22707B5002A30	PAPEL	32
444	6567271205004730	ENVASES	0
445	6566271204004630	PAPEL	100
446	1000000000020096	PAPEL	21
447	656F273D22002E30	PAPEL	30
448	6563271201004330	PAPEL	35
449	6546273701000730	PAPEL	27
450	657E27323C003D30	ENVASES	21
451	1000000000011014	PAPEL	8
452	657F27323D003E30	PAPEL	25
453	65FC270C80005B30	ENVASES	32
454	1000000000011075	PAPEL	51
455	1000000000020108	PAPEL	52
456	658A2702F8000730	VIDRIO	393
457	6572270301003430	VIDRIO	426
458	656D27120F005130	VIDRIO	39
459	1000000000003481	ENVASES	49
460	650B270B70004A30	PAPEL	0
461	6577270304003730	VIDRIO	538
462	651C270B67004130	PAPEL	36
463	656F27031C004F30	VIDRIO	348
464	1000000000003083	PAPEL	7
465	65EE270C92000C30	ENVASES	28
466	656C27031F005230	VIDRIO	0
467	658B270AF1000830	PAPEL	103
468	65F7270C8B000530	PAPEL	144
469	1000000000003314	ENVASES	35
470	65A82702DA004A30	VIDRIO	622
471	65932708EB000030	ENVASES	38
472	656A270B11004C30	PAPEL	0
473	6574271216005830	PAPEL	61
474	6541272415000830	ENVASES	0
475	6575272520001430	ENVASES	57
476	650A272258004930	ENVASES	22
477	656F270B14004F30	PAPEL	26
478	651C27224E003F30	ENVASES	17
479	659B2727CC000030	PAPEL	52
480	6544272410000330	ENVASES	12
481	6535270B4E002830	PAPEL	4
482	1001000000001923	ENVASES	5
483	65B5271CD9000230	PAPEL	41
484	656E272F31002F30	ENVASES	25
485	6553273516001A30	ENVASES	43
486	6567270B1C005730	ENVASES	0
487	65A12737E6002A30	PAPEL	17
488	6501270C7D005830	ENVASES	46
489	6560270B1B005630	PAPEL	5
490	651727086F004630	ENVASES	53
491	1000000000004715	VIDRIO	691
492	65AD2705D8004B30	PAPEL	31
493	65E6270395000630	ENVASES	44
494	6506270C7A005530	ENVASES	52
495	1000000000000537	VIDRIO	0
496	65C5273C89003330	ENVASES	38
497	6569270D14005130	ENVASES	0
498	1001000000001928	ENVASES	26
499	6515273055005430	PAPEL	35
500	6558272A02005C30	ENVASES	49
501	65F4270C88000230	PAPEL	106
502	656927253C003030	VIDRIO	517
503	65CF272A95002D30	ENVASES	35
504	65BF2705CA003D30	VIDRIO	0
505	651B270863003A30	ENVASES	56
506	65F5270386005830	ENVASES	35
507	65E3272BB8005130	VIDRIO	804
508	6546272A1C001530	ENVASES	29
509	65FF270C83005E30	ENVASES	164
510	6515272643003830	PAPEL	50
511	65FE270C82005D30	PAPEL	121
512	656A272A30002930	ENVASES	30
513	65FF27038C005E30	ENVASES	23
514	6558271D35002130	VIDRIO	463
515	6506271D6B005730	ENVASES	39
516	6501270372004430	ENVASES	26
517	6514272A4E004730	ENVASES	49
518	6520270B5B003530	PAPEL	153
519	65E1270392000330	ENVASES	7
520	65FA270C86000030	ENVASES	37
521	652D27306D000B30	PAPEL	19
522	6553273A19002230	PAPEL	23
523	65F5270C89000330	ENVASES	48
524	6560273C2C003730	ENVASES	60
525	1000000000020060	PAPEL	82
526	653A273B71001A30	PAPEL	0
527	1000000000002113	VIDRIO	0
528	6593272ECD000830	ENVASES	5
529	657B27101B005B30	ENVASES	14
530	6576271214005630	ENVASES	35
531	657A27101A005A30	PAPEL	111
532	1000000000004332	ENVASES	30
533	65F5270580005430	VIDRIO	499
534	6505270570004430	VIDRIO	436
535	1001000000001155	PAPEL	25
536	1000000000002988	ENVASES	45
537	1000000000002782	ENVASES	81
538	1000000000003116	PAPEL	72
539	1000000000004692	ENVASES	43
540	1000000000004358	VIDRIO	540
541	657D27010C003D30	ENVASES	75
542	651F272E41003E30	ENVASES	77
543	1000000000002105	VIDRIO	472
544	653A270248001930	ENVASES	60

# Como resumen Pesos por residuo y numero de contenedores
print(xtable(as.data.frame(tapply(as.numeric(recog[,3]),recog[,2],sum))),type="html")

	tapply(as.numeric(recog[, 3]), recog[, 2], sum)
ENVASES	11854.00
PAPEL	12311.00
VIDRIO	9779.00

print(xtable(as.data.frame(tapply(as.numeric(recog[,3]),recog[,2],length))),type="html")

	tapply(as.numeric(recog[, 3]), recog[, 2], length)
ENVASES	257
PAPEL	261
VIDRIO	26

Para los previstos por la herramienta:

	tag	V1	peso
1	1000000000000003	VIDRIO	541.96
2	1000000000000024	PAPEL	394.90
3	1000000000000274	VIDRIO	975.99
4	1000000000000363	VIDRIO	737.96
5	1000000000000381	VIDRIO	801.65
6	1000000000000536	VIDRIO	491.39
7	1000000000000681	PAPEL	217.15
8	1000000000000694	VIDRIO	536.59
9	1000000000000751	VIDRIO	714.52
10	1000000000000763	PAPEL	212.27
11	1000000000000844	VIDRIO	493.76
12	1000000000001033	VIDRIO	673.27
13	1000000000001104	PAPEL	288.24
14	1000000000001230	PAPEL	183.88
15	1000000000001258	PAPEL	215.42
16	1000000000001355	VIDRIO	992.84
17	1000000000001655	PAPEL	493.94
18	1000000000001691	VIDRIO	709.61
19	1000000000001835	VIDRIO	565.87
20	1000000000001846	VIDRIO	766.28
21	1000000000002439	VIDRIO	548.33
22	1000000000002696	VIDRIO	648.97
23	1000000000002869	PAPEL	214.28
24	1000000000002962	VIDRIO	909.58
25	1000000000003041	VIDRIO	599.44
26	1000000000003458	VIDRIO	516.98
27	1000000000003468	VIDRIO	691.47
28	1000000000003490	PAPEL	282.12
29	1000000000003556	VIDRIO	536.46
30	1000000000003584	VIDRIO	564.50
31	1000000000003621	VIDRIO	1045.29
32	1000000000003680	VIDRIO	536.90
33	1000000000003692	VIDRIO	512.24
34	1000000000004619	VIDRIO	481.99
35	1000000000004715	VIDRIO	796.82
36	1000000000004795	VIDRIO	669.63
37	1000000000005200	PAPEL	356.45
38	1000000000005524	PAPEL	202.17
39	1000000000005527	VIDRIO	566.40
40	1000000000009003	PAPEL	383.66
41	1000000000011032	VIDRIO	913.59
42	1000000000011034	PAPEL	187.43
43	1000000000011044	PAPEL	237.26
44	1000000000011064	PAPEL	359.69
45	1000000000020004	PAPEL	217.40
46	1000000000020101	VIDRIO	569.60
47	1001000000000190	PAPEL	182.61
48	1001000000001023	VIDRIO	530.72
49	1001000000001154	VIDRIO	535.11
50	1001000000001230	VIDRIO	1022.61
51	1001000000001235	VIDRIO	542.53
52	1001000000001268	PAPEL	329.21
53	1001000000001270	PAPEL	216.61
54	1001000000001398	VIDRIO	551.86
55	1001000000001425	VIDRIO	948.68
56	1001000000001437	VIDRIO	638.92
57	1001000000001664	VIDRIO	520.63
58	1001000000001874	PAPEL	204.33
59	1001000000001881	PAPEL	189.83
60	1004000000000109	VIDRIO	927.40
61	6500272B5B005530	PAPEL	203.68
62	6501271667004C30	VIDRIO	565.59
63	6501272554004830	VIDRIO	523.00
64	6501273243004430	VIDRIO	734.09
65	6502272557004B30	VIDRIO	595.28
66	6503271162004230	VIDRIO	727.35
67	6504270672004730	VIDRIO	896.35
68	6507273344004630	PAPEL	201.76
69	6508273149004930	PAPEL	237.41
70	6509270871004830	PAPEL	239.99
71	650B271E65005230	VIDRIO	771.59
72	650B272952004A30	PAPEL	211.71
73	650B27364D005230	PAPEL	180.96
74	650C270F73005130	PAPEL	527.60
75	650E27017F004F30	PAPEL	278.00
76	6510272545003930	VIDRIO	895.33
77	6513270566003A30	PAPEL	198.51
78	6514270561003530	PAPEL	183.88
79	6516272543003730	VIDRIO	557.64
80	651827365E000230	PAPEL	203.10
81	651A270369003B30	VIDRIO	511.01
82	651A272B41003B30	PAPEL	225.74
83	651A27305A005930	PAPEL	183.08
84	651B27016A003A30	VIDRIO	574.36
85	651C27167A005F30	VIDRIO	498.60
86	651D272548003C30	VIDRIO	556.73
87	6520271141002130	PAPEL	215.05
88	652227297B001230	PAPEL	407.83
89	6524270256002730	VIDRIO	512.86
90	6524271440002330	PAPEL	317.75
91	6524272773000830	PAPEL	313.03
92	6525270653002830	PAPEL	435.65
93	6526270B5D003730	VIDRIO	662.78
94	6526271345002730	VIDRIO	612.85
95	6527272B7C001530	VIDRIO	753.55
96	6527273067000530	PAPEL	243.20
97	652827055D003130	PAPEL	373.60
98	652A27144E003130	VIDRIO	557.02
99	652D273568000B30	PAPEL	190.42
100	6530270B4B002530	PAPEL	227.16
101	6530270F4F002D30	VIDRIO	762.17
102	6531271455003830	VIDRIO	864.28
103	6531273273001330	VIDRIO	1475.46
104	6535271E5B004830	PAPEL	442.92
105	6535273075001330	PAPEL	232.89
106	6536271452003530	VIDRIO	532.61
107	6538270149001930	PAPEL	182.67
108	653B27307B001930	PAPEL	190.97
109	653C27064A001F30	PAPEL	219.69
110	653C271458003B30	VIDRIO	530.55
111	653D270D40001C30	VIDRIO	514.27
112	653E27044A001D30	PAPEL	262.28
113	653F27014E001E30	PAPEL	702.80
114	653F27145B003E30	VIDRIO	509.00
115	6540271626000B30	VIDRIO	545.09
116	6541273A0B001430	PAPEL	284.72
117	6541273E0F001C30	PAPEL	1081.30
118	6542270331000330	PAPEL	590.52
119	6543270A39001230	PAPEL	482.17
120	6544270430000330	PAPEL	191.30
121	6544270531000530	VIDRIO	839.65
122	6546271523000730	VIDRIO	539.57
123	6546271E28001530	PAPEL	186.18
124	6546273305000730	PAPEL	213.27
125	6546273B0D001730	PAPEL	335.61
126	6548270D35001130	VIDRIO	812.16
127	654927063F001430	VIDRIO	490.51
128	6549271D24001030	PAPEL	294.32
129	6549272F16001430	VIDRIO	615.15
130	654B27271C001230	PAPEL	299.31
131	654C270D31000D30	VIDRIO	565.69
132	654C27162A000F30	VIDRIO	559.88
133	654D270C31000C30	VIDRIO	582.75
134	654D270E33001030	VIDRIO	832.77
135	654D273409000C30	VIDRIO	569.97
136	654E27320C000D30	VIDRIO	491.07
137	654E273709000F30	PAPEL	567.86
138	654F272B14000E30	PAPEL	194.23
139	654F273D02000E30	PAPEL	233.11
140	6550272E0E000B30	VIDRIO	827.35
141	6551270E2F000C30	VIDRIO	889.74
142	6551271031001030	VIDRIO	895.66
143	6551273716001C30	PAPEL	196.53
144	655227092B000330	VIDRIO	592.20
145	6553273211001230	VIDRIO	547.06
146	655427092D000530	PAPEL	242.75
147	6554271135001530	VIDRIO	729.58
148	6555270E2B000830	PAPEL	404.26
149	6556270325005830	PAPEL	305.36
150	6556272B0D000730	PAPEL	266.74
151	6557270324005730	VIDRIO	745.39
152	6558270A22005C30	VIDRIO	588.81
153	6558273018001730	VIDRIO	545.25
154	655A270D27000330	VIDRIO	779.65
155	655A27301A001930	PAPEL	195.93
156	655B270229005B30	PAPEL	195.78
157	655B27163D002230	VIDRIO	744.89
158	655B273A11001A30	PAPEL	243.44
159	655C27072B000130	VIDRIO	822.83
160	655D27012C005D30	PAPEL	284.18
161	655E27032D006030	VIDRIO	996.59
162	655E27143A001D30	VIDRIO	595.71
163	655E271638001D30	VIDRIO	536.15
164	655F271639001E30	VIDRIO	503.00
165	6560270212004430	PAPEL	332.70
166	6560270313004630	VIDRIO	539.77
167	6560271505004A30	VIDRIO	594.56
168	6562272331002338	PAPEL	235.47
169	6562272331002342	PAPEL	386.76
170	6563270310004330	VIDRIO	621.43
171	6564270B1F005A30	VIDRIO	658.56
172	6564271206004830	VIDRIO	689.23
173	6565272035002430	PAPEL	232.87
174	6565273623002830	PAPEL	183.26
175	6566270E18005630	VIDRIO	802.73
176	6566270F19005830	VIDRIO	689.59
177	6566273127002730	PAPEL	192.58
178	6567272730002630	VIDRIO	826.17
179	656927021B004D30	PAPEL	338.20
180	6569270811004930	PAPEL	421.34
181	656927150C005130	VIDRIO	688.73
182	656927253C003030	VIDRIO	548.50
183	656B270B10004B30	VIDRIO	1249.47
184	656B271209004B30	VIDRIO	498.50
185	656B27273C003230	PAPEL	249.38
186	656B273229002A30	VIDRIO	755.21
187	656C271509004E30	VIDRIO	725.13
188	656D270B16005130	VIDRIO	585.33
189	656E27021C004E30	PAPEL	180.52
190	656E27120C004E30	VIDRIO	1121.68
191	656E273729002F30	PAPEL	190.05
192	6570271212005430	VIDRIO	1074.20
193	6574270307003A30	VIDRIO	562.42
194	6575270A0F004930	VIDRIO	929.90
195	6575271712005930	PAPEL	213.16
196	657527191C000430	VIDRIO	728.25
197	657627181E000530	VIDRIO	722.77
198	6576273234003530	VIDRIO	846.55
199	657927161F000430	VIDRIO	485.86
200	6579272029001832	VIDRIO	666.67
201	657927232A001C30	VIDRIO	602.57
202	657A270B01003C30	PAPEL	318.83
203	657A273238003930	VIDRIO	487.24
204	657B27010A003B30	VIDRIO	481.64
205	657B272B20001A30	VIDRIO	1326.41
206	657C273A36003F30	PAPEL	180.01
207	657D27101D005D30	PAPEL	217.20
208	657D27121F000030	VIDRIO	552.39
209	657D271D10005D30	VIDRIO	1874.61
210	65802706F6000930	PAPEL	256.37
211	65832736C5000830	PAPEL	404.59
212	65882736CE001130	PAPEL	183.26
213	6589270FF6001230	PAPEL	189.61
214	658A2712E8000730	PAPEL	197.76
215	658B2709F2000830	VIDRIO	498.74
216	658B270AF1000830	PAPEL	224.06
217	658F2707F8000C30	PAPEL	226.57
218	658F271BE4000C30	PAPEL	247.01
219	65922707E5005A30	PAPEL	545.58
220	65922736D4001730	PAPEL	440.91
221	65942703E7005830	PAPEL	183.96
222	65982703EB005C30	PAPEL	208.21
223	659B271EF5002030	VIDRIO	535.71
224	659D2703EE005F30	PAPEL	415.71
225	659D270AE7005F30	PAPEL	771.01
226	659F2707E8005D30	PAPEL	303.02
227	65A1270FDE005B30	PAPEL	325.22
228	65A12718C9004F30	VIDRIO	554.65
229	65A22707D5004A30	VIDRIO	540.74
230	65A32704D7004930	PAPEL	507.18
231	65A4270FDB005830	VIDRIO	683.38
232	65A5271ACF005730	VIDRIO	714.13
233	65A8270BD3004C30	PAPEL	427.46
234	65A8270DD5005030	VIDRIO	483.01
235	65A8271BC3004C30	VIDRIO	537.18
236	65A8272BF3002B30	VIDRIO	810.43
237	65A92709D0004730	VIDRIO	635.83
238	65AC271AC6004E30	VIDRIO	498.37
239	65AC271BC7005030	PAPEL	183.94
240	65AD2702DF004F30	VIDRIO	768.45
241	65AE2701DF004E30	PAPEL	222.45
242	65AF2717C8004D30	PAPEL	437.59
243	65B02705C5003830	VIDRIO	688.94
244	65B0271CDC000530	PAPEL	232.28
245	65B82706CE004230	VIDRIO	601.40
246	65BB2705CE004130	VIDRIO	805.53
247	65BD271ED3005F30	PAPEL	197.29
248	65BE2703CD003E30	PAPEL	259.27
249	65C0273B8B003430	PAPEL	327.22
250	65C12712A3002330	VIDRIO	746.43
251	65C1273B8A003330	PAPEL	509.78
252	65C22705B7002A30	VIDRIO	627.86
253	65C42714A0002230	VIDRIO	839.94
254	65C4273682002630	PAPEL	184.02
255	65C5272A9F003730	PAPEL	468.22
256	65C7271FA8003530	VIDRIO	771.59
257	65C92707BE003330	VIDRIO	485.13
258	65C9270EB7003330	PAPEL	211.56
259	65C92719A0002730	VIDRIO	489.11
260	65C9272E97003330	PAPEL	206.49
261	65CA27209A002830	VIDRIO	557.90
262	65CE2711AF002E30	VIDRIO	483.33
263	65CF270FB0002D30	PAPEL	213.50
264	65D0273898003E30	VIDRIO	640.30
265	65D12713B2003330	VIDRIO	627.59
266	65D1271FBE004B30	PAPEL	468.40
267	65D22711B3003230	PAPEL	196.19
268	65D2271FBD004A30	PAPEL	214.80
269	65D52705A0001330	VIDRIO	499.47
270	65D52719BC004330	PAPEL	241.66
271	65D62704A2001430	PAPEL	205.29
272	65D7270EA9002530	VIDRIO	832.85
273	65D827278F002430	VIDRIO	603.28
274	65D92701A8001730	PAPEL	232.62
275	65D92706AF002330	VIDRIO	556.17
276	65DB272982001930	VIDRIO	490.60
277	65E02732A2004230	PAPEL	229.56
278	65E1271081006030	PAPEL	285.42
279	65E32731A2004130	PAPEL	185.10
280	65E4272BBF005830	VIDRIO	1397.58
281	65E627089E001430	PAPEL	243.51
282	65E6270E98001430	PAPEL	227.59
283	65E62737A1004630	PAPEL	193.79
284	65E7270592000530	VIDRIO	512.43
285	65E7272BBC005530	VIDRIO	679.85
286	65E8270890000630	VIDRIO	845.40
287	65E8270F97001430	VIDRIO	777.41
288	65E8271189000830	VIDRIO	861.19
289	65EA27019B000A30	VIDRIO	480.75
290	65EA270F95001230	VIDRIO	555.54
291	65EA2730AA004830	PAPEL	191.60
292	65EA2731AB004A30	PAPEL	618.56
293	65ED270895000B30	VIDRIO	658.55
294	65EE270799000E30	PAPEL	702.86
295	65EF27108F000D30	PAPEL	218.52
296	65F2270684005930	PAPEL	198.08
297	65F3272FAC004930	VIDRIO	909.53
298	65F42731B5005430	PAPEL	278.34
299	65F5270184005430	VIDRIO	692.74
300	65F5270580005430	VIDRIO	524.62
301	65F527088D000330	PAPEL	371.21
302	65F6270482005530	PAPEL	193.52
303	65F827078F000430	VIDRIO	680.15
304	65F82736BE000130	PAPEL	278.34
305	65F8273BB3005C30	PAPEL	199.78
306	65F9271198001730	PAPEL	240.27
307	65F92725AC003F30	VIDRIO	552.26
308	65FC27068A005F30	PAPEL	254.97
309	65FD270489005C30	VIDRIO	658.48
310	65FD27078A006030	PAPEL	180.71
311	65FD271499001B30	VIDRIO	807.47
312	65FF270F80005E30	VIDRIO	485.59
313	65FF271996001D30	VIDRIO	645.05
314	65FF2721AE003D30	PAPEL	567.83

	tapply(as.numeric(frecog[, 3]), frecog[, 2], sum)
PAPEL	41893.00
VIDRIO	116075.46

	tapply(as.numeric(frecog[, 3]), frecog[, 2], length)
PAPEL	144
VIDRIO	170

Ahora la posición geográfica:

## Warning in writeOGR(prcr, dsn = paste("real_", as.character(fechaobj),
## ".kml", : Unknown coordinate reference system: for KML driver should be
## geographical

## Warning in writeOGR(prcf, dsn = paste("plan_", as.character(fechaobj),
## ".kml", : Unknown coordinate reference system: for KML driver should be
## geographical

Mapa creado en https://drive.google.com/open?id=18045V-ko0rrB48Tgkm76SHy9PPg

Vamos a determinar las interdistancias entre contenedores, empleando la API de direcciones de Google.

vistazo_01

JOM

18/12/2014

Análisis para la fecha 2013-03-23