Định dạng ngày trên trục X trong ggplot2

Question

Tôi đang có một thời gian rất, rất khó khăn để trục x nhìn chính xác cho đồ thị của tôi.

Dưới đây là dữ liệu của tôi (được tạo ra thông qua dput()):

df <- structure(list(Month = structure(1:12, .Label = c("2011-07-31", "2011-08-31", "2011-09-30", "2011-10-31", "2011-11-30", "2011-12-31", "2012-01-31", "2012-02-29", "2012-03-31", "2012-04-30", "2012-05-31", "2012-06-30"), class = "factor"), AvgVisits = c(6.98655104580674,7.66045407330464, 7.69761337479304, 7.54387561322994, 7.24483848458728, 6.32001400498928, 6.66794871794872, 7.207780853854, 7.60281201431308, 6.70113837397123, 6.57634103019538, 6.75321935568936)), .Names = c("Month","AvgVisits"), row.names = c(NA, -12L), class = "data.frame") 

Dưới đây là bảng xếp hạng Tôi cố gắng để vẽ đồ thị:

ggplot(df, aes(x = Month, y = AvgVisits)) + 
    geom_bar() + 
    theme_bw() + 
    labs(x = "Month", y = "Average Visits per User") 

Đó biểu đồ hoạt động tốt - nhưng, nếu tôi muốn điều chỉnh định dạng của ngày, tôi tin rằng tôi nên thêm điều này: scale_x_date(labels = date_format("%m-%Y"))

Tôi đang cố gắng để làm cho nó để các nhãn ngày là 'MMM-YYYY'

ggplot(df, aes(x = Month, y = AvgVisits)) + 
    geom_bar() + 
    theme_bw() + 
    labs(x = "Month", y = "Average Visits per User") + 
    scale_x_date(labels = date_format("%m-%Y")) 

Khi tôi âm mưu đó, tôi tiếp tục nhận được lỗi này:

stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.

Mặc dù giờ nghiên cứu về định dạng của geom_line và geom_bar, tôi không thể sửa chữa nó. Bất cứ ai có thể giải thích những gì tôi đang làm sai?

Chỉnh sửa: Theo suy nghĩ tiếp theo: Bạn có thể sử dụng ngày làm yếu tố hay bạn nên sử dụng as.Date trên cột ngày?

Answer 1

Can you use date as a factor?

Có, nhưng có thể bạn không nên.

...or should you use as.Date on a date column?

Có.

nào đưa chúng ta đến đây:

library(scales) 
df$Month <- as.Date(df$Month) 
ggplot(df, aes(x = Month, y = AvgVisits)) + 
    geom_bar(stat = "identity") + 
    theme_bw() + 
    labs(x = "Month", y = "Average Visits per User") + 
    scale_x_date(labels = date_format("%m-%Y")) 

trong đó tôi đã thêm stat = "identity"-geom_bar cuộc gọi của bạn.

Ngoài ra, thông báo về băng thông không phải là lỗi. Một lỗi sẽ thực sự nói "Lỗi" trong đó, và tương tự như một cảnh báo sẽ luôn luôn nói "Cảnh báo" trong đó. Nếu không thì đó chỉ là một thông điệp.

Answer 2

Để hiển thị tháng như tháng 1 năm 2017 Tháng 2 năm 2017 vv:

scale_x_date(date_breaks = "1 month", date_labels = "%b %Y") 

Góc ngày nếu chúng chiếm quá nhiều không gian:

theme(axis.text.x=element_text(angle=60, hjust=1))