25 limits and theme settings in R language

---------------------------------------
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)
r<- ggplot(data=movie,
           aes(x=CriRating,y=AudRatining,
               color=Genre,
               size=BMill))
r + geom_point()
# movies with higest rating
#limits
r + geom_point() +
  xlim(50,100)+
  ylim(50,100)
r + geom_point() +
  xlim(1,50)+
  ylim(1,50)

r + geom_point() +
 coord_cartesian(ylim = c(1,50),
                 xlim = c(1,50))
r + geom_point() +
  coord_cartesian(ylim = c(80,100),
                  xlim = c(80,100))
# theme
r<- ggplot(data=movie,
           aes(x=BMill))
r + geom_histogram(binwidth = 10,
                   aes(fill=Genre),
                   color="Black")

k <- r + geom_histogram(binwidth = 10,
                        aes(fill=Genre),
                        color="Black")
k
k +
  xlab("Budget Money")+
  ylab("number Of Movies")
#####
k +
  xlab("Budget Money")+
  ylab("number Of Movies")+
  theme(axis.title.x = element_text(color = "Green",size=30),
        axis.title.y = element_text(color = "red",size=30)
        )

?theme

k +
  xlab("Budget Money")+
  ylab("number Of Movies")+
  theme(axis.title.x = element_text(color = "Green",size=30),
        axis.title.y = element_text(color = "red",size=30),
        legend.title = element_text(size=30),
        legend.text = element_text(size=20),
        legend.position = c(1,1)
  )

k +
  xlab("Budget Money")+
  ylab("number Of Movies")+
  theme(axis.title.x = element_text(color = "Green",size=30),
        axis.title.y = element_text(color = "red",size=30),
        legend.title = element_text(size=30),
        legend.text = element_text(size=20),
        legend.position = c(1,1),
        legend.justification = c(1,1)
  )
k +
  xlab("Budget Money")+
  ylab("number Of Movies")+
  ggtitle("Movie Budget Graph")+
  theme(axis.title.x = element_text(color = "Green",size=30),
        axis.title.y = element_text(color = "red",size=30),
        legend.title = element_text(size=30),
        legend.text = element_text(size=20),
        legend.position = c(1,1),
        legend.justification = c(1,1)
  )
#####
k +
  xlab("Budget Money")+
  ylab("number Of Movies")+
  ggtitle("Movie Budget Graph")+
  theme(axis.title.x = element_text(color = "Green",size=30),
        axis.title.y = element_text(color = "red",size=30),
        legend.title = element_text(size=30),
        legend.text = element_text(size=20),
        legend.position = c(1,1),
        legend.justification = c(1,1),
        plot.title = element_text(color="darkred",size=30,
                                  family="Courier")
  )