在ggplot2轴标签中的粘贴表达式中添加下标

Question

非常简短，在

中

xlab(expression(paste("Nitrate (",mu, g, "*", g^-1,")", sep="")))

我需要用Nmic替换“Nitrate”，其中字符串“mic”是下标：

expression(N[mic])

我如何结合两种表达方式？

谢谢！

这是一些摆弄的情节：

    data <- as.data.frame(matrix(rnorm(60),20,3)) 
    data$factor <- c(rep("f1", 4),rep("f2", 4), rep("f3", 4), rep("f4",4),rep("f5", 4))
    names(data) <- c("A", "B", "C", "factor")
    melted <- melt(data)

    p <- ggplot(melted, aes(variable, value)) +
         geom_point(aes(col=factor)) +
xlab(expression(paste("Nitrate (",mu, g, "*", g^-1,")", sep="")))