-1

時間の経過に伴う基本周波数の複数の曲線を示す ggplot を使用してプロットを作成しようとしています。各タイプの複数のトークンからのデータを使用して、さまざまな種類の単語を調べています (簡単にするために、これらのタイプを 1、2、および 3 と呼び、トークンに 1 から 20 のラベルを付けました)。単純なデータ セットの場合、10 個の時点 (1 ~ 10 のラベルが付いています) とそれらに関連付けられた F0 値しかありません。さまざまな色のグラフにさまざまな種類の単語が含まれているが、それらの種類内のさまざまなトークンがすべて同じ色内にあるグラフが必要です。aes() を使用すると、「色」は単語で定義され、x は時間、y は f0 値になると想像できます。データを R にコード化しようとするたびに、未定義の列が取得されていることがわかります。私が使用しているコードは次のようになります。

theme_set(theme_bw())
myf0 <- ggplot(ent, aes(x = Time, groups = token, colour = word))
myf0 <- myf0 + geom_line(aes(y = F0), alpha = 0.8)
myf0 <- myf0 + ylab("Hz")

ただし、 myf0 をプロットすると、次のように表示されます。

Error in `[.data.frame`(data, "group") : undefined columns selected

私は何を間違っていますか?ありがとうございました!

明確化のポイント: 申し訳ありませんが、データのスニペットを追加するのを忘れていました! これは次のようになります。

  word token Time        F0
1    1     1    1  107.8968
2    1     1    2  113.1362
3    1     1    3  117.2904
4    1     1    4  127.3287
5    1     1    5  132.7554
6    1     1    6  126.4456
7    1     1    7 111.19686
8    1     1    8  93.87390
9    1     1    9  87.12876
10   1     1   10  86.40445

単語が 1 から 3 まで、トークンが 1 から 20 まで (単語クラスごとに 20 個のトークンがあるため、合計 60 個のトークン)、トークンごとに 1 から 10 までの時間が経過し、各ポイントに F0 値があります。 .

したがって、ggplot を機能させようとするとエラーが発生する単純な例のデータの短いスニペットは、次のようになります。

   word token Time        F0
1     1     1    1 107.89677
2     1     1    2 113.13620
3     1     1    3 117.29039
11    1     2    1 117.0063
12    1     2    2 119.6887
13    1     2    3 116.1143
201   2     1    1 125.25897
202   2     1    2 119.52722
203   2     1    3 115.67006
211   2     2    1 101.54531
212   2     2    2 102.27651
213   2     2    3 100.96099
401   3     1    1  98.82212
402   3     1    2  98.82212
403   3     1    3  97.78813
411   3     2    1  95.15890
412   3     2    2  97.76110
413   3     2    3 100.42595

お役に立てれば!ありがとう!

4

1 に答える 1

1

これは、あなたの望むことですか?単語ごとに色分けされた、単語内のトークンごとに 1 行。

ent$word <- as.factor(ent$word)
ent$token <- as.factor(ent$token)

ggplot(ent, aes(x = Time, y = F0, group = interaction(word, token), colour = word)) +
  geom_line() + 
  ylab("Hz") +
  theme_bw()

ここに画像の説明を入力

于 2013-09-23T18:32:25.650 に答える