在R中的条件ifelse上添加上下标

【问题标题】：Adding upper subscript on conditional ifelse in R在R中的条件ifelse上添加上下标
【发布时间】：2020-05-13 12:31:28
【问题描述】：

我正在努力格式化Name 列，以便在Value 列大于10 时添加上标。有什么建议吗？这是一个示例数据集。

 tibble(Name = LETTERS[1:10], 
        Value = sample(5:15,10))

结果应该是这样的： A^1 当值大于 10 时

【问题讨论】：

标签： r if-statement case-when subscript

【解决方案1】：

set.seed(123)
d <- tibble(Name = LETTERS[1:10], 
       Value = sample(5:15,10)) %>%
  mutate(Name = if_else(Value>10, paste0(Name, "^1"), Name))


library(ggplot2)
ggplot(d, aes(Name, Value)) + geom_bar(stat = "identity") +
 scale_x_discrete("Axis label", labels = parse(text = d$Name)) +
  theme(axis.text.x = element_text(vjust=0))

【讨论】：

是的，谢谢，但我想要实际的下标，所以当我使用 ggplot 绘制它时，我会有漂亮的上标
那不太清楚，你的问题中没有提到 ggplot 。答案将取决于您要制作的情节。
是的，很抱歉，谢谢你的回答:)