R语言分组柱状图上叠加折线图

在R语言中，可以使用ggplot2包来绘制分组柱状图，并使用geom_line函数来添加折线图。

下面是一个示例代码：

library(ggplot2)

# 创建示例数据
data <- data.frame(Group = rep(c("A", "B"), each = 3),
                   Category = rep(c("X", "Y", "Z"), 2),
                   Value = c(10, 8, 6, 12, 9, 7),
                   LineValue = c(5, 6, 7, 8, 9, 10))

# 绘制分组柱状图
p <- ggplot(data, aes(x = Category, y = Value, fill = Group)) +
  geom_bar(stat = "identity", position = "dodge")

# 添加折线图
p <- p + geom_line(aes(x = Category, y = LineValue, group = Group, color = Group))

# 设置图例
p <- p + scale_fill_manual(values = c("red", "blue"), labels = c("Group A", "Group B"))
p <- p + scale_color_manual(values = c("red", "blue"), labels = c("Group A", "Group B"))

# 显示图形
print(p)

这段代码首先创建了一个示例数据集，其中包含两个分组（A和B），每个分组有三个类别（X、Y和Z），以及对应的柱状图值（Value）和折线图值（LineValue）。

然后，使用ggplot函数创建一个基础图形对象，并使用geom_bar函数绘制分组柱状图。

接下来，使用geom_line函数添加折线图，其中设置了group参数为Group，这样可以保证每个分组的折线图连接正确的数据点。

最后，使用scale_fill_manual和scale_color_manual函数分别设置填充颜色和线条颜色，以及对应的标签。

运行代码后，会显示一个分组柱状图上叠加了折线图的图形