documento
Jesús Eduardo Puebla Ibarra
6/4/2022
Archivo PDF de tarea
Tabla comparativa de Likes y compartidas
Logramos percibir que algunas publicaciones no logran despegar en el tema de ser compartidos y tampoco logran alguna reacción, después tenemos a las publicaciones que llegan a destacarse de entre las demás por lo tanto los usuarios han llegado a compartirlas causando que estas consigan mas reacciones del publico al que a llegado, por ultimo tenemos a una sola publicación la cual se tuvo un gran índice de compartidos al igual que reacciones por lo tanto esta fuera de la dirección de nuestra grafica pero nos da a conocer el nivel de publico al que logro llegar.
datos<-read.csv("C:/R/dataset_Facebook.csv",header = TRUE,sep=",")
likes<-as.numeric(datos$like) # conversion numerica
compartido<-as.numeric(datos$share)
plot(compartido, likes)
Media de interacciones de Julio
Realizamos el calculo para identificar la cantidad de interacciones que obtiene una cierta cantidad de publicaciones durante el mes de julio por lo que el resultado de la media seria 328.5 en total de interacciones por algunas publicaciones.
mean(datos$Total.Interactions[datos$Post.Month==7])## [1] 328.5Determinación sobre que es más conveniente publicar
Haciendo comparación entre las diferentes tablas lo mas factible para publicar en la semana son las fotos ya que a pesar de que los videos son los mas frecuentes en publicar en la semana no llegan a tener tantas interacciones como si se publicaran fotos ya que estas con solo publicarse tres veces en la semana tienen un alcance de interacciones de 6334 lo cual es seis veces mayor que el publicar videos. Lo segundo mas factible de publicar son los estados, ya que al ser publicados las mismas cantidades de veces que las fotos, el estado tiene un alcance de 1009 interacciones, un poco menos que el doble de los videos por lo que los posiciona en el segundo puesto de mas factibles en tanto interacciones se habla. La peor cosa que se puede llegar a publicar son enlaces ya que su mejor publicación solo alcanzo a 420 personas siendo solamente publicados dos veces en la semana.
subset(datos, subset = Type == "Photo", select = c('Post.Weekday', 'Total.Interactions'))## Post.Weekday Total.Interactions
## 1 4 100
## 3 3 80
## 4 2 1777
## 5 2 393
## 7 1 279
## 8 7 339
## 10 6 142
## 12 5 106
## 13 5 104
## 14 5 152
## 15 4 599
## 17 3 54
## 18 2 713
## 20 1 42
## 21 1 81
## 22 7 0
## 24 7 96
## 28 5 117
## 29 5 622
## 31 4 162
## 32 3 39
## 33 3 204
## 34 2 125
## 35 2 75
## 36 1 199
## 37 1 113
## 38 7 100
## 40 7 59
## 43 5 36
## 45 4 58
## 49 2 92
## 51 1 58
## 52 1 337
## 53 7 242
## 54 7 87
## 55 6 83
## 57 5 220
## 58 5 53
## 59 4 90
## 60 4 160
## 61 3 123
## 62 3 162
## 63 2 202
## 64 2 245
## 65 1 69
## 66 1 119
## 67 7 55
## 68 7 787
## 69 6 70
## 70 6 119
## 71 5 162
## 74 4 233
## 76 3 505
## 77 3 0
## 78 1 97
## 79 1 64
## 80 7 38
## 82 6 441
## 83 6 252
## 84 5 122
## 86 4 158
## 88 3 311
## 89 3 39
## 90 2 126
## 91 2 421
## 92 1 91
## 93 1 342
## 94 7 129
## 95 7 148
## 96 6 185
## 97 6 65
## 98 5 142
## 100 4 430
## 101 4 0
## 102 4 1626
## 103 3 79
## 104 3 17
## 105 2 72
## 106 2 1136
## 107 1 222
## 109 7 148
## 111 6 34
## 112 6 0
## 113 6 139
## 114 1 97
## 115 7 17
## 116 7 6
## 117 7 458
## 118 7 7
## 119 7 9
## 120 7 8
## 121 7 2
## 123 7 4
## 124 7 6
## 125 7 7
## 126 7 9
## 127 7 242
## 128 6 10
## 129 6 5
## 130 6 3
## 131 6 10
## 132 6 10
## 133 6 10
## 134 6 12
## 135 6 34
## 136 6 68
## 138 5 39
## 140 4 100
## 144 2 447
## 145 2 53
## 146 1 96
## 147 1 204
## 148 7 94
## 151 6 367
## 152 5 200
## 153 5 454
## 154 4 193
## 155 4 387
## 156 3 70
## 157 2 163
## 158 2 137
## 159 1 252
## 160 1 98
## 161 7 409
## 162 7 282
## 163 6 410
## 165 5 18
## 166 5 132
## 167 4 84
## 168 4 557
## 169 3 1974
## 170 3 121
## 171 2 217
## 172 2 38
## 174 1 225
## 175 7 243
## 177 6 1174
## 178 5 276
## 179 5 299
## 180 4 194
## 182 3 114
## 183 3 271
## 185 2 90
## 186 1 72
## 187 1 263
## 188 7 67
## 189 7 117
## 190 2 164
## 191 2 119
## 192 1 818
## 193 1 70
## 194 7 133
## 195 7 490
## 196 6 330
## 197 6 73
## 198 5 60
## 199 4 32
## 200 4 1290
## 201 4 166
## 202 3 45
## 204 2 243
## 205 2 132
## 206 1 42
## 207 1 931
## 208 7 162
## 209 7 66
## 210 6 98
## 211 6 107
## 212 5 287
## 213 5 50
## 214 4 15
## 215 4 470
## 216 3 126
## 217 3 28
## 219 2 100
## 220 1 271
## 221 1 96
## 222 7 212
## 225 6 103
## 227 5 217
## 228 4 126
## 229 4 456
## 230 3 130
## 231 2 135
## 232 2 114
## 234 1 54
## 235 1 120
## 237 7 294
## 238 6 139
## 239 6 128
## 240 5 186
## 241 5 624
## 242 4 144
## 245 3 6334
## 246 2 188
## 247 2 88
## 248 1 115
## 249 1 118
## 250 7 68
## 251 7 85
## 252 6 234
## 253 6 274
## 255 5 823
## 256 4 85
## 257 4 160
## 258 3 118
## 259 3 203
## 260 2 202
## 261 2 143
## 262 1 290
## 263 1 79
## 264 7 75
## 265 7 596
## 266 6 55
## 267 6 101
## 269 5 195
## 270 4 53
## 271 4 730
## 272 3 269
## 273 3 587
## 274 4 171
## 275 4 71
## 277 3 30
## 279 2 218
## 280 2 194
## 281 1 49
## 282 1 89
## 284 7 39
## 285 6 152
## 287 5 18
## 288 4 125
## 289 4 605
## 290 4 67
## 291 4 25
## 292 4 172
## 293 3 24
## 294 3 95
## 295 2 93
## 296 2 66
## 297 1 117
## 298 1 72
## 299 7 94
## 300 7 15
## 301 6 285
## 302 6 89
## 303 5 234
## 304 5 363
## 305 4 155
## 306 4 238
## 307 3 188
## 308 3 184
## 309 2 163
## 310 2 135
## 311 1 25
## 312 1 99
## 313 7 73
## 314 7 82
## 315 6 28
## 316 6 218
## 317 5 75
## 318 5 90
## 319 4 226
## 320 4 235
## 321 3 41
## 322 2 59
## 323 2 83
## 324 1 1439
## 325 1 65
## 326 1 45
## 327 7 97
## 328 5 122
## 329 4 691
## 330 4 180
## 331 3 251
## 332 3 134
## 333 2 60
## 334 2 84
## 336 7 180
## 337 6 83
## 338 6 99
## 339 5 313
## 340 4 390
## 341 4 254
## 342 3 114
## 343 2 232
## 344 1 136
## 346 7 179
## 347 7 948
## 348 6 72
## 349 6 190
## 350 5 1806
## 351 5 190
## 352 4 203
## 354 3 429
## 355 2 118
## 356 2 188
## 357 1 167
## 358 1 309
## 359 7 174
## 360 7 335
## 361 6 99
## 362 6 105
## 364 4 210
## 365 3 236
## 366 3 157
## 367 2 355
## 368 2 189
## 369 1 54
## 370 7 200
## 371 6 528
## 374 5 121
## 375 4 75
## 376 4 316
## 377 3 79
## 378 2 295
## 379 2 165
## 380 1 2177
## 381 7 212
## 382 6 280
## 383 6 87
## 384 6 122
## 385 5 69
## 386 5 183
## 387 4 56
## 388 3 126
## 389 3 40
## 390 2 44
## 391 2 62
## 392 1 881
## 393 1 115
## 394 7 71
## 395 7 138
## 396 6 58
## 397 6 115
## 398 5 97
## 399 5 90
## 400 4 225
## 401 4 122
## 402 3 376
## 403 3 149
## 405 1 77
## 406 7 90
## 407 7 124
## 408 6 67
## 410 5 168
## 411 5 173
## 412 4 91
## 413 4 104
## 414 5 81
## 415 4 208
## 416 4 249
## 418 3 0
## 419 3 39
## 420 3 53
## 421 2 74
## 422 2 39
## 423 1 2
## 424 1 120
## 425 1 38
## 427 7 7
## 428 7 230
## 429 7 2
## 430 7 3
## 432 7 4
## 433 6 5
## 434 6 237
## 435 6 17
## 436 6 110
## 437 6 143
## 438 6 149
## 440 6 86
## 441 5 36
## 442 5 0
## 443 4 771
## 444 2 73
## 445 2 68
## 446 1 63
## 447 1 228
## 448 7 118
## 449 7 67
## 450 6 266
## 451 6 172
## 452 5 125
## 453 5 68
## 454 4 128
## 455 4 282
## 456 3 217
## 457 3 29
## 458 3 178
## 459 2 165
## 460 2 163
## 461 1 1873
## 462 1 95
## 463 7 311
## 464 7 176
## 465 6 313
## 466 6 170
## 467 5 71
## 468 5 238
## 469 4 305
## 470 4 264
## 472 3 224
## 473 2 61
## 474 2 182
## 475 1 86
## 476 6 84
## 477 6 633
## 479 5 106
## 480 5 127
## 481 4 515
## 483 3 226
## 484 3 97
## 485 2 108
## 487 1 83
## 488 1 66
## 489 7 378
## 490 7 103
## 491 6 110
## 492 6 152
## 494 1 257
## 495 7 176
## 496 7 84
## 497 5 75
## 498 5 115
## 499 4 136
## 500 4 119subset(datos, subset = Type == "Status", select = c('Post.Weekday', 'Total.Interactions'))## Post.Weekday Total.Interactions
## 2 3 164
## 6 1 186
## 9 7 192
## 11 5 252
## 16 3 108
## 19 2 75
## 25 6 121
## 26 6 106
## 27 5 494
## 39 7 269
## 41 6 262
## 47 3 214
## 73 4 273
## 81 7 101
## 85 5 117
## 99 5 378
## 108 1 238
## 110 7 271
## 122 7 232
## 139 5 154
## 142 3 265
## 143 3 1009
## 149 7 179
## 164 6 288
## 173 1 228
## 176 6 189
## 181 4 199
## 203 3 70
## 218 2 57
## 223 7 86
## 224 6 404
## 226 5 121
## 233 2 21
## 236 7 17
## 243 4 572
## 254 5 300
## 268 5 87
## 276 3 148
## 283 7 117
## 286 6 94
## 335 1 67
## 353 4 255
## 363 5 166
## 372 6 587
## 417 3 34subset(datos, subset = Type == "Link", select = c('Post.Weekday', 'Total.Interactions'))## Post.Weekday Total.Interactions
## 23 7 18
## 42 6 211
## 44 5 46
## 46 4 71
## 48 3 32
## 50 2 14
## 87 4 163
## 137 5 48
## 141 4 202
## 150 6 35
## 345 1 63
## 373 5 56
## 404 2 420
## 409 6 44
## 426 1 85
## 431 7 6
## 439 6 49
## 471 3 131
## 478 6 107
## 482 4 7
## 486 2 14
## 493 5 137subset(datos, subset = Type == "Video", select = c('Post.Weekday', 'Total.Interactions'))## Post.Weekday Total.Interactions
## 30 4 174
## 56 6 81
## 72 5 550
## 75 3 114
## 184 2 472
## 244 3 409
## 278 2 271El pago por publicación es conveniente de acuerdo a las interacciones y el alcance
Los resultados demuestran que no es necesario realizar pagos por las publicaciones ya que las interacciones que se logran son muy bajas al compararlas con el alcance por lo que las publicaciones pueden seguir pagándose y no estaremos obteniendo ninguna ganancia o publicidad sobre lo que hemos compartido o publicado, por lo tanto lo mejor que podemos hacer en este caso es dejar de realizar pagos por publicaciones ya que se logra un mejor alcance al no realizar ningún pago como se puede demostrar en la tabla de alcance.
pago<-as.numeric(datos$Paid)
interacciones<-as.numeric(datos$Total.Interactions)
plot(interacciones, pago)
pago<-as.numeric(datos$Paid)
alcance<-as.numeric(datos$Lifetime.Post.Total.Reach)
plot(alcance, pago)
Análisis de relación entre interacciones y números de comentarios por publicación.
Estas dos tablas si tienen relación entre si ya que podemos ver que a lo largo de la vida de nuestra pagina van en aumento las interacciones pero llega un punto en el que dejan de ser tan frecuentes por lo que se nota que disminuyen, esto se ve reflejado en la tabla de comentarios publicados ya que se puede ver que existe una actividad creciente entre las primeras publicaciones con relación a la actividad de los comentarios pero de igual forma estas interacciones con los comentarios con el paso del tiempo van decreciendo de igual forma por lo que ambas tablas están fuertemente relacionadas con las acciones que se estén haciendo ya sean en una u otra de las dos.
life<-as.numeric(datos$Lifetime.People.who.have.liked.your.Page.and.engaged.with.your.post)
interacciones<-as.numeric(datos$Total.Interactions)
plot(life, interacciones)
comentario<-as.numeric(datos$comment)
publicado<-as.numeric(datos$Post.Weekday)
plot(publicado, comentario)