R многострочный график с использованием dataframe

Question

Я не могу понять, как создать график для нескольких графиков линии.

Это мой dataframe:

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 

Переменные в dataframe все числовые векторы, например:

< темы - с (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, текущий) в виде трех отдельных строк.

Любая помощь была бы действительно оценена!

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)