在R中排列数据以创建绘图时出现问题

我有以下数据集：- 这些图像为数据集提供了详细信息。它们是一家公司的销售额，“类型”列有两个条目“商店”和“在线”

我应该创建一个折线图，将公司的销售额显示为商店和在线销售的同一折线图上的两条不同的线。但是，我得到了错误的结果，无法理解如何将数据分为两种类型，然后创建图形

到目前为止，我使用的代码正是我所写的，目的是试图理解我作为R的初学者所得到的结果。下面的代码给出了一个错误的折线图：-

figure <-ggplot(Amazing_retail.df, aes(year_month,Sales))+
  geom_line(color='blue')+
  xlab("Year_Month")+
  ylab("Total Sales")+
  ggtitle("Monthwise Sales for the Years 2010-11")
figure

---

figure
Amazing_retail.df不提供您的数据截图，您能提供一个最小的可复制示例吗？
Amazing_retail.df <- data.frame( year_month = rep(1:12, 2), 
                                 sales_type = c(rep("online", 12), rep("shop", 12)),
                                 Sales = sample(100000:200000, 24))

ggplot(Amazing_retail.df, aes(x = year_month, y = Sales)) + 
  geom_line(aes(color = sales_type, linetype = sales_type)) + 
  scale_color_manual(values = c("red", "blue")) +
  xlab("Year_Month")+
  ylab("Total Sales")+
  ggtitle("Monthwise Sales for the Years 2010-11")