我有一个带有某些文本层的barplot,与ggplot库一起正常运行,但是现在我想与ggplotly添加一些交互性,但是它无法显示文本层
我更新了所有软件包,但问题仍然存在
df = read.table(text = "
id year type amount
1 1991 HIIT 22
2 1991 inter 144
3 1991 VIIT 98
4 1992 HIIT 20
5 1992 inter 136
6 1992 VIIT 108
7 1993 HIIT 20
8 1993 inter 120
9 1993 VIIT 124
10 1994 HIIT 26
11 1994 inter 118
12 1994 VIIT 120
13 1995 HIIT 23
14 1995 inter 101
15 1995 VIIT 140
16 1996 HIIT 27
17 1996 inter 103
18 1996 VIIT 162
19 1997 HIIT 24
20 1997 inter 96
21 1997 VIIT 172
22 1998 HIIT 24
23 1998 inter 92
24 1998 VIIT 177
25 1999 HIIT 28
26 1999 inter 45
27 1999 VIIT 220
28 2000 HIIT 26
29 2000 inter 36
30 2000 VIIT 231", header = TRUE, sep = "")
df %>%
group_by(year) %>%
mutate(type = factor(type, levels = c("inter", "VIIT", "HIIT"))) %>%
mutate(ratio = amount / sum(amount)) %>%
ggplot(aes(x = factor(year), y = ratio, fill = type)) +
geom_bar(stat = "identity") +
geom_text(aes(label = percent(ratio)), position = position_stack(vjust = 0.5), size = 4) +
scale_y_continuous(name="", labels = percent) +
coord_flip() +
xlab("Pourcentage") +
ggtitle("Répartition des types par année") +
theme(plot.title = element_text(hjust = 0.5)) +
theme_minimal()-> gg
ggplotly(gg)
这是我用ggplot2和plotly得到的:
绘图(可以删除绘图工具栏吗?)
我在ggplot上的图形还可以,但是不能与ggplotly一起使用,我们可以解决它吗?
我的第二个问题是,是否可以删除工具栏上的工具栏(因为我们只能用鼠标来调整图形)?
谢谢
谢谢你的帮助
最佳答案
你可以做
gp <- ggplotly(gg)
for (x in 4:6)
gp$x$data[[x]]$x <- 1-gp$x$data[[x]]$x
gp$x$config$displayModeBar <- FALSE
gp
这个问题看起来像个错误。也许您想将其提交到Github。