0

我是 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())
4

1 回答 1

0
  1. stringsAsFactors=F在您读取数据时添加。通常应该这样做，除非你有理由不这样做。
  2. 检查str(parkride)并注意您的数字是以字符形式出现的。您可能需要清理数据，因为并非每个值都是数字。
  3. 将要绘制为数字的列重新编码
  4. 删除 NA 的子集，或手动清理数据。
  5. 在 geom_point 中添加颜色
  6. 组主题一起变化。

  7. 使用 xlim 的长形式，scale_x_continous由于因素和字符，它以前不起作用。

    parkride <- read.xls（“ http://www.psrc.org/assets/5748/parkandride-2010.xls ”，2，skip=1，stringsAsFactors=F）

    parkride$Capacity <- as.numeric(parkride$Capacity) parkride$Occupancy <- as.numeric(parkride$Occupancy)

    pr_subset <- 子集（停车，！i​​s.na（容量）和！is.na（占用））

    plot1 <- ggplot(pr_subset, aes(Capacity, Occupancy)) + geom_point(colour="blue") + scale_x_continuous(c(0, 2500)) + theme(legend.title=element_blank(), legend.text=element_blank( ), legend.key=element_blank(), legend.background=element_blank() ) + ggtitle("Puget Sound Park and Ride \nLots Capacity and Occupancy")

    情节1

其中很多都是通过反复试验学到的。尝试阅读“R Graphics Cookbook”等书籍中的教程。

于 2013-10-25T15:23:19.340 回答