Actividad 3 - Valladares

#Actividad 3 - Valladares

###P1 Copiar actividad 2 hasta pregunta 3

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\Rtmp8AGZSc\downloaded_packages

library(data.table)

Android<-fread("A3.csv", fill=TRUE)

Android<-Android[!duplicated(app)]

Android1<-Android[,.(app,category,rating,reviews,installs,type,price)]

###P2 Cree un gráfico de barra con ggplot que contenga el conteo de cada categoría de la base de datos que ha generado en la pregunta 1. Pista: Es normal la saturación del gráfico por la cantidad de categorías.

install.packages("ggplot2", repos = "http://cran.us.r-project.org")

## Installing package into 'C:/Users/fvall/Documents/R/win-library/3.6'
## (as 'lib' is unspecified)

## package 'ggplot2' successfully unpacked and MD5 sums checked
## 
## The downloaded binary packages are in
##  C:\Users\fvall\AppData\Local\Temp\Rtmp8AGZSc\downloaded_packages

library(ggplot2)

ggplot(Android1, aes(x = category)) + geom_bar()

###P3 Cree un scatter-plot con ggplot que muestre la relación entre el número de comentarios (reviews) (eje x) y el rating (eje y). Pista: Revisar la pista de la pregunta 6 de la Actividad 2.

class(Android1[,reviews])

## [1] "integer"

Android1$reviews<-as.numeric(Android1$reviews)

class(Android1[,rating])

## [1] "numeric"

Android1$rating<-as.numeric(Android1$rating)

tabla<-Android1[,.(.N,mean(reviews),mean(rating,na.rm = T)),by=category]

ggplot(Android1, aes(x = reviews, y = rating)) + geom_point()