Rでggplotを使って複数のデータを折れ線グラフで可視化しようとしても、Y軸のデータが下に詰まってしまう

前提

e-Statrからダウンロードしたデータをクレンジングして、Rとggplotを使って各項目の売り上げをそれぞれの折れ線グラフにしたい

Rstudioで自動可視化システムを作っています。
グラフ化する機能を実装中に以下の問題が発生しました

実現したいこと

e-Statrからダウンロードした以下のようなExcelデータを自動でクレンジングし、各項目別の折れ線グラフを出力したい

ちなみにクレンジングしたデータは以下のようにしました

（すべて一列に並べました）

発生している問題

Y軸の売り上げが全部下によってしまい正しいグラフ化ができない

該当のソースコード

use_colors <- brewer.pal(10, "Set3")
g <- ggplot(dt2, aes(x = Date, y = sales, group = 10, color = item_data)) + #色でapplication列を指定
  geom_line() +
  coord_cartesian(ylim = c(0, 200000)) +
  scale_color_manual(values = c(use_colors)) + #グラフの色を順に指定
  labs(color = "項目")  #凡例のタイトルを指定．今回は色に関する凡例のタイトルなので

plot(g)

複数のデータを同じエリアにグラフとして出している実装のブログなどを写経して、それを改変しながらやっているのですが、どうもうまくいきません。
根本的にこれ勘違いしているのでは？など何かアドバイスいただけないでしょうか？

皆様お忙しいところ恐縮ですが、お力いただけるとありがたいです

KojiDoi

2022/05/25 13:28

str(dt2)を実行するとどういう出力になりますか？

lkjgffh

2022/05/26 01:25

ご指摘くださりありがとうございます下記のような出力になりました > str(dt2) tibble [500 x 3] (S3: tbl_df/tbl/data.frame) $ Date : chr [1:500] "昭.46(1971)" "昭.47(1972)" "昭.48(1973)" "昭.49(1974)" ... $ item_data: chr [1:500] "林業産出額" "林業産出額" "林業産出額" "林業産出額" ... $ sales : chr [1:500] "105550" "71063" "96323" "97300" ...