r - R: プロットのインクリメント ラベルと背景をクリーンアップする

Question

私はRが初めてで、これは宿題です。簡単なグラフを作成するだけです。

各軸に 0、500、1000、1500、2000、および 2500 を追加して、プロットのインクリメント ラベルをクリーンアップする必要があります (他に何と呼ぶべきかわかりません)。また、背景の間隔を 100 の間隔に減らしたいと思います。また、すべての凡例要素を削除する簡単な方法を知っていれば、それはクールです。助けてくれてありがとう。

これが私のコードです。コンピューターにコピーして貼り付けるだけで、得られた厄介な結果を確認できると思います。

library("ggplot2")
library("lubridate")
library("reshape2")
library("gdata")

# PSRC park and ride data

 parkride <- read.xls("http://www.psrc.org/assets/5748/parkandride-2010.xls", 
                 sheet=2,
                 na.strings="*",
                 skip=1)

plot1 <- ggplot(parkride, 
            aes(x=Capacity, y=Occupancy, color="blue")) + 
  geom_point() + 
  xlim=c(0, 2500), ylim=c(0, 2500) +
  theme(axis.title.y=element_text(angle=0)) +
  ggtitle("Puget Sound Park and Ride \nLots Capacity and Occupancy") +
  theme(plot.title=element_text(face="bold", lineheight=1.25)) +
  scale_fill_discrete(guide=FALSE) +
  theme(legend.title=element_blank()) +
  theme(legend.text=element_blank()) +
  theme(legend.key=element_blank()) +
  theme(legend.background=element_blank())