Question

通过为某些输入参数赋值，在 2D图中绘制多个变量函数的最简单方法是什么。让我们考虑一个简单的例子

my.function<-function(a,b,x){a*x^2+b}

现在我想绘制a=1和b=0的简单抛物线。所以我定义了一个新函数： new.function<-function(x){my.function(1,0,x)}; plot(new.function) 。

有没有办法在不定义new.function的情况下绘制函数？

通常我使用Mathematica，在Mathematica中它会是：

Plot[my.function[1,0,x],{x ... }]

Answer 1

您不需要定义新功能。您可以使用原始函数library(ggplot2) for(i in seq(length(MEF))){ x1=get(MEF[i]) x2=get(ESC[i]) #png(filename=paste('PNG/', MEF[i], '.png', sep='')); p=ggplot(data=x1, aes(V1,V2)) xmin=x1[1,1]+(nrow(x1)-as.numeric(substr(paste(MEF[i]), regexpr(paste(MEF[i]), pattern='_overlap_')+9, regexpr(paste(MEF[i]), pattern='_regulation_')-1))) xmax=x1[nrow(x1),1] p=p+geom_line(aes(colour='black'))+geom_line(data=x2, aes(V1,V2, colour='red'))+scale_colour_manual(labels = c("MEF", "ESC"),values = c("black","red"))+theme_bw()+labs(x='bp', y='Occupancy')+geom_rect(aes(xmin=xmin, xmax=xmax, ymin=-10, ymax=0), color="blue",fill='blue', alpha=0.01, inherit.aes = FALSE) print(p) #dev.off(); }，并传入x值1到10来绘制抛物线：

my.function

Answer 2

对于未来的读者，我在这里分享@ G5W的评论作为答案：

<button target="blank" href="google" class="prev" name="prev"></button> <button target="blank" href="googlf" class="prev" name="prev"></button> <button target="blank" href="googlg" class="prev" name="prev"></button>

我相信这是这里提供的最佳方式

如何通过初始化除1之外的所有变量来绘制R中多个变量的函数

2 个答案: