----------------------------------------------
movie<-read.csv("Movie-Ratings.csv")
colnames(movie)<-c("Film","Genre","CriRating","AudRatining","BMill","Year")
movie$Year<-factor(movie$Year)
head(movie)
summary(movie)
library(ggplot2)
ggplot(data=movie,
aes(x=CriRating,y=AudRatining,color=Genre,
size=BMill)) +
geom_point()
Myp<-ggplot(data=movie,
aes(x=CriRating,y=AudRatining,color=Genre,
size=BMill))
Myp
Myp + geom_point()
Myp + geom_line()
Myp + geom_point() + geom_line()
#########
Myp +geom_point(aes(size=CriRating))
Myp +geom_point(aes(color=BMill,size=CriRating))
Myp +geom_point(aes(color=BMill,size=AudRatining))
Myp +geom_point(aes(x=BMill))+
xlab("Budget in Milion")
Myp + geom_point() + geom_line()
Myp + geom_point() + geom_line(size=.4)
No comments:
Post a Comment