我的 df 有兩個數值變數(正值和負值)和 2 個分類變數。因為我想繪制具有相同顏色形狀/邊界的負條,所以我在資料框中手動指定顏色并使用下面的代碼。Howvwer 當我在條形上移動滑鼠時,資訊顯示不正確,所以我可以在 ggplotly 中自定義懸停嗎?
df <- data.frame(model = c("A","B","C","D","B","C"),
category = c("origin", "origin","origin","abroad","abroad","abroad"),
pos = c(40,50,45,100,105,80),
neg = c(-10,-5,-4,-16,-7,-2),
Colour = c("chocolate","deeppink4","yellow","steelblue3","deeppink4","yellow"))
Colour <- as.character(df$Colour)
Colour <- c(Colour,"white")
names(Colour) <- c(as.character(df$model),"white")
df <- df %>% pivot_longer(., cols=c('pos','neg'),
names_to = 'sign') %>%
mutate(Groups = paste(category, model),
sign = factor(sign, levels = c("neg", "pos")))
plot <- ggplot()
# plot positive with fill and colour based on model
geom_col(aes(value, tidytext::reorder_within(model, value, category),
fill = model, color = model),
data = df[df$sign == "pos", ],
position = "stack")
# plot negative with colour from based on model, but fill fixed as "white"
geom_col(aes(value, tidytext::reorder_within(model, value, category),
color = model),
data = df[df$sign == "neg", ],
fill = "white",
position = "stack")
# the rest is same as OP's code
tidytext::scale_y_reordered()
labs(fill = "model")
facet_grid(category ~ ., switch = "y",scales = "free_y")
theme(axis.text.x = element_text(angle = 90),
strip.background = element_rect(fill = "white"),
strip.placement = "outside",
strip.text.y.left = element_text(angle = 0),
panel.spacing = unit(0, "lines"))
theme(legend.position="none")
labs( title = "BarPlot",
subtitle = "changes",
y = " ")
ggplotly(plot)
uj5u.com熱心網友回復:
我不知道你希望你的標簽看起來如何。我試圖提供足夠的代碼注釋,以便您可以根據需要對其進行定制。
plotly_build
為了改變這個情節,我開始使用ggplot
物件。然后我從每個跟蹤的現有文本中提取重要元素:模型、類別和值。然后我重新組合資訊并將其注入到情節中。
plt <- plotly_build(plot)
invisible(
lapply(1:length(plt$x$data),
function(i){
tx <- plt$x$data[[i]]$text
tr <- strsplit(tx, "<br />")
mo <- strsplit(tr[[1]][3], ": ")[[1]][2] # extract the model
ca <- strsplit(tr[[1]][2], "___")[[1]][2] # extract the category
va <- strsplit(tr[[1]][1], ": ")[[1]][2] # extract the value
str <- paste0("Model: ", mo, "<br />",
"Category: ", ca, "<br />",
"Value: ", va)
plt$x$data[[i]]$text <<- str # update the plot object
})
)
plt
轉載請註明出處,本文鏈接:https://www.uj5u.com/ruanti/485874.html