我正在嘗試將文本添加到包含變數和希臘字母的圖中。我想顯示變數 pt 和 P_T 的值，但我希望希臘字母用于 alpha。下面的代碼給出了以下錯誤：
錯誤
f()：！美學必須是有效的資料列。有問題的美學：標簽=表達（...）。您是否輸入錯誤資料列的名稱或忘記添加 after_stat()？
任何幫助將不勝感激！
x <- rep(seq(1,5),3)
value <- runif(15)
alpha <- rep(c(0.5,0.6,0.7),each=5)
my_data <- data.frame(x=x,value=value,alpha=alpha)
pt=6
P_T=0.7
ggplot(data=my_data, aes(x=x, y=value,group=as.factor(alpha),color=as.factor(alpha)))
geom_line()
scale_x_continuous(name =paste("True Landmark PFS at", pt, "Months"), breaks=seq(1,5,1))
theme(plot.margin= unit(c(0.7, 0.7, 0.7,0.7), "cm"))
theme(plot.title = element_text(hjust = 0.5, size=12))
scale_y_continuous(name ="Probability of ESOE",breaks=seq(0,1,by=0.25),limits=c(0,1))
guides(color = guide_legend(title = expression(alpha)))
geom_text(aes(x=3, label=expression(paste("Posterior prob (True RMST at",pt,"month>",alpha,"|data>",P_T)), y=0.75),
angle=0, size=2.5, color="black")
uj5u.com熱心網友回復：
如果您只想顯示一個希臘字母，一個選項是簡單地使用 unicode，例如\u03B1for alpha。此外，由于您只想在繪圖中添加一個注釋，我建議您使用annotate多次geom_text添加注釋：
set.seed(123)
library(ggplot2)
ggplot(data = my_data, aes(x = x, y = value, group = as.factor(alpha), color = as.factor(alpha)))
geom_line()
scale_x_continuous(name = paste("True Landmark PFS at", pt, "Months"), breaks = seq(1, 5, 1))
theme(plot.margin = unit(c(0.7, 0.7, 0.7, 0.7), "cm"))
theme(plot.title = element_text(hjust = 0.5, size = 12))
scale_y_continuous(name = "Probability of ESOE", breaks = seq(0, 1, by = 0.25), limits = c(0, 1))
guides(color = guide_legend(title = expression(alpha)))
annotate(geom = "text", x = 3, label = paste("Posterior prob (True RMST at", pt, "month > \u03B1 | data>", P_T), y = 0.75,
angle = 0, size = 2.5, color = "black"
)
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/484477.html