如何为R语言leaflet包生成的地图添加全局无障碍替代文本？

我需要确保用leaflet包创建的地图能被屏幕阅读器识别替代文本，要给整个地图添加，就像静态图表那样。我知道可以给*标记点（markers）*加替代文本，但这不是我的目标。

我尝试过以下方法，但都没有成功：

• Quarto代码块的fig.alt选项
• leafletOptions中的alt参数（伪代码示例）

  library(leaflet)
  leaflet(options = leafletOptions(alt = "This is Spain.")) %>%
    addTiles() %>%
    setView(lng = -3.7, lat = 40.4, zoom = 5)
  

• 在Quarto代码块中用attr.source设置自定义HTML属性alt = "This alt text."

我正在使用Quarto RevealJS演示文稿，希望找到可行的解决方案。

可行解决方案 #

Leaflet生成的是交互式HTML容器而非静态图片，传统alt属性不适用，需改用屏幕阅读器支持的ARIA标签，针对Quarto RevealJS场景，推荐两种方法：

方法1：用HTML容器包裹地图并添加ARIA标签 #

直接用带aria-label的<div>包裹代码块输出，屏幕阅读器会读取该标签内容：

<div aria-label="西班牙地图，显示伊比利亚半岛区域，默认缩放级别为5">
```{r}
library(leaflet)
leaflet() %>%
  addTiles() %>%
  setView(lng = -3.7, lat = 40.4, zoom = 5)

方法2：通过JS给地图容器添加ARIA标签 #

先给Leaflet地图指定容器ID，再用JavaScript为容器添加aria-label属性：

```{r}
library(leaflet)
# 指定地图容器ID
leaflet(elementId = "spain-map") %>%
  addTiles() %>%
  setView(lng = -3.7, lat = 40.4, zoom = 5)

---

内容的提问来源于stack exchange，提问作者Wavedash