能否在Shiny应用中通过导入文件绘制timevis时间可视化图表？

你已经找对了方向——用外部文件（比如Excel）给timevis提供数据是非常常见的做法，你的示例代码思路没问题。下面我来帮你梳理几个关键注意事项，以及可以优化的地方：

核心要点确认 #

• 文件路径要准确：你的代码里用了read_excel("~/../Documents/timing.xlsx")，要确保这个路径和你实际的Excel文件位置完全匹配。如果是要部署Shiny应用给其他用户用，硬编码本地路径会失效，这时候建议用文件上传组件（后面会给示例）。
• Excel数据格式要符合timevis要求：timevis需要的数据框必须包含至少三个核心列：
  • id：每个条目唯一标识符（数字或字符串）
  • content：条目显示的文字内容
  • start：条目的开始时间（格式要能被R识别，比如YYYY-MM-DD）
    可选列比如end（结束时间）、group（分组）、className（自定义样式类）等，能让时间线更丰富。

你的代码优化版（本地固定路径） #

给你的代码加上注释，方便理解和维护：

library(shiny)
library(timevis)
library(readxl)

# 从本地Excel文件读取时间线数据，注意路径要匹配你的实际文件位置
timing <- read_excel("~/../Documents/timing.xlsx")

ui <- fluidPage(
  # 渲染timevis时间线输出
  timevisOutput("timeline")
)

server <- function(input, output, session) {
  output$timeline <- renderTimevis({
    # 将读取的Excel数据传入timevis生成可视化
    timevis(timing)
  })
}

shinyApp(ui = ui, server = server)

更灵活的交互式版本（用户上传文件） #

如果希望用户自己上传Excel文件而不用固定路径，可以用fileInput组件实现，这样应用的通用性更强：

library(shiny)
library(timevis)
library(readxl)

ui <- fluidPage(
  # 文件上传控件，限制只接受Excel格式
  fileInput("file_upload", "上传你的时间线Excel文件", accept = c(".xlsx", ".xls")),
  # 只有用户上传文件后才显示时间线
  conditionalPanel(
    condition = "input.file_upload !== null",
    timevisOutput("timeline")
  )
)

server <- function(input, output, session) {
  # 响应式读取用户上传的文件
  uploaded_data <- reactive({
    # 确保用户已经上传了文件才执行读取操作
    req(input.file_upload)
    read_excel(input.file_upload$datapath)
  })
  
  output$timeline <- renderTimevis({
    # 用上传的数据生成时间线
    timevis(uploaded_data())
  })
}

shinyApp(ui = ui, server = server)

示例Excel数据结构参考 #

为了确保timevis能正常渲染，你的Excel可以参考这个结构：

内容的提问来源于stack exchange，提问作者Kota Teja