У меня есть два вопроса относительно создания вертикальной шкалы времени в R с использованием timevis и shiny. Надеюсь, кто-нибудь сможет мне помочь. Заранее благодарим за ответ! (кстати, я все еще новичок в R)
1: Все временные шкалы, закодированные с помощью timevis, я вижу горизонтальные (Y = 0). Можно ли изменить ориентацию на вертикальную шкалу времени?
2: Возможно ли иметь текст с позицией «-1» слева от шкалы времени и текст с позицией «1» справа сторона временной шкалы?
Код, взятый с веб-сайта Cran, выглядит следующим образом:
data <- data.frame(
id = 1:4,
content = c("Item one", "Item two",
"Ranged item", "Item four"),
start = c("2016-01-10", "2016-01-11",
"2016-01-20", "2016-02-14"),
position = c(-1, 1, -1, 1)
)
library(shiny)
library(timevis)
if (interactive()) {
shinyApp(
ui = fluidPage(
timevisOutput("timeline"),
),
server = function(input, output) {
output$timeline <- renderTimevis(
timevis(data.frame(start = data$start, content = data$content))
)
observeEvent(input$btn, {
setItems("timeline",
data.frame(start = data$start))
})
}
)
}