включить в строку r код в уценке с колонкой, имя которой использует серьезный акцент

Question

как включить в код r строки в уценке, когда имя вызываемого столбца использует `символ (серьезный акцент)?

---
title: "Untitled"
output: pdf_document
---

```{r}
df <- as.data.frame(c(9,3,4))
colnames(df) <- c("Depth (cm)")
```

The mean depth is `r mean(df$`Depth (cm)`)`

Я получаю" Ошибка при разборе (text = code, keep.source = FALSE)) ".

Есть идеи?

Answer 1

В качестве альтернативы:

---
title: "Untitled"
output: pdf_document
---

```{r}
df <- as.data.frame(c(9,3,4))
colnames(df) <- c("Depth (cm)")
```

The mean depth is `r mean(df[,1])`

производит

Answer 2

---
title: "Untitled"
output: pdf_document
---

```{r}
df <- as.data.frame(c(9,3,4))
colnames(df) <- c("Depth (cm)")
```

The mean depth is `r mean(df$"Depth (cm)")`