r - 在ggplot中为glue命令添加小数位

Question

继续此question .

facet_wrap() 中的标签包含具有不同小数位的数字。我使用了glue R 包。下面给出了代码和相关图。

data <- data.frame(N = runif(30, 200, 600),
                   powers = runif(30, 0.03, 0.06),
                   low = runif(30, 0.03, 0.04),
                   upp = runif(30, 0.04, 0.05),
                   q = rep(c(0.02,0.04,0.06,0.08,0.10,0.12), 5))

N = data[,1]
p = data[,2]
q = data[,3]
low = data[,4]
upp = data[,6]
powers = data[,5]

ggplot(data,aes("x" = N, "y" = powers))+
  geom_point() + geom_line() +
  facet_wrap(~glue('phi[1]*" = {q}"'), nrow = 2, labeller = label_parsed)+
  labs("y" = "Powers")

如何确保标签写的是 $\phi_1 = 0.10$ 而不是 $\phi_1 = 0.1$？

Answer 1

使用格式和nsmall:

... +
facet_wrap(~ glue('phi[1]*" = {format(round(q, 2), nsmall = 2)}"') +
...