R 生成看起来像gamma曲线的计数数据

我需要模拟（正）结果数据，这些数据随着时间的推移绘制，看起来有点像伽马曲线（典型的正偏斜形式），请参见下面链接的图片以获得想法

因此，简单地在R中生成随机数，例如：

n <- 21
x <- rGA(n, 3, 3)
y <- rPO(n, x)

---

n我想迈克的意思是：

x <- 1:21
y1 <- dgamma(x, 2.5, 0.3)
y2 <- rpois(length(x), y1 * 20000)
plot(x, y2, 'b')

x
？dgamma
函数集是否有助于获得所需的伽马分布？类似于
绘图（dgamma（1:100,20））
？@Mike遗憾的是，这不是我想要的。数据散点图（时间与计数）的形状应与伽马曲线类似（就像链接的示例数据一样）。虽然我做得很差，但这就是我得到的
x <- 1:21
y1 <- dgamma(x, 2.5, 0.3)
y2 <- rpois(length(x), y1 * 20000)
plot(x, y2, 'b')

y2 <- rnbinom(length(x), mu=y1 * 20000, size=100)