如何从Excel导入数据，在R中使用timevis包创建时间线

1. 安装所需依赖包 #

# 首次运行先安装，之后可以跳过这一步
install.packages(c("readxl", "timevis", "dplyr", "htmlwidgets"))

2. 加载包并读取Excel数据 #

library(readxl)
library(dplyr)
library(timevis)
library(htmlwidgets)

# 替换引号内内容为你的Excel文件实际存储路径
df_raw <- read_excel("你的事件数据文件.xlsx")

如果你需要读取Excel中指定工作表，可以在read_excel中添加sheet参数，例如read_excel("文件路径.xlsx", sheet = "工作表名称")

3. 数据格式转换为timevis要求的结构 #

df_timeline <- df_raw %>%
  mutate(
    # 自动生成唯一ID
    id = row_number(),
    # 取第一列作为时间线显示的事件名称
    content = .[[1]],
    # 取第二列转换为日期格式，如有非标准日期可自定义format参数
    start = as.Date(.[[2]]),
    # 无结束日期则统一设为NA
    end = NA
  ) %>%
  # 保留timevis所需的核心字段
  select(id, content, start, end)

4. 生成可编辑时间线 #

# editable参数放在timevis函数内才会生效
timeline_obj <- timevis(df_timeline, editable = TRUE)

# 查看时间线
timeline_obj

# 可选：导出为HTML文件可随时在浏览器打开查看
saveWidget(timeline_obj, "家暴事件时间线.html", selfcontained = TRUE)

常见问题适配 #

• 若Excel日期为日月年格式（如13/03/2021），将start转换代码修改为as.Date(.[[2]], format = "%d/%m/%Y")
• 3000条数据加载时存在数秒延迟为正常现象，可新增分类列后在timevis中添加groups参数实现分类展示，浏览效率更高
• 如需调整时间线样式、添加事件点击交互，可参考timevis包官方文档设置对应参数

内容的提问来源于stack exchange，提问作者Gabriel Cordeiro Nugget