#Actividad 2 - Valladares

###P1 Cargue la base de datos y los paquetes que sean necesario para trabajar un data.table.

install.packages("data.table", repos = "http://cran.us.r-project.org")
## Installing package into 'C:/Users/fvall/Documents/R/win-library/3.6'
## (as 'lib' is unspecified)
## package 'data.table' successfully unpacked and MD5 sums checked
## Warning: cannot remove prior installation of package 'data.table'
## Warning in file.copy(savedcopy, lib, recursive = TRUE):
## problema al copiar C:\Users\fvall\Documents\R\win-
## library\3.6\00LOCK\data.table\libs\x64\datatable.dll a C:
## \Users\fvall\Documents\R\win-library\3.6\data.table\libs\x64\datatable.dll:
## Permission denied
## Warning: restored 'data.table'
## 
## The downloaded binary packages are in
##  C:\Users\fvall\AppData\Local\Temp\Rtmp6jwoX5\downloaded_packages
library(data.table)
Android<-fread("Actividad 2.csv", fill=TRUE)

###P2 Revise la base de datos y elimine las aplicaciones que se encuentran duplicados. Pista: El comando duplicated da información acerca de las filas que se encuentran duplicados según el valor de alguna variable (o columna).

Android<-Android[!duplicated(App)]

###P3 Cree un nuevo objeto que contenga las siguientes variables de interés: App,Category,Rating,Reviews,Installs,Type,Price y Content Rating.

Android1<-Android[,.(App,Category,Rating,Reviews,Installs,Type,Price,`Content Rating`)]

###P4 Cree un objeto que este compuesto por el número de observaciones de cada categoría. Pista: Tiene que contar cuantas observaciones hay para cada categoría.

Android1[,.N, by=Category]
##                Category    N
##  1:      ART_AND_DESIGN   64
##  2:   AUTO_AND_VEHICLES   85
##  3:              BEAUTY   53
##  4: BOOKS_AND_REFERENCE  222
##  5:            BUSINESS  420
##  6:              COMICS   56
##  7:       COMMUNICATION  315
##  8:              DATING  171
##  9:           EDUCATION  119
## 10:       ENTERTAINMENT  102
## 11:              EVENTS   64
## 12:             FINANCE  345
## 13:      FOOD_AND_DRINK  112
## 14:  HEALTH_AND_FITNESS  288
## 15:      HOUSE_AND_HOME   74
## 16:  LIBRARIES_AND_DEMO   84
## 17:           LIFESTYLE  369
## 18:                GAME  959
## 19:              FAMILY 1832
## 20:             MEDICAL  395
## 21:              SOCIAL  239
## 22:            SHOPPING  202
## 23:         PHOTOGRAPHY  281
## 24:              SPORTS  325
## 25:    TRAVEL_AND_LOCAL  219
## 26:               TOOLS  827
## 27:     PERSONALIZATION  376
## 28:        PRODUCTIVITY  374
## 29:           PARENTING   60
## 30:             WEATHER   79
## 31:       VIDEO_PLAYERS  163
## 32:  NEWS_AND_MAGAZINES  254
## 33: MAPS_AND_NAVIGATION  131
## 34:                 1.9    1
##                Category    N

###P5 Cree un objeto que contenga información solo de las categrías que más se relacionan con el rubro de la empresa (SOCIAL y PHOTOGRAPHY). Pista: tiene que crear una base de datos que tenga toda la información de las dos categorías mencionadas.

AndroidSocial<-Android1[(Android1[,Category]=="SOCIAL")]

AndroidPhoto<-Android1[(Android1[,Category]=="PHOTOGRAPHY")]

AndroidSocialPhoto<-rbind(AndroidSocial,AndroidPhoto)

###P6 Cree un objeto que contenga el número de observaciones por categoría, el promedio de comentarios (Reviews) y el promedio del Rating. Pista: Recuerde que para calcular promedios, necesitamos que las variables character sean numéricas.

AndroidSocialPhoto[,.N, by=Category]
##       Category   N
## 1:      SOCIAL 239
## 2: PHOTOGRAPHY 281