将R中的时间序列打印为堆叠条

我有一个如下所示的数据集

| SUBJECT | ACTION | DURATION | |---------|--------|----------| | 1 | A | 39,57 | | 1 | B | 1,48 | | 1 | B | 53,22 | | 1 | A | 10,42 | | 1 | C | 8,33 | | 1 | D | 1,00 | | 1 | E | 7,50 | | 1 | D | 0,35 | | 2 | D | 1,35 | | 2 | B | 2,60 | | 2 | C | 1,47 | | 2 | D | 1,13 | | 2 | A | 4,23 | | 2 | A | 1,62 | | 2 | A | 7,58 | | 2 | C | 133,47 | | 2 | D | 14,82 | | 3 | D | 0,45 | | 3 | D | 1,07 | | 3 | A | 61,62 | | 3 | D | 42,45 | | 3 | D | 4,47 | | 3 | B | 100,92 | | 3 | E | 9,05 | | 3 | C | 9,55 | |受试者|行动|持续时间| |---------|--------|----------| |1 | A | 39,57| |1 | B | 1,48| |1 | B | 53,22| |1 | A | 10,42| |1 | C | 8,33| |1 | D | 1,00| |1 | E | 7,50| |1 | D | 0,35| |2 | D | 1,35| |2 | B | 2,60| |2 | C | 1,47| |2 | D | 1,13| |2 | A | 4,23| |2 | A | 1,62| |2 | A | 7,58| |2 | C | 133,47| |2 | D | 14,82| |3 | D | 0,45| |3 | D | 1,07| |3 | A | 61,62| |3 | D | 42,45| |3 | D | 4,47| |3 | B | 100,92| |3 | E | 9,05| |3 | C | 9,55| 代表3名受试者在一定时间内执行动作（同时开始）。例如，受试者1执行动作A 39.57分钟，然后执行动作B 1.48分钟，然后再次执行动作B 53.22分钟（尽管属于同一类别，但区分后续动作很重要）

我想绘制下图中的数据

如果每个水平条代表某一主体的所有动作，则该条的长度代表持续时间，其颜色代表动作类型（a、B、C等）

有什么帮助吗？谢谢

试试这个：

library(ggplot2)
ggplot(DF, aes(SUBJECT, DURATION, fill = ACTION)) + 
  geom_bar(stat = "identity") +
  coord_flip()

这是用于（使其可复制）的数据框。下次请使用

dput

输出问题中的数据

DF <- 
structure(list(SUBJECT = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L
), ACTION = structure(c(1L, 2L, 2L, 1L, 3L, 4L, 5L, 4L, 4L, 2L, 
3L, 4L, 1L, 1L, 1L, 3L, 4L, 4L, 4L, 1L, 4L, 4L, 2L, 5L, 3L), .Label = c("A", 
"B", "C", "D", "E"), class = "factor"), DURATION = c(39.57, 1.48, 
53.22, 10.42, 8.33, 1, 7.5, 0.35, 1.35, 2.6, 1.47, 1.13, 4.23, 
1.62, 7.58, 133.47, 14.82, 0.45, 1.07, 61.62, 42.45, 4.47, 100.92, 
9.05, 9.55)), .Names = c("SUBJECT", "ACTION", "DURATION"), 
class = "data.frame", row.names = c(NA, 
-25L))

DF您提到的“条形图组件的长度表示持续时间”，但您也希望时间在x轴上。。怎么可能呢？