ro如何在R中绘制多行图

我有一个dataframe，具有如下6个功能：

                X1   X2   X3   X4   X5   X6
Modern Dog     9.7 21.0 19.4  7.7 32.0 36.5
Golden Jackal  8.1 16.7 18.3  7.0 30.3 32.9
Chinese Wolf  13.5 27.3 26.8 10.6 41.9 48.1
Indian Wolf   11.5 24.3 24.5  9.3 40.0 44.6
Cuon          10.7 23.5 21.4  8.5 28.8 37.6
Dingo          9.6 22.6 21.1  8.3 34.4 43.1 

我想画一个像这样的线图：

                X1   X2   X3   X4   X5   X6
Modern Dog     9.7 21.0 19.4  7.7 32.0 36.5
Golden Jackal  8.1 16.7 18.3  7.0 30.3 32.9
Chinese Wolf  13.5 27.3 26.8 10.6 41.9 48.1
Indian Wolf   11.5 24.3 24.5  9.3 40.0 44.6
Cuon          10.7 23.5 21.4  8.5 28.8 37.6
Dingo          9.6 22.6 21.1  8.3 34.4 43.1 

我正在尝试这个：

plot(df$X1, type = "o",col = "red", xlab = "Month", ylab = "Rain fall")

lines(c(df$X2, df$X3, df$X4, df$X5, df$X6), type = "o", col = "blue")

但它只绘制了一个变量。如果这个问题很烦人，我很抱歉，我对R完全是新手，我只是不知道如何才能做到这一点。我真的很感激在这方面的任何帮助

---

提前感谢

最简单的方法是将数据集转换为长格式（例如，使用

tidyr

软件包中的

gather

功能），然后在

ggplot

中使用

组

进行绘图

我重新创建您的数据集，假设您的组变量名为“group”：

---

df最简单的方法是将数据集转换为长格式（例如，使用
tidyr
软件包中的
gather
功能），然后使用
ggplot
中的
组
进行绘图

我重新创建您的数据集，假设您的组变量名为“group”：

df您能否通过共享您的数据样本使您的问题重现，以便其他人能够提供帮助（请不要使用
str（）
、
head（）
或屏幕截图）？您可以使用和包来帮助您实现这一点。另请参见&这些可能会有帮助&谢谢@Tung，我的数据框是在问题中发布的，是整个数据框，不是head（）函数我的折线图不是基于时间，而是基于功能。我想复制与我添加的pic相同的折线图。您能否通过共享您的数据样本使您的问题重现，以便其他人能够提供帮助（请不要使用
str（）
，
head（）
或屏幕截图）？您可以使用和包来帮助您实现这一点。另请参见&这些可能会有帮助&谢谢@Tung，我的数据框是在问题中发布的，是整个数据框，不是head（）函数我的折线图不是基于时间，而是基于功能。我想复制我添加的pic的相同折线图。非常感谢你的回答！！这看起来像是我需要的，但是当我执行代码时，我得到以下错误：
未找到对象“组”
。你知道我怎样才能解决这个问题吗？？再次感谢：）我遗漏了一步：我假设您的组变量名为
group
。看到我的编辑上面。嘿，非常感谢，现在我得到它的权利！！请再问一个问题。如何显示按列X4按升序排列的功能的绘图？这是一个单独的问题，注释部分不是为扩展讨论而设计的。我建议你为这个问题提出一个新的问题。你可能想提到这个问题：嗨。非常感谢你的回答！！这看起来像是我需要的，但是当我执行代码时，我得到以下错误：
未找到对象“组”
。你知道我怎样才能解决这个问题吗？？再次感谢：）我遗漏了一步：我假设您的组变量名为
group
。看到我的编辑上面。嘿，非常感谢，现在我得到它的权利！！请再问一个问题。如何显示按列X4按升序排列的功能的绘图？这是一个单独的问题，注释部分不是为扩展讨论而设计的。我建议您就此问题提出一个新问题。您可能希望参考此问题：
library(tidyr)
library(ggplot2)

df_long <- df %>% gather(X1:X6, key = "Month", value = "Rainfall")
ggplot(df_long, aes(x = Month, y = Rainfall, group = Group, shape = Group)) +
  geom_line() +
  geom_point() +
  theme(legend.position = "bottom")