【问题标题】：Plotting violin plot in R在R中绘制小提琴图
【发布时间】：2023-03-06 07:56:02
【问题描述】：

我正在尝试使用长格式的数据框创建小提琴图。数据框有 2 列标题组（包含 2 个因素 - 高效和低效）和 Glucose m+6 以及相应的数值。

我尝试使用以下代码绘制小提琴图：

Dta_lng %>% 
  ggplot(aes(x= Group, y= `Glucose m+6`, fill= Group)) +
  geom_violin(show.legend = FALSE) +
  geom_jitter(aes(fill=Group),width=0.1, alpha=0.6, pch=21, color="black")

这是结果图： https://i.stack.imgur.com/VrtbU.jpg

控制台还会发出 50 条警告消息，指出数据点少于两个的组已被删除。

这是我正在处理的数据：

Dta_lng

小标题：66 x 2

Group	`Glucose m+6`

Efficient	0.47699999999999998
Efficient	0.376
Efficient	0.496
Efficient	0.32500000000000001
Efficient	8.8999999999999996E-2
Efficient	4.5999999999999999E-2
Efficient	0.21299999999999999
Efficient	8.2000000000000003E-2
Efficient	0.35899999999999999
Efficient	0.30599999999999999

...还有 56 行

前 30 行有效，后 35 行无效。

【问题讨论】：

如果您发布一些数据，我们一定可以帮助您。
您好，我添加了一些示例数据。干杯。
您的葡萄糖列存储为字符或因子。使用as.numeric转换为数字

标签： r ggplot2 violin-plot

【解决方案1】：

大概是这样的：

数据：（注意不同的标签！）

df <- data.frame(
  group = c(sample(c("efficient", "inefficient"), 1000, replace = TRUE)),
  Glucose_m_6 = rnorm(1000) 
)

带有散点图的小提琴图：

ggplot(data = df, 
       aes(x = group, y = Glucose_m_6, fill = group)) +
  geom_violin(scale = "count", trim = F, adjust = 0.7, kernel = "cosine") +
  geom_point(aes(y = Glucose_m_6), 
             position = position_jitter(width = .25), size = 0.9, alpha = 0.8)

【讨论】：