如何使用for循环在ggplot2中添加'stat_function()‘层？
在ggplot2中使用for循环添加'stat_function()'层可以通过以下步骤实现：
- 首先，确保已经安装了ggplot2包，并加载它：
install.packages("ggplot2")
library(ggplot2)- 创建一个空的ggplot对象，并设置好基本的图形参数：
p <- ggplot() + xlim(0, 10) + ylim(0, 10) + xlab("X") + ylab("Y")- 定义一个包含多个函数的列表，这些函数将被添加到图形中：
functions <- list(
sin = function(x) sin(x),
cos = function(x) cos(x),
exp = function(x) exp(x)
)- 使用for循环遍历函数列表，并在每次迭代中添加'stat_function()'层到ggplot对象中：
for (i in 1:length(functions)) {
p <- p + stat_function(fun = functions[[i]], color = i)
}在上述代码中，'fun'参数指定了要绘制的函数，'color'参数用于设置每个函数的颜色。
- 最后，使用print()函数打印出ggplot对象，即可显示图形：
print(p)这样，就可以在ggplot2中使用for循环添加'stat_function()'层，并绘制出包含多个函数的图形。
请注意，以上答案中没有提及任何特定的云计算品牌商，如有需要，可以根据具体情况选择适合的云计算平台和相关产品。
相关·内容
我有几个类似的数据帧，每个数据集都有一个非线性回归。只要一开始我不知道那里有多少个数据帧，我就会使用for循环来覆盖这些图。我可以使用for()周期覆盖geom_point()层，但是当我使用stat_function()尝试同样的操作时，只绘制了最后一个函数。
如何才能获得与积分相同的函数结果？
MWE：
library(ggplot2)
# Colors vector
hues = seq(15, 375, length = 10 + 1)
cols = hcl(h = hues, l = 65, c = 100)[1:10]
# Create plot and add first la
浏览 11提问于2019-10-29得票数 1
回答已采纳
按照的答案，假设我用ggplot按组绘制密度曲线，我想为每个组生成相应的法线曲线(有它们的相应均值和标准偏差)。我首先尝试的是
library(ggplot2)
mtcars$vs <- as.factor(mtcars$vs)
ggplot(mtcars,aes(x=mpg, fill = vs, colour = vs)) + geom_density(alpha = 0.1) +
stat_function(fun = dnorm, args = list(mean = mean(mtcars$mpg), sd = sd(mtcars$mpg)))
但它产生了一条独特的正
浏览 2提问于2019-06-12得票数 2
1回答
我不知道如何在add=TRUE ()函数中复制ggplot2中的ggplot2参数。
假设我有这个情节
testfn<-function(x,a){
sin(x-a)
}
for(i in 1:10){
curve(testfn(x,i),add=TRUE,xlim=c(-5,5))
}
如何在ggplot2中做到这一点，而不必手动添加10个+stat_function()s？
谢谢
浏览 5提问于2013-08-28得票数 1
回答已采纳
2回答
我创建了一个带有x和y值的虚拟数据。x是0和2*pi之间的任意值。y是sin(x) +- noise。noise是介于0和0.5之间的随机值。
我已经使用这个公式创建了一个线性回归曲线：fit <- lm(ys ~ xs + I(xs^2) + I(xs^3))。我可以用下面的代码来绘制原始的正弦函数和点：
plot(sin, 0, 2*pi,col="green",xlim = c(-0.5, 6.5), ylim = c(-1.5, 1.5))
points(xs, ys,col="blue")
我还想将拟合的曲线添加到相同的图中。我做了一些研究，并提
浏览 0提问于2020-08-06得票数 0
我有一个函数族，除了一个可调整的参数外，所有函数都是相同的，我想把所有这些函数绘制在一组轴上，所有的轴都重叠在一起。例如，这可能是sin( n *x)，具有不同的值，例如1:30，而且我不想单独键入每个命令--我想应该有一些方法可以编程实现。
library(ggplot2)
将trig函数定义为频率函数: sin(x)、sin(2x)、sin(3x)等。
trigf <- function(i)(function(x)(sin(i*x)))
叠加两个函数图？？当然，这是手动工作的。
ggplot(data.frame(x=c(0,pi)), aes(x)) + stat_functio
浏览 1提问于2015-06-12得票数 3
回答已采纳
2回答
数据帧"pars“中的行包含定义后勤曲线的两个参数：
library(ggplot2)
library(purrr)
pars <- data.frame(
diff = c(-1.5, 2.5),
disc = c(1.2, 2.5)
)
这两条曲线可以用map()和ggplot()来绘制，如下所示。
icc <- function(x) map(
1:nrow(pars),
~ stat_function(fun = function(x)
(exp(pars$disc[.x]*(x - pars$diff[.x])))/(1 + exp(pa
浏览 8提问于2022-01-19得票数 2
回答已采纳
我想在一个图形中添加一个stat_function层，其美学映射到标识一组参数的某个变量的状态。在下面的最小工作示例中，我手动创建了两个stat_function行。通常情况下，结果应该是这样的。
p <- ggplot(data.frame(x = -1:1), aes(x = x))
p + stat_function(fun = function (x) 0 + 1 * x, linetype = 'dotted') +
stat_function(fun = function (x) 0.5 + -1 * x, linetype = 'solid
浏览 2提问于2016-08-17得票数 5
回答已采纳
1回答
假设我有一个向量x = 1:5。假设我想画出公式
哪里
在这个例子中。注意，k 接受0，5中的所有值，而不仅仅是整数.。
我该如何在ggplot2中这样做呢？
以下是我的尝试：
library(ggplot2)
y <- c(1, 2, 3, 4, 5)
f <- function(k, vector){
sum((vector-k)^2/5)
}
ggplot(data=data.frame(x=c(0, 5)), aes(x)) +
stat_function(fun=f, geom='line', args(list(vector=y)))
Er
浏览 7提问于2015-11-12得票数 1
回答已采纳
我想将多条曲线添加到一个ggplot中。使用普通的plot和curve(add=TRUE)，我可以循环曲线函数，并可以添加多个曲线/函数。
因为我想为ggplot重写我的代码，所以我想弄清楚如何用ggplot来实现这一点。
我使用的是stat_function和一个for循环，但是ggplot并没有添加curve，只是保存了最后一个。
单行的最小可重现性示例：
library(ggplot2)
p1<-ggplot()
for (i in 1:10){
p1<- p1 + stat_function(aes(x=1:200),fun = function(x) {x+i*3},
浏览 0提问于2019-02-21得票数 1
回答已采纳
1回答
用ggplot2制作拟合图
、、、、
用fitdistrplus软件包中的fitdist函数对正态分布进行拟合。使用denscomp、qqcomp、cdfcomp和ppcomp，我们可以分别绘制histogram against fitted density functions、theoretical quantiles against empirical ones、the empirical cumulative distribution against fitted distribution functions和theoretical probabilities against empirical ones，如下所示。
set
浏览 0提问于2015-07-27得票数 11
我想用ggplot2绘制离散概率分布(如泊松分布)。
我不需要像这样使用ggplot2就可以绘制它。
plot( dpois( x=0:20, lambda=1 ), type="b")
而且，我可以像这样使用ggplot2绘制连续的概率分布。
ggplot(data.frame(x=c(-10,10)), aes(x)) + stat_function(fun=dnorm, args=list(0, 1))
我尝试的代码是：
ggplot(data.frame(x=c(0:10)), aes(x)) + stat_function(geom="po
浏览 4提问于2014-12-25得票数 11
回答已采纳
我有两条概率分布曲线，Gamma和标准化正态分布曲线，我需要进行比较：
library(ggplot2)
pgammaX <- function(x) pgamma(x, shape = 64.57849, scale = 0.08854802)
f <- ggplot(data.frame(x=c(-4, 9)), aes(x)) + stat_function(fun=pgammaX)
f + stat_function(fun = pnorm)
输出如下所示
但是，我需要通过ggplot2提供的分面机制将两条曲线分开，共享Y轴，如下所示：
如果所描绘的
浏览 24提问于2017-03-11得票数 0
回答已采纳
比方说，我在ggplot2中使用facet_grid()来获得两个直方图。现在，我想将这些直方图与泊松曲线(对于2个直方图/网格具有不同的均值)和另一个分布的第二条曲线(我想手动提供值的概率函数)叠加在一起。如何做到这一点？
构造一个示例：
library(ggplot2)
value<-c(rpois(500,1.5))
group<-rep(c("A","B"),250)
data<-data.frame(value,group)
g1<-ggplot(data,aes(value))
g1+geom_histogram(a
浏览 1提问于2010-08-11得票数 4
因此，我的示例数据是：
x <- runif(1000, min = 0, max = 5)
y <- (2 / pi) * atan(x)
z <- floor(x)
df <- data.frame(x, y, z)
我绘制x的箱图，按z分类：
library(ggplot2)
g <- ggplot(df, aes(x = x, y = y, group = z)) +
geom_boxplot()
g
但问题是，在我的真实数据中，我不能完全确定y值是否遵循(2 / pi) * atan(x)。那里有一个随机的元素。那么，我如何在我的图形上绘
浏览 14提问于2018-08-29得票数 2
回答已采纳
假设我有两个函数y = x和y = 1。我想用ggplot2绘制它们，以便在x0、1和x1、3时绘制第一个函数。
我不知道如何为单个函数设置限制。我只能限制这两个函数的绘制区域或数据。
代码：
library(ggplot2)
ggplot(data.frame(x=c(0, 3)), aes(x)) +
stat_function(fun=function(x) x, colour="red") + stat_function(fun=function(x) 1, colour="blue")
所以我希望在x = 1之前只画红线，在x =
浏览 3提问于2015-01-30得票数 0
回答已采纳
1回答
我正试图用R和ggplot2绘制一个发行版本CDF。然而，当我将Y轴转换成一条直线后，我发现在绘制CDF函数时遇到了困难。这类绘图在Gumbel纸图中经常使用，但这里我将以正态分布为例。
生成数据，绘制数据的累积密度函数和函数。它们很合身。然而，当我应用Y轴变换时，它们不再适合了。
sim <- rnorm(100) #Simulate some data
sim <- sort(sim) #Sort it
cdf <- seq(0,1,length.out=length(sim)) #Compute data CDF
df <- data.frame(x=sim
浏览 3提问于2016-05-15得票数 14
回答已采纳
我想用ggplot2绘制一个函数(使用ggplot2包中的drc包的结果)，其中X轴在日志尺度上。
我有这样的密码：
library(ggplot2)
args = list(A = 4.224536e+04, B = 1.335570e+00, C = 5.992606e-01, D = 2.341207e+04)
LP.4 = function(x, B, D, A, C) {D + (A-D)/(1+(x/C)^B)}
dose = as.numeric(rev(c(100, 5, 2, 1, 0.5 , 0.25 , 0.1 , 0.05, 0.01, 0.0001)))
浏览 2提问于2014-11-09得票数 1
回答已采纳
我在学习R和ggplot2。我可以绘制单变量函数(使用geom_path)和密度映射(使用geom_raster)。然而，我无法找到一种方法将它们结合起来，生成如下所示的图形。这在ggplot2中是可能的吗？
浏览 5提问于2017-04-21得票数 0
回答已采纳
我目前正试图用R的ggplot2绘制一些密度分布函数。我有以下代码：
f <- stat_function(fun="dweibull",
args=list("shape"=1),
"x" = c(0,10))
stat_F <- stat_function(fun="pweibull",
args=list("shape"=1),
浏览 7提问于2017-11-26得票数 1
回答已采纳
1回答
我正在试图从我的回归估计中的隐含函数在ggg图中的相同的图形上绘制。在下面的例子中，我创建了一个简单的线性函数，其中c和b是存储在早期回归中的系数估计。然后，我尝试按组绘制范围为0、50的函数(最好也使用选项: colour =group)。
library(ggplot2)
groups = c("a", "b", "c")
c = c(5, 4, 3)
b = c(-0.01, -0.002, -0.001)
x = c(0, 0, 0)
df <- data.frame(cbind(c, b, x))
grad_fun <-
浏览 5提问于2017-06-01得票数 0
回答已采纳
1回答
我的目标是在ggplot2中使用s曲线绘制二次函数，就像在图像中一样
非常感谢你的评论！
ggplot(data.frame(x = seq(0, 2)), aes(x)) +
stat_function(fun=function(x)x^2, geom="line")
stat_function(fun = function(x) 1/(1 + exp(-x)), geom = "line")
浏览 3提问于2018-04-11得票数 0
3回答
在生物学中，我们经常想要绘制剂量反应曲线。R包'drc‘是真正有用的，基本图形可以轻松处理'drm模型’。但是，我想将我的drm曲线添加到一个ggplot2中。
我的数据集：
library("drc")
library("reshape2")
library("ggplot2")
demo=structure(list(X = c(0, 1e-08, 3e-08, 1e-07, 3e-07, 1e-06, 3e-06,
1e-05, 3e-05, 1e-04, 3e-04), Y1 = c(0, 1, 12, 19,
浏览 13提问于2016-04-21得票数 9
我试图打印一些值(geom_point)，在上面用ggplot2绘制一些函数(stat_function)，但是我无法绘制函数，因为它有一个类型list的参数。
我想打印函数create.new.func(x,W)，它得到两个参数(x，W)，其中x是一个数值，W是一个包含两个不同维矩阵的列表。我试着用这条线
stat_function(fun= create.new.func,aes(colour="sep1"),args = list(W=superW))
但是，我一直收到以下错误：
stat\_function()中的计算失败:不符合arguments##
当然，c
浏览 0提问于2019-01-20得票数 1
回答已采纳
1回答
我使用下面的代码从两个向量模型1和模型2中获得两个直方图。我想让R对每个直方图拟合一条正常曲线。
library(ggplot2)
require(ggplot2)
require(reshape2)
set.seed(1)
df <- data.frame(x<-rnorm(1000,mean = 0.5, sd = 0.01),
y<-rnorm(1000,mean = 0.5, sd = 0.01))
df2 = melt(df)
ggplot(df2, aes(value, fill = variable)) + geom_hi
浏览 2提问于2014-01-06得票数 1
1回答
我试图在R中绘制一个直方图，并将它与来自不同分布的密度覆盖起来。它在常规直方图中运行得很好，但是我无法让它与ggplot2包一起工作。
a <- dataset$age
下面是我的常规直方图的代码：
Histogram_for_age <- hist(a, prob=T, xlim=c(0,80), ylim=c(0,0.055), main="Histogram for age with density lines", xlab="age")
mean <- mean(a)
sd <- sd(a)
现在，密度的线/曲线：
lines
浏览 1提问于2014-04-28得票数 3
回答已采纳
1回答
我想使用ggplot2来可视化一些数据，这些数据遵循幂曲线。以前有人问过这个问题()，但答案并没有多大帮助。
其中一个诀窍是使用stat_function()创建曲线。然而，我无法得到stat_function()和我的功率曲线工作在对数标度。
我来说明我的问题。
创建一些示例数据和基本图：
library(ggplot2)
x <- 1:100
pwr <- function(x)x^-2.5
dat <- data.frame(x, y = pwr(x))
p <- ggplot(dat, aes(x = x, y = y)) +
geom_point()
浏览 2提问于2015-07-23得票数 14
回答已采纳
我有下面的例子：
seed(123)
x<-runif(100)
y<-runif(100)
f <- function(x) { return(4 * x * (1 - x)) }
我想展示一个与函数f以及x和y的数据点之间的假设依赖关系，如下图所示。
任何人都可以帮助使用ggplot2吗？
谢谢。
浏览 0提问于2015-02-11得票数 3
2回答
在R中的数据点之上绘制函数
、、、、
有没有一种方法可以使用ggplot将数学函数覆盖在数据之上？
## add ggplot2
library(ggplot2)
# function
eq = function(x){x*x}
# Data
x = (1:50)
y = eq(x)
# Make plot object
p = qplot(
x, y,
xlab = "X-axis",
ylab = "
浏览 0提问于2009-12-06得票数 9
回答已采纳
2回答
我希望在ggplot中绘制一个正态分布，在@nrussell的建议下，我使用了
ggplot(data.frame(x = c(-5, 5)), aes(x)) + stat_function(fun = dnorm)
我在想，在stat_function的上下文中，是否有任何方法可以将单个色点直接层到曲线上。例如，如果我想在x轴标记为2的位置放置一个点。
我尝试过geom_point，但它似乎更适合创建散点图:我似乎无法从stat_function中为要创建的图层添加美学元素。
任何建议都将不胜感激。
浏览 0提问于2014-11-01得票数 2
我是ggplot2的新手。下面是我使用的代码和输出：
library(package=ggplot2)
normal <- function(mu, sigma, x){
1/(sigma*sqrt(2*pi))*exp(-((x-mu)/sigma)^2)
}
ggplot(NULL, aes(x=x, color=g)) +
stat_function(data=data.frame(x=c(-2, 3.5), g=factor(1)), fun=normal, geom='line',
args=list(mu=0.5, si
浏览 0提问于2015-11-11得票数 1
回答已采纳
我正在尝试使用stat_function在ggplot2包中绘制多个函数。因为我有几个参数选项，所以我使用for loop。我将绘图保存到列表变量myplot中。当我试图打印它们时，问题就出现了。使用print似乎一切正常，但当我只使用选项如myplot[[1]]时，线条与myplot[[2]]等相同，但是点被正确绘制。当我尝试使用函数grid.arrange用一个图形绘制所有图形时，也会出现同样的问题。
请看我的示例：
library("ggplot2")
myfun <- function(x, group, a, b, e){
a * x + b + group
浏览 1提问于2016-08-09得票数 1
回答已采纳
我正试图从可变数量的参数中生成一些情节。代码工作良好，并生成预期的情节。但是，标签函数(fill = labelsi)不能正常工作。我不知道我在这里做错了什么。所有的线条都有相同的标签“C3”，因此颜色相同。
library(ggplot2)
F.Linear <- function(A, a, b, c) {
C <- (c - a*A)/b
C[C < 0] <- NA
return(C)
}
plot.linear.equations <- function(X, ...){
p <- ggplot(data.frame(x
浏览 4提问于2017-09-05得票数 0
回答已采纳
1回答
R中离散数据的计算密度
、、、
我想用离散数据在R中绘制一个密度直方图。考虑到我的数据集非常大，我需要在绘制之前计算密度。
但是，我发现使用stats::density函数提供的结果与ggplot2中的..density..不同。为什么会这样呢？还有..density..。ggplot2的结果与预期一致，而统计数据：：密度则不一致。
见下面可重复的例子。
非常感谢
library(tidyverse)
library(patchwork)
df <- data.frame(A = round(rnorm(1000)),
B = round(rnorm(1000)),
C =
浏览 12提问于2022-06-18得票数 1
回答已采纳
1回答
我试着用ggplot2得到一个基于方程的图表。以下是我迄今所做的工作：
eq <- function(x,a) {
g<- (x^2+a+1)
return(g)
}
ggplot(data.frame(x = c(-10000, 10000)), aes(x)) +
stat_function(fun = eq, args = list(a=2), aes(colour = "Time"))
这给了我情节。我希望将范围保持在x轴上，即c(-10000,10000)，我想更改a，但在下面的代码中保留x以获得绘图，例如eq(x,3)。
所
浏览 2提问于2021-01-02得票数 1
回答已采纳
如果这是相当含糊的，请容忍我，如果我遗漏了什么，请随时提问……
我正在尝试基于以下链接进行一些50年的极端风计算
它们似乎使用了gumbel分布，所以我使用了"evir“包中的gumbel函数来拟合数据的分布，并使用"evd”包中的dgumbel函数作为绘图函数。
package("evd")
package("evir")
speeds2 <- data.frame(speed=sample(10:50,1000,rep=TRUE))
gumbel(speeds2$speed)
然后，我尝试使用ggplot2的stat_functio
浏览 0提问于2011-07-27得票数 4
回答已采纳
1回答
我在尝试用ggplot复制绘图函数时遇到了一个问题。我有两个职能，定义如下：
GetMse <- function(x) 1 - max(x, 1 - x)
GetGini <- function(x) 2 * x * (1 - x)
使用R中的默认绘图系统，图如下所示：
现在出现了ggplot的问题:图1中的红色函数在图2中被画成直线。
有什么想法或指针吗？下面粘贴了ggplot代码。
library(ggplot2)
ggplot(data = data.frame(x = c(0.00001, 0.99999)), aes(x)) +
stat_f
浏览 1提问于2014-09-30得票数 2
回答已采纳
2回答
我有一个从我的原始数据中获得的100万份记录的样本。(供您参考，您可以使用这个虚拟数据来生成大致类似的分布。)
b <- data.frame(matrix(rnorm(2000000, mean=c(8,17), sd=2)))
c <- b[sample(nrow(b), 1000000), ]
)我认为直方图是两个对数正态分布的混合体，我试图使用EM算法对这些分布进行拟合，使用以下代码：
install.packages("mixtools")
lib(mixtools)
#line below returns EM output of type mixEM[
浏览 13提问于2014-08-14得票数 7
回答已采纳
我正在用ggplot2包绘制一个密度函数。我注意到第一条和第二条垂直线不是完全矩形的，尽管据我所知，它们应该是矩形的，还是？我也发现了这种情况，在绘制二项分布的分布时，这些步骤实际上不是矩形的。
library(ggplot2)
p_uniform_density <- ggplot(data.frame(x = c(-2, 17.5)), aes(x)) +
stat_function(fun = dunif, args = list(min = 0, max = 15), size=1.2 ) +
theme_bw() +
labs(y = "f(X)", x =
浏览 4提问于2016-11-17得票数 1
回答已采纳
1回答
我想用R (Ver 3.0.2)中的ggplot2 (Ver 0.9.3.1)在日志图上绘制三个函数。
y = x
y = 0.5*x
y = 1.5*x
我尝试了许多事情，但不断地遇到问题。这包括阅读堆栈溢出问题。
我想要的一个例子是。我在Matlab中生成了这幅图。
下面是我正在使用的代码示例，但目前它不显示任何内容。最终，我希望成为其他数据之上的一层(这需要日志来显示结构)。
library(ggplot2)
plot = ggplot()
plot = plot + coord_cartesian(xlim = c(0.02, 300), ylim = c(0.035, 20))
p
浏览 2提问于2013-10-08得票数 7
回答已采纳
如果可能的话，我想使用来自easynls 和ggplot2的。
这就是我到目前为止所做的：
设置子集数据：
库(‘ggplot2’)x <- seq(25,97) y <- c(0.014，0.016，0.015，0.016，0.018，0.019，0.023，0.019，0.021，0.017，0.018，0.016，0.016，0.020，0.018，0.019，0.022，0.023，0.027，0.027，0.028，0.031，0.029，0.032，0.030，0.030，0.030，0.030、0.033、0.039、0.038、0.039、0.046、0.042
浏览 0提问于2017-01-26得票数 3
回答已采纳
我看到很多关于如何定制图例的问题，但我甚至不能定制一个图例。我想要一个图例，说明黑线是二次线，绿线是立方线。
library(ggplot2)
myfun1 <- function(x) x^2
myfun2 <- function(x) x^3
myplot <- ggplot(data = data.frame(x = 1:5, y= 1:5), aes(x=x, y=y)) +
stat_function(fun = myfun1, color="green") +
stat_function(fun = myfun2, color=
浏览 0提问于2012-04-10得票数 13
回答已采纳
这个论坛已经帮助我生成了代码，我希望它能返回一个特定变量的柱状图，上面覆盖着它的经验正态曲线。我使用ggplot2和stat_function编写代码。不幸的是，代码生成了一个具有正确直方图的图，但正常曲线是一条零点处的直线(由以下代码生成的图中的红线)。
对于这个最小的例子，我使用了mtcars数据集--在我的原始数据集上观察到了ggplot和stat_function的相同行为。
下面是编写和使用的代码：
library(ggplot2)
mtcars
hist_staff <- ggplot(mtcars, aes(x = mtcars$mpg)) +
geom_histog
浏览 0提问于2015-03-21得票数 12
回答已采纳
我使用scale_colour_manual来指定图例中可能的键。但是，如果我使用stat_function绘制自定义函数，图例就会丢失。
你知道为什么会这样吗？
library(ggplot2)
MyFun <- function(x, p) {
res <- x^(1 / p)
return(res)
}
my.df <-data.frame(x = c(0,1))
plt <- ggplot(my.df, aes(x=x)) +
stat_function(fun = MyFun, n = 1000, args = list(p = 10), co
浏览 3提问于2013-11-13得票数 24
回答已采纳
我想用ggvis绘制一个函数--在ggplot2中有没有类似于stat_function的东西？
例如：
ggplot(data.frame(x=c(0,1)), aes(x=x)) +
stat_function(fun=dbeta, args=list(shape1=2, shape2=10))
浏览 3提问于2015-04-02得票数 1
我正在尝试将两个不同的拟合函数与两组不同的数据相关联。数据： > df <- structure(list(Var1 = c(1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L),
value = c(3465, 4348, 5207, 5945, 6365, 3472, 2589, 2412, 2332, 2289),
category = c("A", "A", "A", "A", "A"
浏览 4提问于2019-03-21得票数 2
回答已采纳
我在做扑热息痛过量的审计。我正在创建一张血液水平与摄入后时间的散点图。这很简单:然而，治疗取决于他们的血液水平是高于还是低于线y=1986*0.840897^t，其中t是时间，y =值为t=4:16的血液水平。
如何使用ggplot2将这样的函数叠加到散点图的顶部
从本质上讲，我想要创建的东西有点像这样：
浏览 0提问于2016-04-29得票数 1
我想用ggplot2创建一个图来可视化一个部分平衡问题。我四处寻找解决这个问题的方法，但却找不到。
我想用相同的图形绘制两个函数，最好使用ggplot2。我想绘制一个逆需求函数和一个离散的边际成本曲线，q在x轴上，P在y轴上。
边际成本曲线如下：
- P = 0.794 for all Q in [0,70]
- P = 0.956 for all Q in (70,140]
- P = 2.802 for all Q in (140,infty)
然后,
逆需求曲线由以下函数描述：
P= (199/Q)^(1/0.14)
我可以绘制边际成本曲线，但我
浏览 0提问于2018-05-16得票数 2
回答已采纳
在ggplot2中，如何使stat_function使用与geom层相同的x尺度，例如scale_x_log10
为了说明这个问题，请考虑下面的示例：
x <- rexp(100)
base <- qplot(x, geom = "density")
base + stat_function(fun = dexp, colour = "red")
到目前一切尚好。但现在，我增加了一个比例：
base + stat_function(fun = dexp, colour = "red") + scale_x_log10()
浏览 2提问于2015-10-23得票数 3
回答已采纳
我想尝试使用R再现以下图像，目的是将一个和两个侧面的假设表示为.025和.95级别，类似于下面的图像：
我设法使用其他问题的资源在分位数中创建了一个阴影，但我希望它超出边界，而不是在内部。守则：
set.seed(1)
draws <- rnorm(1000000)
dens <- density(draws)
q025 <- quantile(draws, .025)
q975 <- quantile(draws, .975)
dd <- with(dens, data.frame(x, y))
library(ggplot2)
qplot(x
浏览 3提问于2017-11-20得票数 0
回答已采纳
我希望使用相同的函数在网格中输出两幅图，但x的输入不同。我使用的是ggplot2和stat_function作为，我已经结合了这两个情节，如和。
f01 <- function(x) {1 - abs(x)}
ggplot() +
stat_function(data = data.frame(x=c(-1, 1)), aes(x = x, color = "red"), fun = f01) +
stat_function(data = data.frame(x=c(-2, 2)), aes(x = x, color = "black"
浏览 10提问于2020-06-23得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
