R语言分组柱状图叠加折线图教程 - ggplot2实战

"在R语言中，可以使用ggplot2包来绘制分组柱状图，并使用geom_line函数来添加折线图。\n\n下面是一个示例代码：\n\nR\nlibrary(ggplot2)\n\n# 创建示例数据\ndata <- data.frame(Group = rep(c(\"A\", \"B\"), each = 3),\n Category = rep(c(\"X\", \"Y\", \"Z\"), 2),\n Value = c(10, 8, 6, 12, 9, 7),\n LineValue = c(5, 6, 7, 8, 9, 10))\n\n# 绘制分组柱状图\np <- ggplot(data, aes(x = Category, y = Value, fill = Group)) +\n geom_bar(stat = \"identity\", position = \"dodge\")\n\n# 添加折线图\np <- p + geom_line(aes(x = Category, y = LineValue, group = Group, color = Group))\n\n# 设置图例\np <- p + scale_fill_manual(values = c(\"red\", \"blue\"), labels = c(\"Group A\", \"Group B\"))\np <- p + scale_color_manual(values = c(\"red\", \"blue\"), labels = c(\"Group A\", \"Group B\"))\n\n# 显示图形\nprint(p)\n\n\n这段代码首先创建了一个示例数据集，其中包含两个分组（A和B），每个分组有三个类别（X、Y和Z），以及对应的柱状图值（Value）和折线图值（LineValue）。\n\n然后，使用ggplot函数创建一个基础图形对象，并使用geom_bar函数绘制分组柱状图。\n\n接下来，使用geom_line函数添加折线图，其中设置了group参数为Group，这样可以保证每个分组的折线图连接正确的数据点。\n\n最后，使用scale_fill_manual和scale_color_manual函数分别设置填充颜色和线条颜色，以及对应的标签。\n\n运行代码后，会显示一个分组柱状图上叠加了折线图的图形。\n