如何针对一列绘制数据矩阵的每列的多行？

Question

对于名为Results：

的对象中存储的以下矩阵11 * 8

         Delta UE        RE        LS        PT        SP        JS       JS+
SRE0  0.000000  1 3.8730275 2.2721219 1.0062884 1.0047529 1.0317746 1.0318688
SRE1  0.100065  1 2.2478516 2.0595205 1.0502708 1.0453288 1.0436898 1.0764224
SRE2  0.200385  1 1.5838920 1.8793306 1.0359049 1.0437888 1.0529307 1.0753217
SRE3  0.300075  1 0.9129295 1.5360455 0.9946433 1.0320438 1.0063378 1.0654772
SRE4  0.400175  1 0.6434000 1.3150935 0.9530553 1.0172104 1.0107737 1.0564151
SRE5  0.500138  1 0.6063778 1.2876456 0.9455131 1.0165491 0.9994965 1.0553198
SRE6  0.600200  1 0.3710599 0.9537165 0.8730835 0.9945211 0.9346991 1.0369921
SRE7  0.699500  1 0.3312944 0.8793348 0.8535376 0.9914288 0.9046180 1.0314705
SRE8  0.800285  1 0.2338423 0.6966505 0.7831482 0.9657499 0.8445466 1.0169138
SRE9  0.900020  1 0.1665775 0.5328803 0.7024265 0.9296520 0.7989161 0.9850603
SRE10 1.000074  1 0.1550065 0.5047066 0.6849924 0.9231919 0.7765414 0.9821768

我想在单个图形中针对第一列绘制（作为一条线）此矩阵的最后7列，使得每列具有不同的颜色或不同的线段。名为Delta的第一列应放在X轴上，而其余列应放在Y轴上。

Answer 1

我要采取的基本想法是将您的Results对象从宽格式更改为长格式，然后传递给ggplot。我喜欢使用Hadley Wickham的reshape2库。它有一个函数melt，它会适当地堆叠你的数据，然后你可以选择按不同的变量对行进行分组。

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

R = data.frame(Delta = c(1,2), UE = c(1,1), RE = c(3.8, 2.4))
meltR = melt(R, id = "Delta")

ggplot(meltR, aes(x = Delta, y = value, group = variable, colour = variable)) + 
  geom_line() 

Answer 2

尝试：

matplot(m[,1],m[,-1],type='l')

其中m是您的矩阵。

Answer 3

ggplot2包可以轻松完成此任务。

您只需要为每个列都有一个单独的命令。

从一开始

Results
         Delta UE        RE        LS       PT       SP       JS      JS2
SRE0  0.000000  1 3.8730275 2.2721219 1.006288 1.004753 1.031775 1.031869
SRE1  0.100065  1 2.2478516 2.0595205 1.050271 1.045329 1.043690 1.076422
SRE2  0.200385  1 1.5838920 1.8793306 1.035905 1.043789 1.052931 1.075322
SRE3  0.300075  1 0.9129295 1.5360455 1.994643 1.032044 1.006338 1.065477
SRE4  0.400175  1 0.6434000 1.3150935 1.953055 1.017210 1.010774 1.056415
SRE5  0.500138  1 0.6063778 1.2876456 1.945513 1.016549 1.999497 1.055320
SRE6  0.600200  1 0.3710599 0.9537165 1.873083 1.994521 1.934699 1.036992
SRE7  0.699500  1 0.3312944 0.8793348 1.853538 1.991429 1.904618 1.031470
SRE8  0.800285  1 0.2338423 0.6966505 1.783148 1.965750 1.844547 1.016914
SRE9  0.900020  1 0.1665775 0.5328803 1.702427 1.929652 1.798916 1.985060
SRE10 1.000074  1 0.1550065 0.5047066 1.684992 1.923192 1.776541 1.982177

class(Results)
[1] "Matrix"

请注意，我将“JS +”列名称转换为“JS2”以避免R上的错误。

转换为data.frame

将Results分配给新对象，尤其是data.frame。

newResults <- as.data.frame(Results)
newResults
         Delta UE        RE        LS       PT       SP       JS      JS2
SRE0  0.000000  1 3.8730275 2.2721219 1.006288 1.004753 1.031775 1.031869
SRE1  0.100065  1 2.2478516 2.0595205 1.050271 1.045329 1.043690 1.076422
SRE2  0.200385  1 1.5838920 1.8793306 1.035905 1.043789 1.052931 1.075322
SRE3  0.300075  1 0.9129295 1.5360455 1.994643 1.032044 1.006338 1.065477
SRE4  0.400175  1 0.6434000 1.3150935 1.953055 1.017210 1.010774 1.056415
SRE5  0.500138  1 0.6063778 1.2876456 1.945513 1.016549 1.999497 1.055320
SRE6  0.600200  1 0.3710599 0.9537165 1.873083 1.994521 1.934699 1.036992
SRE7  0.699500  1 0.3312944 0.8793348 1.853538 1.991429 1.904618 1.031470
SRE8  0.800285  1 0.2338423 0.6966505 1.783148 1.965750 1.844547 1.016914
SRE9  0.900020  1 0.1665775 0.5328803 1.702427 1.929652 1.798916 1.985060
SRE10 1.000074  1 0.1550065 0.5047066 1.684992 1.923192 1.776541 1.982177

class(newResults)
[1] "data.frame"

现在它被格式化为data.frame，因此更容易使用。

创建行

library(ggplot2)

ggplot(data = newResults, aes(x = Delta)) + 
  geom_line(aes(y = UE)) + 
  geom_line(aes(y = RE)) +
  geom_line(aes(y = LS)) +
  geom_line(aes(y = PT)) +
  geom_line(aes(y = SP)) +
  geom_line(aes(y = JS)) +
  geom_line(aes(y = JS2)) +
  labs(y = "") # Delete or change y axis title if desired.

您还可以在每行的color = ()功能中使用aes()为每一行选择自己的颜色。