gpt4 book ai didi

r - 文本层在 ggplot 中工作,但用 ggplotly 删除

转载 作者:行者123 更新时间:2023-12-04 10:27:52 27 4
gpt4 key购买 nike

我有一个带有一些文本层的条形图,在 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 得到的:
enter image description here
Plotly(是否可以删除 plotly 工具栏?)
enter image description here
我在 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

enter image description here

这个问题看起来像一个错误。也许你想把它放在 Github 上。

关于r - 文本层在 ggplot 中工作,但用 ggplotly 删除,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/41650371/

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com