Я хочу создать хороший график временной шкалы, используя пакет временной шкалы в R, но я не уверен, как решить эти проблемы, которые у меня возникают с ним. Во-первых, эти бары складываются вверх, но я бы хотел, чтобы они были на одном уровне. Ось Y должна быть опущена. Ось X должна использовать метки из столбца StartLabel. Как я могу получить это там?

Вот код и данные:

require(data.table)
require(timeline)

setsTimeline <- data.table(Set=c("x","y","z","x","y","z","x","y","z","x","y","z","x"),
       StartDate=c(1380708900,1402963200,1420070400,1421280000,1410912000,1396310400,1397520000,1418860800,1404172800,1405382400,1395100800,1412121600,1413331200),
       EndDate=  c(1395099900,1404171900,1421279100,1430985600,1412120700,1397519100,1402962300,1420069500,1405381500,1410911100,1396309500,1413330300,1418859900))

setsTimeline[,StartLabel:=as.POSIXct(StartDate,tz="UTC",origin="1970-01-01")]
setsTimeline[,Group:=c("Timeline")]
setkey(setsTimeline,StartDate)

timeline(setsTimeline,label.col="Set",start.col="StartDate",end.col="EndDate",group.col="Group")

Примерно так мне хотелось бы увидеть:http://timelyportfolio.github.io/rCharts_time_series/assets/fig/unnamed-chunk-3.png

Но теперь это выглядит так:

Изменить: Так что, возможно, это безнадежное дело, потому что этот пакет просто еще не закончен. Мне удалось получить график без стека. Похоже, нужно определить групповую переменную. Но я все еще не могу понять, как изменить метки и добавить легенду. Похоже, этот график не отвечает обычным функциям графика. Я отредактировал код выше и вот текущий график: