R 线图形状

我想创建一个折线图，显示特定日期内不同的测量时间。请看下面的线图-但是我如何才能改变每天有7种不同类型的线，而不是有尖峰？每行定义一天。因此，六个盒子中的七种颜色相同，但时间/形状不同。为什么这条线这么尖

更新1@Elia提供了一个解决方案，我成功地创建了绘图

更新2:如何设置从04:00开始的时间格式

基本上，我会针对下面的每框图

示例代码：

(plot<-ggplot(df, aes(x = time,y = value, group=variable)) + 
    geom_line(aes(color=Day)) +
    labs(x="Time", y="%", colour="Day of the week" ) +  
    facet_wrap(~variable)+
    theme_bw()+
    theme(legend.position="right", axis.text.x = element_text(angle = 0, hjust = 0)))

---

（绘图只需将
组
ing变量更改为
天
：

library(ggplot2)
(plot<-ggplot(df, aes(x = time,y = value, group=Day)) + 
    geom_line(aes(color=Day)) +
    labs(x="Time", y="%", colour="Day of the week" ) +  
    facet_wrap(~variable)+
    theme_bw()+
    theme(legend.position="right", axis.text.x = element_text(angle = 0, hjust = 0)))

库（ggplot2）
(plot@RonakShah感谢您的时间和持续的建议/帮助。基本上，我更新了我想在每个框中创建的线条图？但为什么我的线条如此刺眼？@Ronaksah感谢您的时间我尝试设置x轴时间的格式，但我不知道谁可以设置开始时间：04:00和结束时间03:50的限制
library(ggplot2)
(plot<-ggplot(df, aes(x = time,y = value, group=Day)) + 
    geom_line(aes(color=Day)) +
    labs(x="Time", y="%", colour="Day of the week" ) +  
    facet_wrap(~variable)+
    theme_bw()+
    theme(legend.position="right", axis.text.x = element_text(angle = 0, hjust = 0)))