Entfernen unnötige Etiketten in der tooptip in R und ggplot2 Chart

Question

Auf die R und ggplot2 Skript unten ausgeführt wird, wird die folgende Schnappschuss erzeugt wird. Wenn wir auf irgendeine Box schweben, erhalten wir den folgenden Tooltip, wie in der Zeichnung gezeigt. Meine einfache Anforderung ist, das vierte Tooltip-Attribut loszuwerden, da es dem dritten ähnlich ist. Ich denke, dass etwas im aes() des ggplot Befehls unten getan werden muss. Auch wenn der Text klarer gemacht werden kann, ohne die Größe der Handlung oder der Schrift zu vergrößern, bitte helfen Sie und danke.

library(bupaR) 
library(ggplot2) 
library(scales) 
library(plotly) 
library(splitstackshape) 
tr <- data.frame(traces(patients, output_traces = T, output_cases = F)) 
tr$Actuals = percent(tr$absolute_frequency/sum(te$absolute_frequency)) 
tr.df <- cSplit(tr, "trace", ",") 
pos <- c(1,4:ncol(tr.df)) 
tr.df <- tr.df[,..pos] 
tr.df <- melt(tr.df, id.vars = "trace_id") 
mp1 = ggplot(data = tr.df, aes(x = variable,y = trace_id, fill = value, 
label = value)) + geom_tile(colour = "white") + 
geom_text(colour = "white", size = 1.9) + 
scale_fill_discrete(na.value="transparent") + 
theme(legend.position="none") + labs(x = "Traces", y = "Activities") 
ggplotly(mp1, height = 500, width = 645) 

Answer 1

library(bupaR) 
library(ggplot2) 
library(scales) 
library(plotly) 
library(splitstackshape) 
tr <- data.frame(traces(patients, output_traces = T, output_cases = F)) 
tr$Actuals = percent(tr$absolute_frequency/sum(tr$absolute_frequency)) 
tr.df <- cSplit(tr, "trace", ",") 
pos <- c(1,4:ncol(tr.df)) 
tr.df <- tr.df[,..pos] 
tr.df <- melt(tr.df, id.vars = c("trace_id","Actuals")) 

mp1 = ggplot(data = tr.df, aes(x = variable, y = trace_id, fill = value, label = value, 
text=paste("Variable:",variable,"<br>Trace ID:",trace_id,"<br>Value:",value,"<br>Actuals:",Actuals))) + 
geom_tile(colour = "white") + 
geom_text(colour = "white", size = 4) + 
scale_fill_discrete(na.value="transparent") + 
theme(legend.position="none") + labs(x = "Traces", y = "Activities") 

gg <- ggplotly(mp1, tooltip="text") 
layout(gg, margin=list(l=50, b=50))