r - 如何在换行悬停标签上添加换行符

Question

有没有一种方法可以使多行显示悬停文本/使其能够识别文本中的特殊字符行'\ n'？

我想要做的一个虚拟版本是:

data <- data.frame(cbind(rnorm(10, 8), rnorm(10, 2)))
names(data)<-c("thing1", "thing2")

data$hovertext <- paste("here's a coordinate: ",
                         round(data$thing1,1), sep = "\n")


p <- plot_ly(data, type = 'scatter', x = thing1, y = thing2, 
             text = hovertext, hoverinfo = 'text', mode = "markers")

当然，哪一个仅忽略分隔符并全部打印在一行上。我可以欺骗/ R识别换行吗？

Answer 1

只需使用HTML标记<br>:

library(plotly)
data <- data.frame(cbind(rnorm(10, 8), rnorm(10, 2)))
names(data) <- c("thing1", "thing2")

data$hovertext <- paste("here's a coordinate:",
                     round(data$thing1,1), sep = "<br>")


p <- plot_ly(data, type = 'scatter', x = ~thing1, y = ~thing2, 
         text = ~hovertext, hoverinfo = 'text', mode = "markers")

此外，您还可以使用HTML标签来更改字体样式(以及更多)...