Как добавить текст в germ-rect и ggplotly?

Question

Я хотел бы добавить текст к сюжету.например, код не может добавить mytext к графику ply.test?Любой может дать помощь.Спасибо!

test.dat <- data.frame(xmin=c(0,1.5), ymin=c(-1,-1), xmax=c(1,2), ymax=c(1,1),        col=c("blue", "red"))
ggp.test <- ggplot() + geom_rect(data=test.dat, aes(xmin=xmin, ymin=ymin,    xmax=xmax, ymax=ymax, group = col), fill=test.dat$col) + theme_bw()
ggp.test

# How to add the text as hoverinfo?
ply.test <- plotly_build(ggp.test)
ply.test
mytext <- paste(test.dat$xmin,test.dat$ymin,sep = "")
style(ply.test, text = mytext, hoverinfo = "text", traces = c(0,1 ))

Answer 1

У меня работают следующие коды:

library(plotly)

test.dat <- data.frame(
 xmin=c(0,1.5), xmax=c(1,2),
 ymin=c(-1,-1), ymax=c(1,1), col=c("blue", "red") )

ggp.test <- ggplot(data=test.dat, 
 aes(xmin=xmin, ymin=ymin, xmax=xmax, ymax=ymax, group = col) ) +
  geom_rect(fill=test.dat$col) +
  theme_bw()

ply.test <- plotly_build(ggp.test)
mytext <- paste(test.dat$xmin,test.dat$ymin,sep = "")
style(ply.test, text = mytext, hoverinfo = "text", traces = c(1,2))

Он производит это: