Построить график с использованием фрейма данных с конкретными условиями

Question

У меня есть датафрейм, который выглядит так:

ID    Char                       Var         epoch
1     sr.r/t & (ted: 15--) sr    a-rt        1501569011720
1     sr.r/t & (ted: 15--) sr    a-er        1501569011820
1     sr.r/t & (ted: 15--) sr    a-er        1501569011870
2     sy.w/f & (ted: *18-) /s    a-ge        1501569012945
2     sy.w/f & (ted: *18-) /s    a-ge        1501569012995
2     sy.w/f & (ted: *18-) /s    b-we        1501569013945
3     sr.r/t & (ted: 19:15)ser   e-we        1501569013945

Первый кадр данных:

ID    Char                       Var         epoch
1     sr.r/t & (ted: 15--) sr    a-rt        1501569011720
1     sr.r/t & (ted: 15--) sr    a-er        1501569011820
2     sy.w/f & (ted: *18-) /s    a-ge        1501569012945
2     sy.w/f & (ted: *18-) /s    b-we        1501569013945

Первый фрейм данных будет получен из фрейма данных, где строка в Char такая же для конкретного ID, но Var отличается.

Основываясь на первом кадре данных, я хочу построить график, который показывает мне счет Char по оси x с интервалом в минутах по оси y.

Answer 1

Я думаю, эпоха = минуты. Тогда:

library(tidyverse)
# for each Char compute time laps
a.plot <- first_dataframe %>% 
   group_by(Char) %>% 
   summarise(minutes=min(epoch)-max(epoch))

# plot the results as a barplot
ggplot(a.plot,aes(x=Char,y=minutes))+geom_bar(stat="identity")