Rおよびggplot2チャートの余分なラベルの削除

Question

以下のRおよびggplot2スクリプトを実行すると、次のスナップショットが生成されます。任意のボックスをホバリングすると、プロットに示すように、次のツールチップが表示されます。私の単純な要件は、それが第3のものに似ているので、第4のツールチップ属性を取り除くことです。私は何かがgesplotコマンドのaes（）の下で行われる必要があると思います。テキストは、プロットやフォントのサイズを増やすことなく、より明確にすることができる場合は、助けてくれてありがとう。

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))