使用R包timevis和Shining创建垂直时间线

关于使用timevis和shiny在R中创建垂直时间轴，我有两个问题。希望有人能帮助我。提前感谢您的回复！（顺便说一句，我还是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))
    })
  }
)
}

---

数据不，这是不可能的
timevis
基于javascript库
vis.js
4.16.1版，此库没有垂直选项。
感谢您的快速回复！然后，我将继续使用包ggplot（现在也只是水平的）。但是如果我没有成功，我会把我的问题发布在一个新的网站上thread@EvaA很高兴我能帮忙。如果答案是有用的，请考虑接受它。当然，如果你有更多的问题，可以问一个新的问题。我试过了，但我对堆栈溢出还不熟悉，而且只有1个（15个）的声誉。这很有帮助，所以当我有足够的时间时，我会投票支持你的答案