问题描述
我使用ggplotly创建了以下图形。我正在寻找一种解决方案，可以在悬停显示中删除图例条目。我只希望将鼠标悬停在显示器上以显示日期（x轴）和值（y轴）。
p1 <- ggplot(sa_inflation,aes(Date,Rate,col=Key)) +
geom_line(size = 1.2) +
theme_bw() +
labs(y='Annual Inflation Rate (%)') +
theme(legend.title = element_blank()) +
scale_colour_manual(values=c('#75002B','#EFBE93')) +
scale_x_date(breaks = seq(head(sa_inflation$Date,1),tail(sa_inflation$Date,by = '1 year'),date_labels = '%b-%Y')
p1 %>% ggplotly() %>%
add_annotations(xref='paper',yref='paper',x=1,y=-0.07,text='*Source - FRED',showarrow=F,font=list(size=10,color='black')) %>%
add_annotations(xref='paper',y=1.035,text='*Core Inflation excludes food and energy items in consumer basket',color='black'))
这是我的数据集的可复制内容
structure(list(Date = structure(c(17045,17075,17106,17136,17167,17198,17226,17257,17287,17318,17348,17379,17410,17440,17471,17501,17532,17563,17591,17622,17652,17683,17713,17744,17775,17805,17836,17866,17897,17928,17956,17987,18017,18048,18078,18109,18140,18170,18201,18231,18262,18293,18322,18353,18383,18414,17045,18414),class = "Date"),Key = c("Headline","Headline","Core","Core"
),Rate = c(6.466,6.774,6.867,7.066,6.794,6.492,6.127,5.247,5.339,5.005,4.357,4.564,4.858,4.632,4.418,4.5,4.274,3.835,3.718,4.301,4.288,4.377,5.049,4.85,4.826,5.096,4.402,3.908,4.072,4.528,4.405,4.393,4.473,3.974,4.348,4.144,3.666,3.568,4.033,4.404,4.55,4.061,2.873,2.059,2.141,5.7,5.846,5.613,5.938,5.398,5.332,4.76,4.749,4.666,4.685,4.431,4.467,4.303,4.267,4.176,3.953,4.062,4.304,4.389,4.031,4.178,3.946,4.13,4.161,4.255,4.351,4.291,4.369,4.41,4.114,4.003,4.311,4.073,4.365,4.042,3.888,3.891,3.757,3.583,3.767,3.566,3.225,3.11,2.904)),row.names = c(NA,-92L),class = c("tbl_df","tbl","data.frame"))
解决方法
尝试一下：
p1 %>% ggplotly(tooltip = c("Date","Rate")) %>% add_annotations(xref='paper',yref='paper',x=1,y=-0.07,text='*Source FRED',showarrow=F,font=list(size=10,color='black')) %>% add_annotations(xref='paper',y=1.035,text='*Core Inflation excludes food and energy items in consumer basket',color='black'))
通过tooltip = c("Date","Rate")位，您可以指定要在图例中显示哪些变量