Question

我似乎无法弄清楚如何为多个线图创建图表。

这是我的数据框：

   topics before_event after_event current
1       1        0.057       0.044   0.064
2       2        0.059       0.055   0.052
3       3        0.058       0.037   0.044
4       4        0.036       0.055   0.044
5       5        0.075       0.064   0.066
6       6        0.047       0.045   0.045
7       7        0.043       0.043   0.041
8       8        0.042       0.041   0.046
9       9        0.049       0.046   0.039
10     10        0.043       0.060   0.045
11     11        0.054       0.054   0.062
12     12        0.065       0.056   0.068
13     13        0.042       0.045   0.048
14     14        0.067       0.054   0.055
15     15        0.049       0.052   0.053

数据框中的变量都是数字向量，例如：

主题＆lt; - c（1,2,3,4,5,6,7,8,9,10,11,12,13,14,15）

我知道我应该使用'ggplot2'和'reshape'但是我似乎无法找到正确的代码来表示x轴上的主题，比例为0-1 y轴和每个var（ before_event，after_event，current ）作为三条单独的行。

任何帮助都会非常感激！

Answer 1

我们可以使用matplot

中的base R

matplot(df1[,1], df1[-1], type = 'l', xlab = "topics", ylab = "event", col = 2:4, pch = 1)
legend("topright", legend = names(df1)[-1], pch = 1, col=2:4)

Answer 2

我们可以使用ggplot和geom_line

library(ggplot2)

topics <- seq(1,15,1)
before_event <- runif(15, min=0.042, max=0.070)
after_event <- runif(15, min=0.040, max=0.065)
current <- runif(15, min=0.041, max=0.066)

df <- data.frame(topics,before_event,after_event,current) #create data frame from the above vectors

df.m <- melt(df, id.vars="topics") # melt the dataframe using topics as id

# plot the lines using ggplot and geom_line
ggplot(data = df.m,
       aes(x = topics, y = value, group = variable, color = variable)) +
geom_line(size = 2)

使用数据帧的R多线图

2 个答案: