我想使用 ggplot 动态更改轴标签。下面的代码是我想做的一个简单版本。它在 y 轴上正确显示了一个度数符号。注释掉的 ylab 代码行是我想做但失败的事情。我想创建 plotmath 代码,将它分配给一个变量(例如 yLabel),然后让 ggplot 解释它。
library(data.table)
library(ggplot2)
DT <- data.table(timeStamp=c(1:12), ColN1=runif(12, 0, 10))
DT.long <- data.table::melt(
DT, id.vars = c("timeStamp"))
yLabel <- "Temperature~(~degree~F)"
yLabel1 <- expression("Temperature~(~degree~F)")
p <- ggplot(data = DT.long, aes(x = timeStamp, y = value)) +
xlab("Time") +
# ylab( expression(paste("Value is ", yLabel,","))) +
# ylab(yLabel) +
# ylab(yLabel1) +
ylab(Temperature~(~degree~F)) +
scale_y_continuous() +
theme_bw() +
geom_line()
print(p)
最佳答案
使用 bquote
这是您的动态组件
temp <- 12
将其分配给标签使用
ylab(bquote(Temperature ~is ~ .(temp) ~(degree~F)))
或者在下面解决您的其他问题
V = "Temperature is ("~degree~"F)"
W = "depth is ("~degree~"C)"
ggplot(data = DT.long, aes(x = timeStamp, y = value)) +
xlab("Time") +
ylab(bquote(.(V)))
ggplot(data = DT.long, aes(x = timeStamp, y = value)) +
xlab("Time") +
ylab(bquote(.(W)))
关于r ggplot 动态使用 plotmath 表达式,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/47744333/