3

这是我在论坛上关于 R 的第一个问题，如果我在制定问题或指定标题时犯了任何错误，请提前道歉。

关键是，对于 ggplot 的特定任务，我在 ggplot 函数之外定义美学，然后将其作为参数提供。

>mytmpaes<-aes(x=Sample,y=ddCt.lin,ymax=ddCt.lin+ddCt.lin.sd,ymin=ddCt.linddCt.lin.sd,fill=factor(endog))
>my.ggplot(x,mytmpaes)

但有时我只想修改 mytmpaes 列表中的一些对象，而不使用 aes() 再次定义所有对象。但是，我真的不知道如何处理这个特殊的列表。aes 列表如下所示：

>mytmpaes
List of 5
$ x    : symbol Sample
$ y    : symbol ddCt.lin
$ ymax : language ddCt.lin + ddCt.lin.sd
$ ymin : language ddCt.lin - ddCt.lin.sd
$ fill : language factor(Rep)

我想出了如何像这样修改其中的一些：

 > mytmpaes$x<-as.symbol('Names')
 > mytmpaes$fill<-call('factor',quote(target))
 > mytmpaes
 List of 5
  $ x   : symbol Names
  $ y   : symbol ddCt.lin
  $ ymax: language ddCt.lin + ddCt.lin.sd
  $ ymin: language ddCt.lin - ddCt.lin.sd
  $ fill: language factor(endog)

但是，我找不到用类似表达式修改 ymax 或 ymin 的方法。例如，我想将 ymax 更改为 'ddCt.log2 - ddCt.log2.sd'。

有人可以给我一些建议吗？另外，是否有更正确的方法来修改 aes 列表？

谢谢，

亚历杭德罗

4

3 回答 3

6

如果你经常这样做，我建议你使用类似于aes：

aes.update <- function (aes, ...) 
{
  aes_new <- structure(as.list(match.call()[-c(1,2)]), class="uneval")
  aes_new <- ggplot2:::rename_aes(aes_new)
  aes[names(aes_new)] <- aes_new
}

然后你可以一次更新它

mytmpaes_new <- aes.update(mytmpaes, x=Names, ymax=ddCt.log2 - ddCt.log2.sd)
于 2013-07-17T12:51:23.217 回答
3

我想你正在寻找substitute：

返回（未计算的）表达式 expr 的解析树，替换 env 中绑定的任何变量

举个例子：

df <- data.frame(gp = factor(rep(letters[1:3], each = 10)),
                 y = rnorm(30))
##  Make an aes
tmpaes <- aes(x = gp, y = y , ymin = -2 , ymax = 2 )

##  Plot with it
ggplot(df) +
  geom_point( tmpaes )

##  Modify aes with a new variable
new <- 10
tmpaes$ymax <- substitute( new )   

##  replot
ggplot(df) +
  geom_point( tmpaes )

在此处输入图像描述

于 2013-07-17T12:34:22.580 回答
1

这是最简单的方法：

> a <- aes(x=Sample,y=ddCt.lin,ymax=ddCt.lin+ddCt.lin.sd,ymin=ddCt.linddCt.lin.sd,fill=factor(endog))
> a
List of 5
 $ x   : symbol Sample
 $ y   : symbol ddCt.lin
 $ ymax: language ddCt.lin + ddCt.lin.sd
 $ ymin: symbol ddCt.linddCt.lin.sd
 $ fill: language factor(endog)
> a$ymax <- aes(ddCt.log2 - ddCt.log2.sd)[[1]]
> a
List of 5
 $ x   : symbol Sample
 $ y   : symbol ddCt.lin
 $ ymax: language ddCt.log2 - ddCt.log2.sd
 $ ymin: symbol ddCt.linddCt.lin.sd
 $ fill: language factor(endog)
于 2013-07-17T12:35:40.047 回答