我正在try 使用text = %{text}在Ploly栏中显示myvar1个值,并将其作为工具提示文本的一部分.然而,我的代码不能充分地生成工具提示,并且显示"%{Text}"而不是它的相应值(如下图所示).

Wrong tooltip

以下是我的代码:

library(plotly)
dfcom <- data.frame(
  myvar1 = c("Media", "Campaigns", "Website"),
  alcance = c(6814511L, 400000L, 225329L),
  type = c("viewers", "viewers", "viewers"))
plot_ly(
  dfcom,
  x = ~alcance, y = ~type,
  text = ~myvar1,
  textfont = list(color = I("white")),
  type = 'bar',
  color = ~myvar1,
  colors = c("chartreuse4", "darkolivegreen", "darkgreen"),
  showlegend = FALSE,
  hovertemplate = "%{x:,.0f} people reached by %{text} <extra></extra>") %>%
  layout(barmode = "stack")

推荐答案

我不确定为什么%{text}%{hovertext}失败了(here它在工作),但是%{customdata}似乎工作了:

library(plotly)
dfcom <- data.frame(
  myvar1 = c("Media", "Campaigns", "Website"),
  alcance = c(6814511L, 400000L, 225329L),
  type = c("viewers", "viewers", "viewers")
)
plot_ly(
  data = dfcom,
  x = ~ alcance,
  y = ~ type,
  text = ~ myvar1,
  # hovertext = ~ myvar1,
  customdata = ~ myvar1,
  textfont = list(color = I("white")),
  type = 'bar',
  color = ~ myvar1,
  colors = c("chartreuse4", "darkolivegreen", "darkgreen"),
  showlegend = FALSE,
  hovertemplate = "%{x:,.0f} people reached by %{customdata}<extra></extra>"
) %>%
  layout(barmode = "stack")

result

相关的GitHub问题可以在here上找到.

R相关问答推荐

使用spatVector裁剪网格数据时出现的问题

从gtsummary包中使用tBL_strata()和tBL_summary()时删除变量标签

格点中指数、双曲和反双曲模型曲线的正确绘制

手动打印线型gplot

制作等距离的线串副本

汇总数据表中两个特定列条目的值

如果某些列全部为NA,则更改列

在rpart. plot或fancyRpartPlot中使用带有下标的希腊字母作为标签?

如何计算R glm probit中的线性预测因子?

对R中的列表列执行ROW Mean操作

如何在刻面和翻转堆叠条形图中对齐geom_text()

隐藏基于 case 总数的值

有没有办法将勾选/审查标记添加到R中的累积关联图中?

无法保存gglot的所有pdf元素

在R中添加要打印的垂直线

Ggplot2:添加更多特定 colored颜色 的线条

将每晚的平均值与每晚的值进行比较,统计是否有效?

根据向量对列表元素进行排序

使用nls()函数的非线性模型的半正态图

通过不完全重叠的多个柱连接