小编Con*_*nos的帖子

在我的ggplot2图表中添加a geom_smooth()和a时geom_vline(),我在传奇中遇到了一些奇怪的行为.这是一个可重复的例子:

library(ggplot2)
n <- 60

set.seed(123)
df <- data.frame(Area = sample(c("A", "B", "C", "D"), size = n, replace = TRUE),
             x = runif(n),
             y = runif(n),
             Type = sample(c("I", "II"), size = n, replace = TRUE),
             Result = sample(c("K", "L", "M"), size = n, replace = TRUE))

df.breaks <- data.frame(Area = c("B", "C"), x = c(0.8, 0.3))

ggplot(df, aes(x = x, y = y)) + 
  geom_point(aes(colour = Result, shape = Type), size = 3) + 
  geom_smooth(aes(linetype …

我正在尝试在R中产生一组小提琴图的变体（最好使用ggplot2），类似于以下示例：

由以下可重现的示例代码产生：

# Load libraries #
library(tidyverse)

# Create dummy data #
set.seed(321)
df <- data.frame(X = rep(c("X1", "X2"), each = 100), 
                 Y = rgamma(n = 200, shape = 2, rate = 2),
                 Z = rep(c("Za", "Zb"), rep = 100),
                 stringsAsFactors = FALSE)

# Grouped violin plot #
df %>% 
  ggplot(., aes(x = X, y = Y, fill = Z)) + 
    geom_violin(draw_quantiles = 0.5) + 
    scale_fill_manual(values = c("Za" = "red", "Zb" = "blue"))

我想拥有的变化是，中位数以上的密度与中位数以下的密度应具有不同的阴影，如下图所示：

我使用以下代码为组合X …

我有以下参数列表和向量：

myList <- list(c(3, 0, 1), c(2, 2, 2))
vPar1 <- c(1, 5, 100)
vPar2 <- c(100, 5, 1)

我正在尝试从Beta具有形状参数shape1 = vPar1和shape2 = vPar2（元素方式）的3 个分布中抽取样本。

预期结果将是一个包含两个元素的列表：第一个元素将由 4 个随机数组成（3 个来自分布Beta(1, 100)，1 个来自Beta(100, 1)分布），而第二个列表元素将由总共 6 个随机数（a 的 2 个随机数）组成。 Beta(1, 100)，Beta(5, 5)以及Beta(100, 1)每个分布）。

我尝试使用mapplyie 循环遍历 3 个参数的元素来产生所需的结果，但我无法弄清楚应该如何准确使用它：

mapply(function(x, shape1, shape2) {unlist(rbeta(x, shape1, shape2))}, 
          myList, 
          MoreArgs = list(shape1 = vPar1, shape2 = vPar2), 
          SIMPLIFY = FALSE) …