这是我的后续原问题 https://stackoverflow.com/questions/63813557/how-to-pass-an-expression-to-a-geom-text-label-in-ggplot了解如何将带下标的表达式传递给 ggplot 中的 geom_text 标签。
Duck https://stackoverflow.com/users/2080848/duck提供了一个很好的解决方案parse = T
内geom_text()
命令。但是,我现在遇到了一个问题,因为我希望传递表达式的变量包含其他无法读取的内容parse = T
这是我当前的代码(再次感谢Duck https://stackoverflow.com/users/2080848/duck对于此解决方案):
library(ggplot2)
library(tidyverse)
#Data
my_exp <- as.character(expression('my_exp'[s][u][b]))
my_data <-
data.frame(
var_1 = c("9R", "14M", "17C"),
var_2 = c(1, 2, 3),stringsAsFactors = F
)
#Mutate
my_data$label <- ifelse(my_data$var_1=='9R',my_exp,my_data$var_1)
#Plot
my_data %>%
ggplot(aes(x = var_1, y = var_2))+
geom_text(aes(label = label),parse = T)
这是我尝试渲染 ggplot 时出现的错误输出:
> library(ggplot2)
> library(tidyverse)
> #Data
> my_exp <- as.character(expression('my_exp'[s][u][b]))
> my_data <-
+ data.frame(
+ var_1 = c("9R", "14M", "17C"),
+ var_2 = c(1, 2, 3),stringsAsFactors = F
+ )
> #Mutate
> my_data$label <- ifelse(my_data$var_1=='9R',my_exp,my_data$var_1)
> #Plot
> my_data %>%
+ ggplot(aes(x = var_1, y = var_2))+
+ geom_text(aes(label = label),parse = T)
Error in parse(text = text[[i]]) : <text>:1:3: unexpected symbol
1: 14M
^
>
看来 R 很难读取我未传递表达式的单元格。有没有办法让 R 只解析相关的单元格?
Thanks!