Sorting out dataframe axis labels in ggplot-CodePudding

I have a data frame (df) in simple form looking like this:

   year    month  place  Value
1  2017     11     A     8
2  2017     11     B     14
3  2017     11     C     17
4  2017     12     A     55
5  2017     12     B     12
6  2017     12     C     69
7  2018     11     A     42
8  2018     11     B     25
9  2018     11     C     21
10 2018     12     A     26
11 2018     12     B     81
12 2018     12     C     14

I am trying to plot multiple graphs for each A, B, and C to observe the changes over the month from that of the previous month

library(zoo)
library(ggplot2)
df$time <- as.yearmon(paste(df$Year,df$month), "%Y %m")
ggplot(df, aes(x=as.character(time), y= Value, color= as.factor(place))) 
 geom_point() geom_line(aes(group=1))  facet_grid(place~., scales = "free_y")

But this isn't working. Even though the x-axis is sorted out in the data frame, it is getting scrambled as the x-axis gets labeled as Nov 2017, then Nov 2018 instead of Nov 2017, then Dec 2017. What am I doing wrong here?

CodePudding user response：

Update see comments of OP:

  library(ggplot2)
df %>% 
  mutate(time = as.Date(paste(year, month,"01", sep = "-"))) %>% 
  ggplot(aes(x=time, y= Value, color= as.factor(place)))  
  geom_point() 
  geom_line(aes(group=place)) 
  scale_x_date(date_labels="%b %y",date_breaks  ="1 month") 
  facet_grid(place~., scales= "free_y")  
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1))

First answer: With facet_grid

library(ggplot2)
df %>% 
  mutate(time = paste(month, year, sep = "-")) %>% 
  ggplot(aes(x=time, y= Value, color= as.factor(place)))  
  geom_point() 
  geom_line(aes(group=place)) 
  facet_grid(place~., scales= "free_y")

Without facet_grid as State is not in the provided dataframe.

you don't need first apply yearmon and then change class back to character

library(ggplot2)
library(dplyr)
df %>% 
  mutate(time = paste(month, year, sep = "-")) %>% 
  ggplot(aes(x=time, y= Value, color= as.factor(place)))  
  geom_point() 
  geom_line(aes(group=place))

data:

structure(list(year = c(2017L, 2017L, 2017L, 2017L, 2017L, 2017L, 
2018L, 2018L, 2018L, 2018L, 2018L, 2018L), month = c(11L, 11L, 
11L, 12L, 12L, 12L, 11L, 11L, 11L, 12L, 12L, 12L), place = c("A", 
"B", "C", "A", "B", "C", "A", "B", "C", "A", "B", "C"), Value = c(8L, 
14L, 17L, 55L, 12L, 69L, 42L, 25L, 21L, 26L, 81L, 14L), time = structure(c(NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_), class = "yearmon")), row.names = c("1", 
"2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"), class = "data.frame")

CodePudding user response：

This works for me -

library(zoo)
library(ggplot2)

df$time <- as.yearmon(paste(df$year,df$month), "%Y %m")

ggplot(df, aes(x=time, y= Value, color= as.factor(place)))   
  geom_point()  
  geom_line(aes(group=1))   
  facet_grid(place~., scales = "free_y")

data

df <- structure(list(year = c(2017L, 2017L, 2017L, 2017L, 2017L, 2017L, 
2018L, 2018L, 2018L, 2018L, 2018L, 2018L), month = c(11L, 11L, 
11L, 12L, 12L, 12L, 11L, 11L, 11L, 12L, 12L, 12L), place = c("A", 
"B", "C", "A", "B", "C", "A", "B", "C", "A", "B", "C"), Value = c(8L, 
14L, 17L, 55L, 12L, 69L, 42L, 25L, 21L, 26L, 81L, 14L)), 
class = "data.frame", row.names = c(NA, -12L))