让上图的三个变量放在一起
时间: 2023-07-23 17:55:06 浏览: 84
好的,如果你想将三个变量的柱状图叠在一起,可以将它们逐一绘制,然后使用 `add = TRUE` 选项将它们叠加起来。以下是修改后的代码:
```R
# 输入数据
data <- data.frame(
month = c("Jan", "Feb", "Mar", "Apr", "May", "Jun",
"Jul", "Aug", "Sep", "Oct", "Nov", "Dec"),
var1 = c(10, 12, 15, 18, 20, 22, 25, 28, 30, 32, 35, 38),
var2 = c(15, 18, 20, 22, 25, 28, 30, 32, 35, 38, 40, 42),
var3 = c(20, 22, 25, 28, 30, 32, 35, 38, 40, 42, 45, 48)
)
# 绘制柱状图
barplot(
data$var1,
col = "#FFA07A",
ylim = c(0, 50),
xlab = "Month",
ylab = "Quantity",
names.arg = data$month
)
barplot(
data$var2,
col = "#20B2AA",
ylim = c(0, 50),
xlab = "Month",
ylab = "Quantity",
names.arg = data$month,
add = TRUE
)
barplot(
data$var3,
col = "#87CEFA",
ylim = c(0, 50),
xlab = "Month",
ylab = "Quantity",
names.arg = data$month,
add = TRUE
)
legend("topright", c("Variable 1", "Variable 2", "Variable 3"), fill=c("#FFA07A", "#20B2AA", "#87CEFA"))
```
解释一下代码:
首先,我们创建了一个数据框 `data`,其中包含了三个变量 `var1`、`var2` 和 `var3`,以及对应的月份 `month`。
然后,我们逐一绘制了三个变量的柱状图,将它们叠加在一起。其中,`add = TRUE` 参数表示将当前柱状图添加到前一个柱状图的顶部,而不是新建一个画布。`names.arg` 参数指定了横轴标签,`legend()` 函数用于绘制图例。
注意,这种方式可能会让柱状图变得比较杂乱,不太容易阅读。如果你想更好地展示数据,可以考虑使用分组柱状图或堆叠柱状图等方式。
相关推荐
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)