ggplot2折れ線グラフは、「geom_path：各グループは1つの観測のみで構成されています。グループの美的感覚を調整する必要がありますか？」

このデータフレーム（ "df"）の場合：

year pollution
1 1999 346.82000
2 2002 134.30882
3 2005 130.43038
4 2008  88.27546

私はこのような折れ線グラフを作成しようとします：

  plot5 <- ggplot(df, aes(year, pollution)) +
           geom_point() +
           geom_line() +
           labs(x = "Year", y = "Particulate matter emissions (tons)", title = "Motor vehicle emissions in Baltimore")

私が得るエラーは：

geom_path：各グループは1つの観測のみで構成されます。グループの美的感覚を調整する必要がありますか？

折れ線グラフが必要なのに、グラフが散布図として表示されます。に置き換えようとしましgeom_line()たgeom_line(aes(group = year))が、うまくいきませんでした。

答えとして、年を因子変数に変換するように言われました。私はそうしました、そして問題は持続します。これはstr(df)and の出力ですdput(df)。

'data.frame':   4 obs. of  2 variables:
 $ year     : num  1 2 3 4
 $ pollution: num [1:4(1d)] 346.8 134.3 130.4 88.3
  ..- attr(*, "dimnames")=List of 1
  .. ..$ : chr  "1999" "2002" "2005" "2008"

structure(list(year = c(1, 2, 3, 4), pollution = structure(c(346.82, 
134.308821199349, 130.430379885892, 88.275457392443), .Dim = 4L, .Dimnames = list(
    c("1999", "2002", "2005", "2008")))), .Names = c("year", 
"pollution"), row.names = c(NA, -4L), class = "data.frame")

group = 1ggplotまたはgeom_line aes（）に追加するだけです。

折れ線グラフの場合、接続するポイントがわかるようにデータポイントをグループ化する必要があります。この場合、それは簡単です-すべてのポイントを接続する必要があるため、group = 1です。より多くの変数が使用され、複数の線が描かれる場合、線のグループ化は通常、変数によって行われます。

参照：R用クックブック、章：グラフBar_and_line_graphs_（ggplot2）、折れ線グラフ。

これを試して：

plot5 <- ggplot(df, aes(year, pollution, group = 1)) +
         geom_point() +
         geom_line() +
         labs(x = "Year", y = "Particulate matter emissions (tons)", 
              title = "Motor vehicle emissions in Baltimore")

変数の1つが実際には因子変数であるため、このエラーが発生します。実行する

str(df) 

これを確認します。次に、この二重変数の変更を行って、「1,2,3,4」レベルの数値に変換するのではなく、年の数値を保持します。

df$year <- as.numeric(as.character(df$year))

編集：あなたのdata.frameはpbを引き起こすかもしれないクラス「配列」の変数を持っているようです 次に試してください：

df <- data.frame(apply(df, 2, unclass))

そして再びプロット？

データフレームに同様の問題がありました。

group time weight.loss
1 Control  wl1    4.500000
2    Diet  wl1    5.333333
3  DietEx  wl1    6.200000
4 Control  wl2    3.333333
5    Diet  wl2    3.916667
6  DietEx  wl2    6.100000
7 Control  wl3    2.083333
8    Diet  wl3    2.250000
9  DietEx  wl3    2.200000

x軸の変数は数値でなければならないので、geom_lineは点を接続して線を描く方法を知っています。

2列目を数値に変更した後：

 group time weight.loss
1 Control    1    4.500000
2    Diet    1    5.333333
3  DietEx    1    6.200000
4 Control    2    3.333333
5    Diet    2    3.916667
6  DietEx    2    6.100000
7 Control    3    2.083333
8    Diet    3    2.250000
9  DietEx    3    2.200000

それが機能します。

新しいセッションでRを起動し、これを次の場所に貼り付けます。

library(ggplot2)

df <- structure(list(year = c(1, 2, 3, 4), pollution = structure(c(346.82, 
134.308821199349, 130.430379885892, 88.275457392443), .Dim = 4L, .Dimnames = list(
    c("1999", "2002", "2005", "2008")))), .Names = c("year", 
"pollution"), row.names = c(NA, -4L), class = "data.frame")

df[] <- lapply(df, as.numeric) # make all columns numeric

ggplot(df, aes(year, pollution)) +
           geom_point() +
           geom_line() +
           labs(x = "Year", 
                y = "Particulate matter emissions (tons)", 
                title = "Motor vehicle emissions in Baltimore")

同様のプロンプトが表示されました。これは、x軸を特定のパーセンテージで指定したためです（たとえば、10％A、20％Bなど）。したがって、別の方法としては、これらの値を乗算して、最も単純な形式で書き込む方法があります。