ggplot2日期对象在水平轴上舍入

Question

当我在ggplot2中绘制时间序列对象时，其中水平轴是日期对象（月末日期），我发现日期以某种方式获得＆＃34;四舍五入＆＃34;到下个月初。例如，＆＃34; 2014年1月31日＆＃34;将出现在＆＃34; 2014年2月1日＆＃34;。下面提供一个例子。我怎样才能解决这个问题？谢谢！

fruits.sold <- data.frame(Date=c("1/31/2014", "1/31/2014", "2/28/2014", "2/28/2014", "3/31/2014", "3/31/2014"), 
                   Fruit=c("Apple", "Banana", "Apple", "Banana", "Apple", "Banana"), 
                   Sold=c(200, 300, 250, 350, 300, 400))

fruits.sold$Date <- as.Date(fruits.sold$Date, "%m/%d/%Y")

qplot(Date, Sold, colour=Fruit, data=fruits.sold)

Answer 1

您可以使用scale_x_date直接指定：

p <- qplot(Date, Sold, colour=Fruit, data=fruits.sold)
p + scale_x_date(breaks=fruits.sold$Date,
            labels=format(fruits.sold$Date,
                      format="%B %d %Y"))