R、ggplotでグラフ描画のためのデータの整形の仕方がわかりません。

Question

R, データマイニングに関しての質問です。R超初心者で、数日前に似たような質問をしたのですが、再度似たような質問で申し訳ございません。
下のcsvファイルからimportしたデータの統計値をggplotで折れ線グラフにプロットしたいのですが、どうもうまく行きません。
csvファイルをimportしてR内で表記させると、一番下のように表示されます。このデータを直接使って、"Signal"の平均値をY軸に、categorial変数としての"Time"をX軸において、プロットしたいのです。
他のwebsiteの練習用のデータを用いて、下のコードでグラフを描かせると、ちゃんとグラフが出てくるので、恐らくデータの整形に問題があると思うのですが、なにが間違えているのでしょう？どなたかご教示頂ければ幸いです。

コードは以下のように書きました。
"DT"は一番下に置きましたもともとcsvにあるデータです。

a <- ggplot(DT, aes(x=as.numeric(Time), y=Signal)) +
  stat_summary(fun.y=mean, geom="point", size=4) +
  stat_summary(fun.y=mean, geom="line", size=1)
a +
  xlab("Time") +
  theme(axis.title.x = element_text(color="Black", size=25),
        axis.title.y = element_text(color="Black", size=25),
        axis.text.x = element_text(size=15),
        axis.text.y = element_text(size=15), 
        legend.title = element_text(size=15),
        legend.text = element_text(size=15),
        legend.position = c(1,1),
        legend.justification = c(1,1))

A tibble: 16 x 3

ID Time Signal
<chr> <chr> <int>
1 MDC16b-1 0min 342
2 MDC16b-2-1 0min 360
3 MDC16b-2-2 0min 248
4 MDC16b-3-1 0min 144
5 MDC16b-1 1min 336
6 MDC16b-2-1 1min 348
7 MDC16b-2-2 1min 241
8 MDC16b-3-1 1min 145
9 MDC16b-1 5min 330
10 MDC16b-2-1 5min 347
11 MDC16b-2-2 5min 237
12 MDC16b-3-1 5min 145
13 MDC16b-1 10min 335
14 MDC16b-2-1 10min 345
15 MDC16b-2-2 10min 233
16 MDC16b-3-1 10min 145

Warning messages:
1: In fun(x, ...) : NAs introduced by coercion
2: In FUN(X[[i]], ...) : NAs introduced by coercion
3: In FUN(X[[i]], ...) : NAs introduced by coercion
4: Removed 16 rows containing non-finite values (stat_summary).
5: Removed 16 rows containing non-finite values (stat_summary).
というWarningが出てきてしまいます。

Comments

[KojiDoi]

質問文のコードはそれぞれコードブロックで囲んでください。 前後に```（バッククオート3つ）をいれるか、コードを選択して「<code>」ボタンを押すとコードブロックになります。

Answer 1

エラーが出る直接の原因は、たぶん次のコードを試してみればわかります。

as.numeric("1")
as.numeric("1min")

Comments

[hiraimar]

ご教示有り難うございます。なるほど。as.numeric("1min")は、NAになってしまうのですね。そらそうですね。。categorial 変数を無理に数字にしてしまおうとしてしまったのが、ダメだったのですね。
ところで、点は出てきたのですが、lineが表示されず、しかも、下のWarningがでてきてしまいました。
geom_path: Each group consists of only one observation. Do you need to adjust the group aesthetic?
これはどういうことなのでしょう？

[KojiDoi]

たぶんですがあなたが使うべきはgeom_pathではなく geom_lineなのではないですかね。

そしてデータフレームについても再確認が必要です。
入力用データは連続値なのか数値なのか因子なのか？
関数が受け付けるのは連続値なのか数値なのか因子なのか？
その確認があやふやのままだとRは言うことを聞いてくれません。

http://yyhhyy.hatenablog.com/entry/2016/08/21/170000

[hiraimar]

ご返信有り難うございます。
https://markhneedham.com/blog/2015/01/30/r-ggplot2-each-group-consist-of-only-one-observation-do-you-need-to-adjust-the-group-aesthetic/
を参考にして、
ggplot(DT, aes(x=Time, y=Signal))のところを
ggplot(DT, aes(x=Time, y=Signal), group=1)とすることで解決しました。
各々の"Time"をgroupとして認識させる必要があったようです。
上記サイトでも、
ggplot(DT, aes(x=as.numeric(Time), y=Signal))とすることでも解決すると書いてあるのですが、それは最初に提示したコードと同一で、グラフを描画できませんでした。この辺のdiscrepancyは未だ理解できませんが、ご指摘のとおり、typeが異なるので、描画出来ない方が自然な気がします。
とりあえず持っているデータの作図はできそうです。助かりました！

ご指摘の通り、Rでcategorial変数と連続変数をどのように扱うのか、未だ混乱中で、これからの課題です。
また、私の愚問にいつも丁寧に答えて下さり有り難うございます！！