更改ggplot2条的顺序,其中日期位于x轴上

时间:2011-07-18 19:50:59

标签: r ggplot2

我有以下数据,并尝试使用ggplot2在R中创建一个条形图,其中包含与日期值相关的值

conv = c(10, 4.76, 17.14, 25, 26.47, 37.5, 20.83, 25.53, 32.5, 16.7, 27.33)
click = c(20, 42, 35, 28, 34, 48, 48, 47, 40, 30, 30)

dat <- data.frame(date=c("July 7", "July 8", "July 9", "July 10", "July 11", "July 12", "July 13",
                         "July 14", "July 15", "July 16", "July 17"), click=c(click), conv=c(conv))
dat

但是,当我运行以下命令时,条形图的顺序不正确。

library(ggplot2)
ggplot(dat, aes(date, conv)) +  geom_bar(fill="#336699") + ylim(c(0,50)) +
        opts(title="") +
        opts(axis.text.y=theme_text(family="sans", face="bold", size=10)) +
        opts(axis.text.x=theme_text(family="sans", face="bold", size=8)) +
        opts(plot.title = theme_text(size=15, face="bold")) +
        xlab("") + ylab("")

变量日期从7月7日到7月17日正确订购,并且不知道为什么ggplot2有这个问题。是否有快速功能来解决此问题,而无需重新排序原始数据集中的数据。

1 个答案:

答案 0 :(得分:4)

您的排序顺序不起作用的原因是您有一个字符串,而不是日期。您最好的选择是将日期转换为日期格式:

dat$date <- as.Date(paste(dat$date, "2011"), format="%b %d %Y")

ggplot(dat, aes(as.character(date), conv)) +  geom_bar(fill="#336699") + 
    ylim(c(0,50)) +
    opts(title="") +
    opts(axis.text.y=theme_text(family="sans", face="bold", size=10)) +
    opts(axis.text.x=theme_text(family="sans", face="bold", size=8, angle=90)) +
    opts(plot.title = theme_text(size=15, face="bold")) +
    xlab("") + ylab("")

enter image description here