我正在使用ggvis堆积的条形图来创建一个图形，其中x轴是日期的时间序列，y轴是频率。
但是，日期的格式为“2015年4月”，即数月和数年。
在ggvis中，这意味着我必须在数据框因子中生成日期。
我无法将这些月份日期转换为按日期排序的因素。相反，我得到了这个订单 “2015年4月，2015年6月，2015年5月”
这是我的代码：
selecteddates <- with(dailyIndMelt, dailyIndMelt[date >= as.Date(input$monthlydateInd[1]) & date <= as.Date(input$monthlydateInd[2]),])
selecteddates <- aggregate(selecteddates[,3],by=list(selecteddates$variable,substr(selecteddates$date,1,7)),sum)
colnames(selecteddates) <- c("industry", "date", "vacancyno")
selecteddates$date <- as.Date(paste(selecteddates$date,"-28",sep=""))
selecteddates <- selecteddates[order(as.Date(selecteddates$date)),]
selecteddates$date <- format(selecteddates$date, "%m %Y")
selecteddates$date <- factor(selecteddates$date)
levels(selecteddates$date) <- levels(selecteddates$date)[order(as.Date(levels(selecteddates$date), format="%m %Y"))]
levels(selecteddates)
答案 0 :(得分：2)
要按所需顺序获取级别，您可以将所需订单提供给levels的{{1}}参数。例如：
factor selecteddates$date <- factor(selecteddates$date,
levels=paste(month.abb, rep(2014:2015, each=12)))
是月份缩写的内置向量。 month.abb函数将月份缩写和年份值粘贴在一起，因此您可以获得正确的排序。我用了2014年和2015年的插图。只需将其更改为数据中出现的任何年份。
这里有paste声明，仅供参考：
paste理想情况下，您可以直接从数据中以编程方式获得所需的年份。如果您的日期以日期格式开头，您可以执行与此类似的操作：
paste(month.abb, rep(2014:2015, each=12))
[1] "Jan 2014" "Feb 2014" "Mar 2014" "Apr 2014" "May 2014" "Jun 2014" "Jul 2014" "Aug 2014"
[9] "Sep 2014" "Oct 2014" "Nov 2014" "Dec 2014" "Jan 2015" "Feb 2015" "Mar 2015" "Apr 2015"
[17] "May 2015" "Jun 2015" "Jul 2015" "Aug 2015" "Sep 2015" "Oct 2015" "Nov 2015" "Dec 2015"
在上面的代码中，library(lubridate) # For year function
# Fake date data
dates = seq(as.Date("2010-01-15"), as.Date("2015-01-15"), by="1 day")
# Extract the years from the dates and use them to create the month-year levels
levels = paste(month.abb, rep(sort(unique(year(dates))), each=12))
确保年份有序，即使日期不合规定。