R语言 将一列合并到另一列中,并在合并列中添加上标(在表中添加p值显著性)

qojgxg4l  于 2023-01-15  发布在  其他
关注(0)|答案(1)|浏览(151)

数据

a <- c("Green", "Red", "Blue", "Orange")
b <- c(100, 408, 39, 102)
c <- c(12000, 3100, 2410, 503)
d <- c("*", "*", "*", "***")
data <- data.frame(a, b, c, d)

data %>% 
  gt()

假设我有上面的 Dataframe ,有没有办法把d列中的星号变成c列的上标?12000 ^* 3100 ^* 等等?
我正在使用gt包来处理表...

iklwldmw

iklwldmw1#

一个选项是首先使用例如glue::glue创建HTML字符串,然后使用gt::fmt_markdown()将文本呈现为HTML:

library(gt)
library(dplyr)

data |> 
  mutate(c = glue::glue("{c}<sup>{d}</sup>")) |> 
  select(-d) |> 
  gt() |> 
  fmt_markdown(columns = c)

相关问题