Artigo Ana SF6

---

---

Packages

library(dplyr)#organização de dados (arrange)
library(ggplot2)#graficos

data

data1=read.csv("C:\\Users\\Samsung\\Documents\\Doutorado CENA_USP\\2 - Artigos\\Ana SF6\\data1.csv")
data1$data = as.Date(as.character(data1$data, format = "%Y%m$d"))
data1 = arrange(data1, data)
data1$period = factor(data1$period, levels = c(1, 2, 3), labels = c("Period 1", "Period 2", "Period 3"))
str(data1)

'data.frame':   80 obs. of  4 variables:
 $ data  : Date, format: "2021-04-08" "2021-04-08" "2021-04-08" "2021-04-08" ...
 $ period: Factor w/ 3 levels "Period 1","Period 2",..: 1 1 1 1 1 1 1 1 1 1 ...
 $ group : chr  "Temperature" "RH" "Rainfall" "Dewpoint" ...
 $ values: num  22.6 68.5 0 16.3 22.2 68.5 0 15.9 22.2 67.3 ...

print(data1)

PLOT

p1 = ggplot(data1, aes(x = data, y = values, group = group)) +
  geom_point(data = subset(data1, group != "Rainfall"), aes(shape = group), size = 2) +
  geom_line(data = subset(data1, group != "Rainfall"), aes(group = group), color = "black") +
  geom_bar(data = subset(data1, group == "Rainfall"), aes(x = data, y = values, fill = "Rainfall"), stat = "identity") +
  facet_wrap(~ period, scales = "free_x")
p1

p1.1=p1+
  scale_shape_manual(values = c(16, 15, 1), name= NULL, labels = c("Dew point (ºC)","Relative humidity (%)","Temperature (ºC)"))+
  scale_fill_manual(values = c("Rainfall" = "darkblue"), name = NULL, labels="Rainfall (mm)")+
  scale_x_date(name=NULL,date_labels = "%m-%d-%Y", date_breaks = "1 day")+
  scale_y_continuous(name= NULL, breaks = seq(0, 80, 5))
p1.1

p1.2=p1.1+
  theme(panel.background = element_rect(fill = "transparent", colour = "black"),
        panel.border = element_rect(color = "black", fill = NA, size = 0.5),
        panel.spacing = unit(0.5, "lines"),
        strip.background = element_rect(fill = "lightgray", colour = "black"),  
        strip.text = element_text(colour = "black", size=12),
        legend.position = "top", legend.box = "horizontal",
        legend.background = element_rect(fill = "transparent", size=0.5, linetype="solid",colour ="black"),
        legend.key.height = unit(0.4,"cm"),  
        legend.key.width = unit(0.4,"cm"),
        legend.text = element_text(size=12),
        axis.text.x = element_text(angle = 25, hjust = 0.9,size = 11),
        axis.text.y = element_text(size = 11)
        )
p1.2