如何优雅吃瓜 -- 用R Shiny App制作王力宏事件可交互时间线

Mengkelyu

R里有一个叫做timevis的包，和Shiny结合使用可以进行交互时间线图的制作。

做出的时间线图支持滚轮缩放和拖曳等基本的交互功能。示例图如下：

可以看到事件的高潮发生在18日，双方的斗争相当激烈，直到20日，随着王力宏的道歉逐渐停歇。

library(shiny)
library(timevis)

data <- data.frame(
  id      = 1:8,
  content = c("宣布离婚", "李靚蕾发布小作文",
              "英菲尼迪宣布终止和王力宏的合作", "Yumi 社交平台发布报警信息", "李靚蕾反击","王力宏爸爸写亲笔信","王力宏反击","王力宏道歉"),
  start   = c("2021-12-15", "2021-12-17",
              "2021-12-18", "2021-12-18", "2021-12-18", "2021-12-18", "2021-12-19", "2021-12-20"),
  end     = c(NA, NA,NA, NA,NA, NA,NA, NA)
)

ui <- fluidPage(
  timevisOutput("timeline")
)

server <- function(input, output, session) {
  output$timeline <- renderTimevis({
    timevis(data)
  })
}

shinyApp(ui = ui, server = server)

参考文献：
https://www.womensweekly.com.sg/gallery/entertainment/wang-leehom-and-li-jinglei-saga-timeline/?utm_source=facebook&utm_medium=social-organic&utm_keyword=dlvr.it

Mengkelyu

如果想要更加Fancy一点，可以试试把这些Message分成两组，jinglei组和Lihong组，并且用Editable的格式，让我们可以编辑每一条时间线

library(shiny)
library(timevis)

data <- data.frame(
  id      = 1:8,
  group = c("WLH","LJL","LJL","WLH","LJL","WLH","WLH","WLH"),
  content = c("宣布离婚", "李靚蕾发布小作文",
              "英菲尼迪宣布终止和王力宏的合作", "Yumi 社交平台发布报警信息", "李靚蕾反击","王力宏爸爸写亲笔信","王力宏反击","王力宏道歉"),
  start   = c("2021-12-15", "2021-12-17",
              "2021-12-18", "2021-12-18", "2021-12-18", "2021-12-18", "2021-12-19", "2021-12-20"),
  end     = c(NA, NA,NA, NA,NA, NA,NA, NA)
)
group<- data.frame(
  id      =c("WLH","LJL"),
  content = c("王力宏方","李靚蕾方")
)



ui <- fluidPage(
  timevisOutput("timeline")
)

server <- function(input, output, session) {
  output$timeline <- renderTimevis({
    timevis(data,groups=group, options = list(editable = TRUE))
  })
}

shinyApp(ui = ui, server = server)

ekuo

這是我看過最有趣的應用.

Mengkelyu

@ekuo 哈哈，谢谢