1

我正在使用以下代码创建 facet_grid 图：

load(url("http://ebib.com.br/dados.RData"))

library(ggplot2)
library(scales)

ggplot() + geom_step(data=subset(me, variable=="Umid. Relat."), aes(Data, value), color="blue") +
   geom_smooth(data=subset(me, variable=="Umid. Relat."), aes(Data, value), , color="blue") +
   geom_line(data=subset(me, variable=="Vel. Vento"), aes(Data, value), color="gray20") +
   geom_smooth(data=subset(me, variable=="Vel. Vento"), aes(Data, value), color="gray20") +
   geom_line(data=subset(me, variable==c("Temp. Max.", "Temp. Min.")), aes(Data, value, colour=variable)) +
   geom_smooth(data=subset(me, variable==c("Temp. Max.", "Temp. Min.")), aes(Data, value, colour=variable)) +
   geom_bar(stat="identity", data=subset(me, variable=="Precipitação"), aes(Data, value), fill="blue") +
   facet_grid(variable~., scales="free_y") +
   scale_x_date(breaks = date_breaks("months"), labels = date_format("%b")) +
   theme(legend.position="none")

有没有办法绘制变量“Temp. Max”。和“最低温度” 在同一个图表/方面？

编辑：工作代码

load(url("http://ebib.com.br/dados.RData"))

library(ggplot2)
library(scales)

me$variable2 <- as.character(me$variable)
me$variable2[me$variable2 %in% c("Temp. Max.","Temp. Min.")] <- "Temp. Max./Min."

ggplot() + geom_line(data=subset(me, variable=="Umid. Relat."), aes(Data, value), color="blue") +
geom_smooth(data=subset(me, variable=="Umid. Relat."), aes(Data, value), , color="blue") +
geom_line(data=subset(me, variable=="Vel. Vento"), aes(Data, value), color="gray20") +
geom_smooth(data=subset(me, variable=="Vel. Vento"), aes(Data, value), color="gray20") +
geom_line(data=subset(me, variable==c("Temp. Max.", "Temp. Min.")), aes(Data, value, colour=variable)) +
geom_smooth(data=subset(me, variable==c("Temp. Max.", "Temp. Min.")), aes(Data, value, colour=variable)) +
geom_bar(stat="identity", data=subset(me, variable=="Precipitação"), aes(Data, value), fill="blue") +
facet_grid(variable2~., scales="free_y") +
scale_x_date(breaks = date_breaks("months"), labels = date_format("%b")) +
theme(legend.position="none")
4

1 回答 1

4

您需要一个新变量来进行刻面。

新列variable2几乎与 相同，但和都有variable一个值。"Temp. Max./Min.""Temp. Max.""Temp. Min."

me$variable2 <- as.character(me$variable)
me$variable2[me$variable2 %in% c("Temp. Max.","Temp. Min.")] <- "Temp. Max./Min."

将此变量用作 的参数facet_grid：

facet_grid(variable2 ~., scales = "free_y")

这将产生以下情节：

在此处输入图像描述

于 2014-01-03T12:29:50.077 回答