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())

Answer 1

在您读入数据时添加stringsAsFactors=F。通常应该这样做，除非你有理由不这样做。
检查str(parkride)并注意您的号码是以字符形式出现的。您可能需要清理数据，因为并非每个值都是数字。
将您要绘制为数字的列重新编码
用于删除NA或手动清理数据的子集。
在geom_point中添加颜色
组主题一起更改。
使用长期形式的xlim scale_x_continous因为因素和字符而无法使用。

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

parkride $ Capacity＆lt; - as.numeric（parkride $ Capacity） parkride $ Occupancy＆lt; - as.numeric（parkride $ Occupancy）

pr_subset＆lt; - subset（parkride，！is.na（容量）＆amp;！is.na（占用））

plot1＆lt; - ggplot（pr_subset，aes（容量，占用率））+ geom_point（color =“blue”）+ scale_x_continuous（c（0,2500））+ 主题（ legend.title = element_blank（）， legend.text = element_blank（）， legend.key = element_blank（）， legend.background = element_blank（））+ ggtitle（“Puget Sound Park and Ride \ nLots容量和占用率”）

plot1

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

R：清理绘图的增量标签和背景

1 个答案: