在 R 中绘制一系列数据

Question

我有一个包含以下几行的 CSV 文件：

10,130,A,100,1000
10,130,B,200,-200
10,130,C,300,1200
20,140,A,120,1050
20,140,B,220,-300
20,140,C,320,1250
30,120,A,145,1130
30,120,B,255,1000
30,120,C,355,1110
...

以此类推，在第一列中，每增加三行，10。对于第 3 列中的每种类型（A、B 和 C），每行在第 4 列和第 5 列中包含两个值。对于每组三行，第 1 列和第 2 列中的值是相同的。

我是这样读的：

data <- read.csv("data_out.csv", header=FALSE, sep=",")

从文件中读取的每三行包含 8 个值，可以在图表上绘制为 Y（前三行的示例）：

1. 第 1 列 (10) 中的值
2. 第 2 列中的值 (130)
3. 类型 A (100) 的第 4 列中的值
4. 类型 A (1000) 的第 5 列中的值
5. 类型 B (200) 的第 4 列中的值
6. 类型 B (-200) 的第 5 列中的值
7. 类型 C (300) 的第 4 列中的值
8. 类型 C (1200) 的第 5 列中的值

它们将被绘制为 X = 10。

所以前 8 个点将具有以下坐标 (X,Y)：

(10,10); (10,130); (10,100); (10,1000); (10,200); (10,-200); (10,300); (10,1200)

第 1 列中 20 的下三行将具有坐标：

(20,20); (20,140); (20,120); (20,1050); (20,220); (20,-300); (20,320); (20,1250)

对于输入文件中的第三行和任何其他三行的集合也是如此。

应连接代表每组三条线中的这 8 个值中的每一个的点以形成折线图 similar to this one（但有 8 个折线图，而不是示例中的 4 个）。所以在同一个图表上会有 8 个折线图，分别代表 X=10、X=20、X=30 等的值。

关于解决方案的问题

我知道如何绘制一条线，例如plot(data[,1],data[,4],type="l") 但是如何绘制多条线？

以及如何确保 Y 的 0 在正确的位置，以便 C5 的负值也可以正确绘制？

另外，我知道有 aggregate 函数可用于按类型（A、B、C）分组，但我不想执行任何汇总或平均，所以我可能正在寻找过滤器（按类型）而不是聚合？

我可能还想确保 C1 中的不同值的数量与 C2 中的相同（纯粹是为了验证输入数据是否正确）。

Answer 1

鉴于您已添加到编辑中的数据，我将再次解决您的问题2。希望您能在此解释后解决您的实际问题。

您说您从 csv 读取的数据框：

df = data.frame(
  c(10,130,"A",100,1000),
  c(10,130,"B",200,-200),
  c(10,130,"C",300,1200),
  c(20,140,"A",120,1050),
  c(20,140,"B",220,-300),
  c(20,140,"C",320,1250),
  c(30,120,"A",145,1130),
  c(30,120,"B",255,1000),
  c(30,120,"C",355,1110))

我们需要将其转置为列格式，您最初在帖子中提到过。

df = data.frame(t(df))

我根据您的示例命名该列：

names(df) = c("C1","C2","C3","C4","C5")

在 R 中安装和读取包：

install.packages("reshape2")
install.packages("ggplot2")
library(reshape2)
library(ggplot2)

melt 将您的数据重塑为有助于绘制图表的长格式。第一个变量 C4 和 C5 被转换为长格式，并重命名以在图中识别它们。

d1 = melt(df[,c(1,3:5)], id.vars = c("C1","C3"), measure.vars = c("C4","C5"), variable.name = "col")
d1$group = paste0(d1$C3,d1$col)

然后变量C1和C2在没有[A,B,C]的情况下被融化。

d2 = unique(melt(df[,c(1:2)], id.vars = "C1", measure.vars = c("C1","C2"), variable.name = "group"))

两个融合的数据集由绘图所需的列组合。

p = rbind(d1[,c("C1","group","value")], d2[,c("C1","group","value")])
p$value = as.numeric(p$value)

您可以绘制线条，按您创建的组为线条着色以识别它们，然后绘制标签以读取值。

ggplot(p, aes(x=C1, y=value, group=group, color=group, label=value)) + 
  geom_line() + geom_point() + geom_text(aes(label=value, hjust= 1, vjust=-1))