在ggplot标签中的表达式中使用bquote粘贴变量

Question

PC1 <- 25

g <- ggplot(mtcars, aes(factor(cyl)))+ geom_bar() 

x坐标标签应为“PCA1（25％）”，其中“25”来自变量PC1。

我在尝试：

g +  xlab(expression("PCA1 (" * bquote(.(PC1)) * ")"))

或

   g +  xlab(bquote(PCA1~(~.(PC1)~%~)))

但没有人工作。

g + xlab(bquote(PCA1~.(PC1))) 

正在运作，但bquote似乎失败并带有单括号。