R绘图仪范围选择器自动选择“；1W“；

现在我得到了一个在R中绘出的图形，带有以下范围选择器：

                xaxis = list(
                rangeselector = list(
                    buttons = list(
                        list(
                            count = 7,
                            label = "1W",
                            step = "day",
                            stepmode = "backward"),
                        list(
                            count = 1,
                            label = "1M",
                            step = "month",
                            stepmode = "backward"),
                        list(
                            count = 3,
                            label = "3M",
                            step = "month",
                            stepmode = "backward"),
                        list(
                            count = 6,
                            label = "6M",
                            step = "month",
                            stepmode = "backward"),
                        list(
                            count = 1,
                            label = "1J",
                            step = "year",
                            stepmode = "backward"),
                        list(
                            count = 2,
                            label = "2J",
                            step = "year",
                            stepmode = "todate"))),

                #rangeslider = list(type = "date")
                FALSE
            ),

我正在尝试自动选择“1W”，但在Plotly文档中找不到执行此操作的代码

---

可以这样做吗？

我不认为可以选择默认值，但是如果您添加与首选范围日期相同的范围=，则会得到相同的结果

如果最晚的日期是今天，则完整代码如下。如果您的数据框被称为“df”，并且日期在“Date”列中，则可以执行类似于

range=max（as.Date（df$Date））-7、max（as.Date（df$Date）））

的操作

在plotly的GitHub页面上打开并链接您的帖子。让我们看看这里能不能做点什么。

xaxis = list(
  range = c(Sys.Date()-7, Sys.Date()),
  rangeselector = list(
    buttons = list(
      list(
        count = 7,
        label = "1W",
        step = "day",
        stepmode = "backward"),
      list(
        count = 1,
        label = "1M",
        step = "month",
        stepmode = "backward"),
      list(
        count = 3,
        label = "3M",
        step = "month",
        stepmode = "backward"),
      list(
        count = 6,
        label = "6M",
        step = "month",
        stepmode = "backward"),
      list(
        count = 1,
        label = "1J",
        step = "year",
        stepmode = "backward"),
      list(
        count = 2,
        label = "2J",
        step = "year",
        stepmode = "todate"))),

  #rangeslider = list(type = "date")
  FALSE
),