Изменить ограничения оси на временной шкале googleVis

Я хотел бы установить конкретную дату начала и окончания для временной шкалы R googleVis. Например, я хотел бы, чтобы следующая диаграмма начиналась с 1780 и заканчивалась на 1815. Я искал документацию и пробовал некоторые параметры из других типов диаграмм, но мне не удалось заставить работать ни один из них.

library(googleVis)
datTL <- data.frame(Position=c(rep("President", 3), rep("Vice", 3)),
                        Name=c("Washington", "Adams", "Jefferson",
                               "Adams", "Jefferson", "Burr"),
                        start=as.Date(x=rep(c("1789-03-29", "1797-02-03", 
                                              "1801-02-03"),2)),
                        end=as.Date(x=rep(c("1797-02-03", "1801-02-03", 
                                            "1809-02-03"),2)))

    Timeline <- gvisTimeline(data=datTL, 
                             rowlabel="Name",
                             barlabel="Position",
                             start="start", 
                             end="end",
                             options=list(timeline="{groupByRowLabel:false}",
                                          backgroundColor='#ffd', 
                                          height=350,
                                          colors="['#cbb69d', '#603913', '#c69c6e']"))
    plot(Timeline)

введите здесь описание изображения


r googlevis
person Ian Wesley    schedule 04.04.2018    source источник
comment
Если это невозможно, пожалуйста, дайте мне знать.   -  person Ian Wesley    schedule 05.04.2018

Ответы (1)


arrow_upward
1
arrow_downward

Вы можете указать minValue и maxValue горизонтальной оси через hAxis в следующих опциях:
option=list(hAxis="{minValue: new Date(1785, 0, 0), maxValue: new Date(1810, 0, 0)}"))

Весь сюжет будет таким:

library(googleVis)
datTL <- data.frame(Position=c(rep("President", 3), rep("Vice", 3)),
                    Name=c("Washington", "Adams", "Jefferson",
                           "Adams", "Jefferson", "Burr"),
                    start=as.Date(x=rep(c("1789-03-29", "1797-02-03", 
                                          "1801-02-03"),2)),
                    end=as.Date(x=rep(c("1797-02-03", "1801-02-03", 
                                        "1809-02-03"),2)))

option_list <- list(timeline="{groupByRowLabel:false}",
                    backgroundColor='#ffd', 
                    height=350,
                    colors="['#cbb69d', '#603913', '#c69c6e']",
                    hAxis="{minValue: new Date(1785, 0, 0), maxValue: new Date(1810, 0, 0)}")

Timeline <- gvisTimeline(data=datTL, 
                         rowlabel="Name",
                         barlabel="Position",
                         start="start", 
                         end="end",
                         options=option_list)
plot(Timeline)
person raymkchow    schedule 13.04.2018