在R和knitr中构建表时，在另一个变量上加上上标

我正在尝试构建一个表，我的一个变量后面应该有另一个变量上标。我可以在这里找到几个相关的答案，但它们都涉及需要上标的固定值，而不是像我这样的向量。
此外，大多数例子都涉及到情节图例，而不是像我的例子中那样的表格（尽管我认为这没有多大区别）

示例数据：

library(tidyverse)
library(knitr)

df <- crossing(
  X = seq(1:2),
  Y = c("A", "B"))

df

# A tibble: 4 x 2
      X Y    
  <int> <chr>
1     1 A    
2     1 B    
3     2 A    
4     2 B  

---

感谢您的帮助。

是否用于

pdf

输出？ 因为在这种情况下，以下方法可能有效：

library(tidyverse)
library(knitr)

df <- crossing(
    X = seq(1:2),
    Y = c("A", "B"))

df %>% mutate(
    New = paste0(X, "\\textsuperscript{", Y, "}")) %>% 
    kable(escape = FALSE)

库（tidyverse）
图书馆（knitr）
df%变异(
New=paste0（X，“\\textsuperscript{”，Y，“}”）%%>
kable（escape=FALSE）

---

使用

escape=FALSE

在表中添加乳胶。

是否用于

pdf

输出？ 因为在这种情况下，以下方法可能有效：

library(tidyverse)
library(knitr)

df <- crossing(
    X = seq(1:2),
    Y = c("A", "B"))

df %>% mutate(
    New = paste0(X, "\\textsuperscript{", Y, "}")) %>% 
    kable(escape = FALSE)

库（tidyverse）
图书馆（knitr）
df%变异(
New=paste0（X，“\\textsuperscript{”，Y，“}”）%%>
kable（escape=FALSE）

---

使用

escape=FALSE

在表中添加乳胶。

您可以使用

tableHTML

：

df <- data.frame(
  X = seq(1:2),
  Y = c("A", "B"))


library(dplyr)
library(tableHTML)

编辑

正如Steen所指出的，这也适用于

knitr

：

df %>% 
  mutate(X = paste0(X, "<sup>", Y, "</sup>")) %>% 
  select(X) %>% 
  knitr::kable(escape = FALSE)

df%>%
突变（X=0（X，“，Y，”）%>%
选择（X）%>%
knitr:：kable（escape=FALSE）

您可以使用

表格HTML

：

df <- data.frame(
  X = seq(1:2),
  Y = c("A", "B"))


library(dplyr)
library(tableHTML)

编辑

正如Steen所指出的，这也适用于

knitr

：

df %>% 
  mutate(X = paste0(X, "<sup>", Y, "</sup>")) %>% 
  select(X) %>% 
  knitr::kable(escape = FALSE)

df%>%
突变（X=0（X，“，Y，”）%>%
选择（X）%>%
knitr:：kable（escape=FALSE）

是

df%>%变异（New=paste0（X，“^”，Y））

你在找什么？谢谢。我今天晚上才离开电脑。我回来后第一件事就是检查一下。这看起来是一个简单有效的解决方案。检查它-脚本没有上标。是

df%>%mutate（New=paste0（X，“^”，Y））

您想要什么？谢谢。我今天晚上才离开电脑。我回来后第一件事就是检查一下。这看起来是一个简单有效的解决方案。检查它-脚本没有上标。谢谢。该代码实际上也适用于knitr:：kable（escape=FALSE）。您想更新您的答案以包含该内容吗？当然，谢谢您指出。根据建议，我已经更新了答案。谢谢。该代码实际上也适用于knitr:：kable（escape=FALSE）。您想更新您的答案以包含该内容吗？当然，谢谢您指出。根据建议，我已经更新了答案。