R语言ggplot2绘制柱状图并使用stat_compare_means展示P值

以下是使用R语言和ggplot2包进行可视化的代码：

library(ggplot2)
library(ggpubr)

# 创建数据框
dat <- data.frame(N = c(rep('A', 5), rep('B', 5)),
                  Hybrid = rep(c('H1', 'H2', 'H3', 'H4', 'H5'), 2),
                  Yield = c(10, 12, 15, 18, 20, 11, 13, 16, 19, 22))

# 绘制柱状图
p <- ggplot(dat, aes(x = Hybrid, y = Yield, fill = N)) + 
  geom_bar(stat = 'identity', position = 'dodge') + 
  theme_classic() + 
  labs(x = 'Hybrid', y = 'Yield', fill = 'N') + 
  stat_compare_means(comparisons = list(c('A', 'B')), label.y = 25)

# 显示图形
p

在上述代码中，我们使用了ggplot2包的geom_bar函数绘制了柱状图，利用aes函数设置了X轴、Y轴和填充的变量。在图形中，我们使用了position = 'dodge'参数使得两组数据分别位于同一X轴位置的左右两侧。我们还使用了theme_classic函数设置了图形的主题，使用了labs函数设置了X轴、Y轴和填充变量的标签。最后，我们使用了stat_compare_means函数添加了P值标签。其中，comparisons参数用于设置需要比较的两组数据，label.y参数用于设置P值标签的Y轴位置。

运行上述代码，我们可以得到以下柱状图：

在图形中，我们可以看到两组数据的Yield值分别以不同颜色的柱状图呈现，并使用了P值标签进行比较。