Tracer les données de séries temporelles dans r pour un mois par mois

Question

Besoin d'aide pour r dans les données de séries temporelles. Le Y est la température et X est la date (maintenant au format% d-% m-% y) et nécessite un tracé comme:

temp data in month wise along with a box plot

J'ai essayé:

univariare température

temperature = ts(r$temp, frequency = 12, start = 2011) plot(temperature, xaxt = "n") tsp = attributes(temperature)$tsp dates 
= seq(as.Date("2011-01-01"), by = "month", along = temperature) axis(1, at = seq(tsp[1], tsp[2], along = temperature), labels = format(dates, "%m-%y")) 

ggplot

gg2=ggplot(r,aes(mnth,temp)) + geom_line() 
windows() 
print(gg2) 

mais le format est incorrect.

Toute aide sera vraiment appréciable !!

Merci Devi

Answer 1

library(ggplot2) 

# Simulated temperature data 
temp <- runif(75) 

temp.avg <- vector() 

x <- 365 

for(i in 1:x){ 
    if(i <= round(.33 * x)) { 
    temp.avg[i] <- mean(sample(temp, 15, replace = TRUE)) 
    } else if (i <= round(.66 * x)) { 
    temp.avg[i] <- abs(log(mean(sample(temp, 15, replace = TRUE)))) 
    } else { 
    temp.avg[i] <- mean(sample(temp, 15, replace = TRUE)) * (i/x) + .15 
} 
} 

# Generate sequence of days in Date format "%d-%m-%y" 
from <- as.Date("01-1-11 12:00:00 EDT", "%d-%m-%y") 
to <- as.Date("31-12-11 12:00:00 EDT", "%d-%m-%y") 
times <- seq.Date(from, to, 1) 

# Put dates and temperatures into data frame 
Temperature_data <- data.frame(date = times, temp = temp.avg) 

# Plot in ggplot 
ggplot(Temperature_data, aes(date, temp)) + 
    geom_line() + 
    ylim(c(0, 1)) + 
    xlab("") + 
    ylab("Temperature") + 
    scale_x_date(date_breaks = "1 month", date_labels = "%b %y") + 
    theme(axis.text.x = element_text(angle = 90, hjust = 1)) + 
    ggtitle("Temperature fluctuations in 2011")