Plots for the Las Vegas Trip Advisor

data=read.csv("lasvegas.csv")
View(data)

#1.BOXPLOT

boxplot(data$Nr..reviews ~ data$Nr..hotel.reviews,
        data = data,
        xlab = "Number of Reviews for Hotel",
        ylab = "Number of Reviews on TripAdvisor", 
        main = "Number of  Reviews vs Hotel Reviews",
        col="red"
)
legend("top",legend=c("BOXPLOT 20MID0215"))

#2.HISTOGRAM


hist(data$Hotel.stars,
     col="red",
     xlab="No of stars for hotel",
     ylab="Frequency",
     main="Histogram for Hotel Stars",
)
legend("top",legend=c("HISTOGRAM 20MID0215"))

#3.SCATTERPLOT

plot(x = data$Nr..reviews,y = data$Nr..hotel.reviews,
     xlab = "No of Reviews",
     ylab = "No of Hotel Reviews",
     xlim = c(0,170),
     ylim = c(0,170),        
     main = "Reviews vs Hotel Reviews",
     col="red"
)
legend("top",legend=c("SCATTERPLOT 20MID0215"))

#4.HEATMAP

mat<-as.matrix(data[c(2,3,4,5,15,16,18)])
heatmap(mat,col=rainbow(7))
legend("top",legend=c("HEATMAP 20MID0215"))

#5.BARPLOT

barplot(data$Nr..hotel.reviews,
        main="Hotel Reviews",
        col = "red"
)
legend("top",legend=c("BARPLOT 20MID0215"))

#6.LINEPLOT

plot(data$Nr..hotel.reviews,
     type="o",
     xlab = "Month",
     ylab = "Hotel Reviews",
     main = "Hotel Review chart",
     col="red"
)
legend("top",legend=c("LINEPLOT 20MID0215"))