绘图 R 中的图形答案

【问题标题】：graph in plotly R绘图 R 中的图形
【发布时间】：2017-04-02 19:19:56
【问题描述】：

我是 plotly 的新手，我有问题要问你。

我有一个日期和值如下的数据集：

date             value
 01/01/2001     5
 ....
 01/01/2010     25

我用这段代码绘制它：

   plotr<- plot_ly(data,x = ~date, y = ~var,name='X',
                      type="scatter",mode='lines',
                      line = list(color = 'rgb(0, 0, 102)', width = 2 )) %>%
  layout(title = "My first graph",
         xaxis = list(title = "date"),
         yaxis = list (title = "number"))
  plotr

它工作正常，但我想在一个日期（例如 2013 年）用他的价值放一张便条...我在 plotly 网站上搜索，我找到了它，但我无法查看我的便条...

https://plot.ly/r/line-charts/

有人可以帮忙吗？

【问题讨论】：

我在 plot_ly 函数的签名中看不到任何“文本”参数
@edouard 你看到我的页面了吗？它的情节网站。你会发现它是“带注释的标签线”
更广泛地说，在您上面写下的几行中，没有添加注释的命令。因此，它不会出现在您的图表上。
@edouard 是的！我尝试但我跌倒了。这是因为我打开了这个问题...
有人可以看看我的问题吗？ stackoverflow.com/questions/65404432/… 谢谢

标签： r plot plotly

【解决方案1】：

下面的代码对你有帮助吗？

library(plotly)

x <- as.Date(c('2011-01-01','2012-01-01', '2013-01-01', '2014-01-01'))
y <- c(34, 24, 39, 15)
data <- data.frame(x, y)

annotation <- list(
x = data$x[2],
y = data$y[2],
text = 'My annotation',
showarrow = TRUE)

p <- plot_ly(data, x=~x) %>%
  add_trace(y=y, mode='lines')  %>%
  add_trace(x=~c(x[1], x[4]), y=~c(y[1], y[4]), type='scatter') %>%
  layout(title='My graph', annotations=annotation)

【讨论】：

你能看看我的问题吗？ stackoverflow.com/questions/65434105/… 谢谢

【解决方案2】：

你的文档是https://plot.ly/r/text-and-annotations/

还有你的例子：

date <- as.Date(c('2014-02-01','2015-01-11', '2016-03-01', '2017-02-01'))
var<- c(37, 54, 110, 125)
data <- data.frame(date, var)

plot_ly(data,x = ~date, y = ~var, name='X',
    type="scatter",mode='lines',
    line = list(color = 'rgb(0, 0, 102)', width = 2 )) %>%
add_annotations(x="2015-01-11", 
                y=data$var[data$date=="2015-01-11"],
                text=data$var[data$date=="2015-01-11"])

【讨论】：