ggplotの凡例がありません

Question

ggplotを使って平日の自転車レンタルの平均回数をRで表示するようにプロットしようとしています。私のデータに平日があります。

ggplot(bike_share_train, aes(x=hour, y=count, color=day))+ 
    geom_point(data = day_summary_by_hour, aes(group = day))+ 
    geom_line(data = day_summary_by_hour, aes(group = day))+ 
    ggtitle("Bikes Rent By Weekday")+scale_colour_hue('Weekday') 

私は平日名にこれらの数字を変更したいと私はコマンドの下に使用してみましたが、伝説はggplotにありません。この問題を解決する方法を教えてください。

ggplot(bike_share_train, aes(x=hour, y=count, color=day))+geom_point(data = day_summary_by_hour, aes(group = day)) + 
    geom_line(data = day_summary_by_hour, aes(group = day))+ 
    ggtitle("Bikes Rent By Weekday")+ 
    scale_colour_hue('Weekday', breaks = levels(bike_share_train$day), labels=c('Monday','Tuesday','Wednesday','Thursday','Friday','Saturday','Sunday')) 

Answer 1

私のミスのためにすべての人に心からの謝罪。私はdatetime値から平日、時間を抽出しましたが、charからこれらのフィールドの因子にデータ型を変更するのを忘れました。だから、ggplotの問題。私はデータ型を変更し、ggplotをチェックしました。今、伝説が見せています。

Answer 2

OPが解決策を見つけましたが、私は各グループが1つの観測のみで構成されている場合に代替アプローチを提案しています。

library(ggplot2) 
# create some sample data 
bike_share_data<-data.frame(hour = c(1.5,2.3,1.3,2.2,1.5), 
         count = c(21,26,30,15,20), 
         day = c("1","2","3","4","5")) 
head(bike_share_data) 
ggplot(bike_share_data, aes(x=hour, y=count, color=day))+ 
    geom_point(data = bike_share_data, aes(group = 1))+ 
    geom_line(data = bike_share_data, aes(group = 1))+ 
    ggtitle("Bikes Rent By Weekday")+ 
    scale_colour_hue('Weekday', 
        breaks = levels(bike_share_data$day), 
        labels=c('Monday','Tuesday','Wednesday','Thursday','Friday') 
)