Question

我使用虹膜数据集在R中使用Plotly创建了一个散点图，并添加了两条参考线，其中一根在x轴上表示平均值Sepal.Width，另一根在y轴上表示平均值Sepal.Length。

下面是可执行的R代码：

library(dplyr)
library(plotly) 

iris <- datasets::iris

scatterplot <- plot_ly(data = iris, x = ~Sepal.Width, y = ~Sepal.Length, type = 'scatter',
                       text = ~Species,
                       color = I('orange')) %>%
               layout(shapes=list(list(type = 'line', 
                                     x0 = mean(iris$Sepal.Width), 
                                     x1 = mean(iris$Sepal.Width),
                                     y0 = 4, 
                                     y1 = 8, 
                                     line = list(width = 2)),
                                list(type = 'line', 
                                     x0 = 1.5, 
                                     x1 = 5, 
                                     y0 = mean(iris$Sepal.Length), 
                                     y1 = mean(iris$Sepal.Length), 
                                     line = list(width = 2))))

scatterplot

上面的R代码产生以下内容 Plotly output

我想为两条参考线（“平均分隔宽度”和“平均分隔长度”）添加注释文本（即标签）。

我遇到了similar post，但是那里提到的解决方案对我来说不起作用。如果有人可以向我提供代码的解决方案，那么将不胜感激。

PS：我正在使用Plotly版本4.8.0

Answer 1

以下代码解决了我的问题。希望对别人有帮助。

val FifoUnderFlow = Reg(init = Bool(false)) 

val fifo =Module(new AsyncQueue(UInt(width = c.bitwidth),c.depth,3,true,true)) 

// read attempt while not valid
when(!fifo.io.deq.valid & fifo.io.deq.ready) {
    FifoUnderFlow     := Bool(true)
 }

regmap(
       0x0 -> Seq(RegField(1, FifoUnderFlow, RegFieldDesc("fifo underflow","This Bit indicates that there 
                   was at least one read attempt while empty", 
                   access = RegFieldAccessType.R, 
                   rdAction =  Some(RegFieldRdAction.CLEAR)))
       )
  )

R Plotly-向散点图中的参考线添加注释

1 个答案: