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

第一个数据帧将从datafram派生，其中Char中的字符串对于特定ID是相同的，但Var是不同的。

基于第一个数据帧，我想绘制一个图表，显示x轴上Char的计数，y轴上的分钟间隔。

Answer 1

我猜epoch =分钟。然后：

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")

使用具有特定条件的数据框绘制图形

1 个答案: