要绘制按时间绘制的R Shiny图表，可以使用plotly包来创建交互式图表，并结合shiny包创建交互式应用程序。下面是一个简单的示例代码，演示如何按时间绘制交互式的折线图。

首先，需要安装和加载所需的包：

install.packages("shiny")
install.packages("plotly")
library(shiny)
library(plotly)

接下来，创建一个app.R文件，并将以下代码复制到文件中：

# 定义UI界面
ui <- fluidPage(
  titlePanel("按时间绘制的图表"),
  sidebarLayout(
    sidebarPanel(
      # 选择数据文件
      fileInput("file", "选择数据文件（CSV格式）：",
                accept = c(".csv")
      )
    ),
    mainPanel(
      # 显示图表
      plotlyOutput("plot")
    )
  )
)

# 定义服务器逻辑
server <- function(input, output) {
  
  # 读取数据文件
  data <- reactive({
    req(input$file)
    read.csv(input$file$datapath, header = TRUE)
  })
  
  # 绘制图表
  output$plot <- renderPlotly({
    data <- data()
    
    # 将时间列转换为日期格式
    data$time <- as.Date(data$time)
    
    # 创建交互式折线图
    p <- plot_ly(data, x = ~time, y = ~value, type = 'scatter', mode = 'lines')
    
    # 设置图表的标题和轴标签
    p <- p %>% layout(title = "按时间绘制的图表",
                      xaxis = list(title = "时间"),
                      yaxis = list(title = "数值"))
    
    # 返回图表
    p
  })
}

# 运行Shiny应用程序
shinyApp(ui, server)

保存文件后，在R中运行以下命令启动Shiny应用程序：

shiny::runApp('app.R')

运行后，将显示一个包含一个文件选择器和一个交互式折线图的界面。选择包含时间和值数据的CSV文件后，图表将根据所选文件中的数据动态更新。

请注意，此示例假设数据文件具有以下结构：

time, value
2022-01-01, 10
2022-01-02, 20
...

您可以根据实际的数据文件结构进行适当的更改。此外，您还可以根据需要自定义图表的样式和布局。