0

我正在尝试为 3 个站点的每个日期的通过次数创建一个条形图。这是我最初的工作：

Test <- read.csv("Test.csv")
head(Test)
str(Test)

> head(Test)
      Date         Site Passes
1 20111223 Met Mast 10m      8
2 20111224 Met Mast 10m      4
3 20111225 Met Mast 10m     27
4 20111226 Met Mast 10m      4
5 20111227 Met Mast 10m     20
6 20111228 Met Mast 10m     11

> str(Test)
'data.frame':   26 obs. of  3 variables:
 $ Date  : int  20111223 20111224 20111225 20111226 20111227 20111228 20111229     
 20111230 20111231 20111223 ...
 $ Site  : Factor w/ 3 levels "Control","Met Mast 10m",..: 2 2 2 2 2 2 2 2 2 3 ...
 $ Passes: int  8 4 27 4 20 11 17 0 41 6 ...

我正在使用 ggplot，所以我加载库并使用 qplot：

library(ggplot2)
qplot(Date, data=Test, geom ="bar", position="dodge", fill=Site, binwidth=0.5,    
weight = Passes) +
scale_y_continuous("Number of Passes")

我得到了一个完美的图表（抱歉我不能发布图片）这正是我想要的，x 轴上的日期，y 轴上的通过次数，以及并排绘制的 3 个因素每个日期都有一个传说。

我在我的数据子集（即只有 26 个观察值）上测试了我的方法和代码，以确保它可以正常工作。现在我想为包含 97 个观察值的所有数据绘制相同的图表。

问题：

当我为所有数据运行代码时，输​​出是一个空白图表，带有正确标记的轴和图例。在 x 轴上，日期格式从通常的 20111223 更改为 20112500，这是没有意义的，我不知道为什么。

我已经阅读了这个论坛上的许多 ggplot2 和 qplot 问题，但我没有找到任何遇到类似问题的人。因为我的绘图可以使用很少的数据点，所以我认为这可能是 x 轴刻度的问题，但我不确定。为什么剧情是空白的？

请帮忙 ：）

> dput(Test)
structure(list(Date = c(20111223L, 20111224L, 20111225L, 20111226L, 
20111227L, 20111228L, 20111229L, 20111230L, 20111231L, 20120101L, 
20120102L, 20120103L, 20120104L, 20120105L, 20120106L, 20120107L, 
20120108L, 20120109L, 20120110L, 20120111L, 20120112L, 20120113L, 
20120114L, 20120115L, 20120116L, 20120117L, 20120118L, 20120119L, 
20120120L, 20120121L, 20120122L, 20120123L, 20120124L, 20120125L, 
20120126L, 20120127L, 20111223L, 20111224L, 20111225L, 20111226L, 
20111227L, 20111228L, 20111229L, 20111230L, 20111231L, 20120101L, 
20120102L, 20120103L, 20120104L, 20120105L, 20120106L, 20120107L, 
20120108L, 20120109L, 20120110L, 20120111L, 20120112L, 20120113L, 
20120114L, 20120115L, 20120116L, 20120117L, 20120118L, 20120119L, 
20120120L, 20120121L, 20120122L, 20120123L, 20120124L, 20120125L, 
20120126L, 20120127L, 20111222L, 20111223L, 20111224L, 20111225L, 
20111226L, 20111227L, 20111228L, 20111229L, 20111230L, 20111231L, 
20120101L, 20120102L, 20120103L, 20120104L, 20120105L, 20120106L, 
20120107L, 20120108L, 20120109L, 20120110L, 20120111L, 20120112L, 
20120113L, 20120114L, 20120115L), Site = structure(c(2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("Control", 
"Met Mast 10m", "Met Mast 17m"), class = "factor"), Passes = c(8L, 
 4L, 27L, 4L, 20L, 11L, 17L, 0L, 41L, 6L, 9L, 29L, 38L, 5L, 38L, 
12L, 6L, 14L, 18L, 35L, 36L, 8L, 23L, 25L, 0L, 0L, 0L, 37L, 53L, 
59L, 205L, 15L, 2L, 14L, 6L, 6L, 6L, 6L, 29L, 4L, 26L, 12L, 12L, 
3L, 21L, 20L, 17L, 31L, 79L, 10L, 59L, 12L, 6L, 18L, 21L, 27L, 
31L, 14L, 40L, 37L, 0L, 0L, 0L, 52L, 52L, 63L, 0L, 30L, 2L, 14L, 
14L, 4L, 41L, 296L, 115L, 470L, 171L, 589L, 96L, 306L, 44L, 131L, 
244L, 75L, 217L, 252L, 304L, 313L, 250L, 315L, 121L, 298L, 247L, 
222L, 161L, 335L, 173L)), .Names = c("Date", "Site", "Passes"
), class = "data.frame", row.names = c(NA, -97L))
4

1 回答 1

1

如果它适用于您的数据子集，则很可能您的数据中有一些意外（NA 等）。如果不查看数据，就不可能确切地知道发生了什么。如果您提供数据dput(data)，您可能会得到更好的答案。

于 2013-07-05T10:37:50.697 回答