add add_vrect and add_hrect to plotly R library

I am trying to add vertical lines and rectangles that span an entire plot axis. The created polygon or line should not affect the autoscale functionality of plotly. This functionality is implemented in the python library using the functions add_hrect and add_vrect as exemplified here: https://plotly.com/python/horizontal-vertical-shapes/

In the python tab section 'Adding Text Annotations' the autoscaling functionality is maintained when toggling on/off legend items. This is not the case for the R-version of the script.

首先检查 R library 现有的多边形、线条和图例切换行为，然后将其与 issue 中链接的 Python horizontal-vertical-shapes example 进行比较。完成标准是：R library 中提供 add_vrect 和 add_hrect，跨越绘图轴的 shapes 不影响 autoscaling，并且切换图例项时 autoscaling 仍然正确。