4

我正在研究一个要发布的图形，并希望用一些 beta 和 p 值对其进行注释；我所在地区的风格指南规定这些数字的格式必须不带前导零（例如，“.003”，而不是“0.003”）。我遇到了看起来像 Catch-22 的东西。我已经从我的模型中提取了 beta 和 p 值，并进行了一些预处理以正确格式化它们，以便它们现在是字符而不是数字：

fake.beta.vals <- c(".53", ".29", ".14")
fake.p.vals <- c(".034", ".001", ".050")

但是，当我尝试在我的图中使用这些值时，parse = TRUE会将它们转换回数值，从而丢失我需要的格式。

fake.beta.vals <- c(".53", ".29", ".14")
fake.p.vals <- c(".034", ".001", ".050")

p <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width))
p <- p + 
  geom_smooth(method = "lm") +
  geom_point() +
  facet_wrap( ~ Species)
p

len <-length(levels(iris$Species))
vars <- data.frame(expand.grid(levels(iris$Species)))
colnames(vars) <- c("Species")
betalabs <- as.data.frame(fake.beta.vals)
plabs <- as.data.frame(fake.p.vals)
dat <- data.frame(
  x = rep(7, len),
  y = rep(4, len),
  vars,
  betalabs,
  plabs)
dat$fake.beta.vals <- as.factor(dat$fake.beta.vals)
dat$fake.p.vals <- as.factor(dat$fake.p.vals)

p <- p +
  geom_text(
    aes(x     = x,
        y     = y,
        label = paste("list(beta ==",
                      fake.beta.vals,
                      ", italic(p) ==",
                      fake.p.vals,
                      ")"),
        group = NULL),
    size  = 5,
    data  = dat,
    parse = TRUE)
p

我一直在努力解决这个问题一段时间，但补充说as.character()：

        label = paste("list(beta ==",
                      as.character(fake.beta.vals),
                      ", italic(p) ==",
                      as.character(fake.p.vals),
                      ")"),

显然也被抵消了parse = TRUE

并添加我以前用来格式化我的值的函数：

statformat <- function(val,z){
  sub("^(-?)0.", "\\1.", sprintf(paste("%.",z,"f", sep = ""), val))
}

更糟糕的是：

        label = paste("list(beta ==",
                      statformat(fake.beta.vals, 2),
                      ", italic(p) ==",
                      statformat(fake.p.vals, 3),
                      ")"),

结果只是一团糟。

帮助？

4

2 回答 2

6

用于bquote创建标签，然后使用强制转换为字符表示deparse

例如

# create a list of labels using bquotw
labs <- Map(.beta = fake.beta.vals, 
            .p = fake.p.vals, 
          f = function(.beta,.p) bquote(list(beta == .(.beta), italic(p) == .(.p))))
# coerce to a character representation for parse=TRUE to work within 
# geom_text
dat <- data.frame(
  x = rep(7, len),
  y = rep(4, len),
  vars,
  labels = sapply(labs,deparse))


p <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)) + 
  geom_smooth(method = "lm") +
  geom_point() +
  facet_wrap( ~ Species) +
  geom_text(data = dat, aes(x=x,y=y,label=labels), parse=TRUE)
p

在此处输入图像描述

于 2013-10-10T22:30:49.513 回答
5

回到我的电脑并重新阅读你的问题后，我发现我误解了这个问题。试用该I功能，我发现它似乎不适用于parse.

我找到了一种让它工作的方法，这是通过在你的解析调用中用 ` 字符或 ' 字符包裹你的fake.beta.valsand 。fake.p.vals

p <- p +
  geom_text(
    aes(x     = x,
        y     = y,
        label = paste("list(beta ==",
                      "`", fake.beta.vals, "`",
                      ", italic(p) ==",
                      "`", fake.p.vals, "`",
                      ")", 
                      sep=""),
        group = NULL),
    size  = 5,
    data  = dat,
    parse = TRUE)

那应该行得通。

于 2013-10-10T22:07:57.280 回答