ggplot2折线图给出" geom_path:每组只包含一个观察。你需要调整群体审美吗?"

时间:2014-11-22 21:10:18

标签: r ggplot2

使用此数据框(" 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:每组只包含一个观察。你需要吗?   调整群体审美?

即使我想要折线图,图表也会显示为散点图。我尝试将geom_line()替换为geom_line(aes(group = year)),但这不起作用。

在答案中,我被告知要将年份转换为因子变量。我做了,问题仍然存在。这是str(df)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")

6 个答案:

答案 0 :(得分:248)

您只需将group = 1添加到ggplot或geom_line aes()中。

  

对于折线图,必须对数据点进行分组,以便知道要连接的点。在这种情况下,它很简单 - 所有点都应该连接,所以group = 1。当使用更多变量并绘制多行时,行的分组通常由变量完成。

参考:Cookbook for R, Chapter: Graphs Bar_and_line_graphs_(ggplot2), Line graphs.

试试这个:

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 :(得分:18)

您收到此错误,因为您的某个变量实际上是一个因子变量 。执行

str(df) 

检查一下。 然后执行此双变量更改以保留年份数而不是转换为“1,2,3,4”级别数字:

df$year <- as.numeric(as.character(df$year))
编辑:看来你的data.frame有一个类“array”的变量,它可能会导致pb。 然后尝试:

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

和plto

答案 2 :(得分:1)

在新会话中启动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")

答案 3 :(得分:1)

我也收到类似的提示。这是因为我以某个百分比指定了x轴(例如:10%A,20%B等)。 因此,另一种方法是将这些值相乘并以最简单的形式编写。

答案 4 :(得分:0)

我对数据框有类似的问题:

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知道如何连接点以画线。

将第二列更改为数字后:

 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

然后它起作用。

答案 5 :(得分:0)

我发现,如果绘制的大多数数据超出轴限制,也会发生这种情况。在这种情况下,请相应地调整轴刻度。