R，ggplot2：如何增加特定geom_tile栏之间的空间以成对分组？
我正在使用ggplot和geom_tile来绘制几对颜色编码的分类时间序列。情节看起来很好，除了我想增加每对数据之间的空间以提高可读性。所以来自同一会话的每两个条形（例如session.1.a和session.1.b）应该像现在一样接近，但我想增加例如session.1.b和session.2.a，以及session.2.b和session.3.a之间。我怎么能这样做？任何帮助赞赏=]
这是简化情节的样子：
简化数据集如下所示：
mydata <- read.table(header=TRUE, text="
dataID time value
session.1.a 0 g
session.1.a 1 a
session.1.a 2 g
session.1.a 3 i
session.1.a 4 g
session.1.a 5 g
session.1.a 6 i
session.1.a 7 a
session.1.a 8 g
session.1.a 9 a
session.1.a 10 a
session.1.a 11 a
session.1.a 12 a
session.1.a 13 g
session.1.a 14 g
session.1.a 15 a
session.1.a 16 a
session.1.a 17 a
session.1.a 18 a
session.1.a 19 g
session.1.a 20 g
session.1.a 21 a
session.1.a 22 g
session.1.a 23 a
session.1.a 24 a
session.1.a 25 a
session.1.a 26 a
session.1.a 27 a
session.1.a 28 a
session.1.a 29 a
session.1.a 30 a
session.1.a 31 a
session.1.a 32 a
session.1.a 33 a
session.1.a 34 a
session.1.b 0 b
session.1.b 1 b
session.1.b 2 b
session.1.b 3 j
session.1.b 4 j
session.1.b 5 j
session.1.b 6 j
session.1.b 7 b
session.1.b 8 h
session.1.b 9 h
session.1.b 10 b
session.1.b 11 b
session.1.b 12 b
session.1.b 13 b
session.1.b 14 h
session.1.b 15 b
session.1.b 16 b
session.1.b 17 b
session.1.b 18 b
session.1.b 19 b
session.1.b 20 h
session.1.b 21 b
session.1.b 22 h
session.1.b 23 b
session.1.b 24 b
session.1.b 25 b
session.1.b 26 b
session.1.b 27 b
session.1.b 28 b
session.1.b 29 b
session.1.b 30 b
session.1.b 31 b
session.1.b 32 b
session.1.b 33 b
session.1.b 34 b
session.2.a 0 a
session.2.a 1 a
session.2.a 2 g
session.2.a 3 g
session.2.a 4 g
session.2.a 5 a
session.2.a 6 g
session.2.a 7 a
session.2.a 8 a
session.2.a 9 a
session.2.a 10 a
session.2.a 11 a
session.2.a 12 a
session.2.a 13 a
session.2.a 14 a
session.2.a 15 g
session.2.a 16 a
session.2.a 17 a
session.2.a 18 a
session.2.a 19 a
session.2.a 20 g
session.2.a 21 a
session.2.a 22 a
session.2.a 23 a
session.2.a 24 a
session.2.a 25 a
session.2.b 0 j
session.2.b 1 b
session.2.b 2 j
session.2.b 3 h
session.2.b 4 h
session.2.b 5 h
session.2.b 6 h
session.2.b 7 NA
session.2.b 8 b
session.2.b 9 b
session.2.b 10 b
session.2.b 11 b
session.2.b 12 b
session.2.b 13 b
session.2.b 14 b
session.2.b 15 b
session.2.b 16 b
session.2.b 17 b
session.2.b 18 b
session.2.b 19 b
session.2.b 20 h
session.2.b 21 b
session.2.b 22 b
session.2.b 23 b
session.2.b 24 b
session.2.b 25 b
session.3.a 0 i
session.3.a 1 a
session.3.a 2 a
session.3.a 3 a
session.3.a 4 a
session.3.a 5 g
session.3.a 6 a
session.3.a 7 a
session.3.a 8 a
session.3.a 9 a
session.3.a 10 a
session.3.a 11 a
session.3.a 12 a
session.3.a 13 a
session.3.a 14 a
session.3.a 15 i
session.3.a 16 i
session.3.a 17 g
session.3.a 18 g
session.3.a 19 g
session.3.a 20 g
session.3.a 21 a
session.3.a 22 a
session.3.a 23 a
session.3.a 24 a
session.3.a 25 g
session.3.a 26 a
session.3.a 27 a
session.3.a 28 a
session.3.a 29 a
session.3.a 30 a
session.3.a 31 a
session.3.a 32 g
session.3.a 33 g
session.3.a 34 a
session.3.a 35 a
session.3.a 36 a
session.3.a 37 a
session.3.a 38 g
session.3.a 39 a
session.3.a 40 a
session.3.a 41 a
session.3.b 0 j
session.3.b 1 b
session.3.b 2 b
session.3.b 3 b
session.3.b 4 j
session.3.b 5 h
session.3.b 6 b
session.3.b 7 b
session.3.b 8 b
session.3.b 9 b
session.3.b 10 b
session.3.b 11 b
session.3.b 12 b
session.3.b 13 b
session.3.b 14 b
session.3.b 15 b
session.3.b 16 b
session.3.b 17 b
session.3.b 18 b
session.3.b 19 h
session.3.b 20 h
session.3.b 21 b
session.3.b 22 b
session.3.b 23 b
session.3.b 24 h
session.3.b 25 b
session.3.b 26 b
session.3.b 27 b
session.3.b 28 b
session.3.b 29 b
session.3.b 30 b
session.3.b 31 b
session.3.b 32 b
session.3.b 33 h
session.3.b 34 b
session.3.b 35 b
session.3.b 36 b
session.3.b 37 b
session.3.b 38 b
session.3.b 39 b
session.3.b 40 b
session.3.b 41 b
")
desiredLevels=c("a",
"b",
"c",
"d",
"e",
"f",
"g",
"h",
"i",
"j",
"NA")
desiredLabels=c("a",
"b",
"c",
"d",
"e",
"f",
"g",
"h",
"i",
"j",
"NA")
mydata$value = factor(mydata$value, levels = desiredLevels, labels = desiredLabels)
生成图的代码是：
desiredBreaks=c("a",
"b",
"c",
"d",
"e",
"f",
"g",
"h",
"i",
"j",
"NA")
desiredColours = c("#009E73",
"#009E73",
"#F0E442",
"#F0E442",
"#CC79A7",
"#CC79A7",
"#D55E00",
"#D55E00",
"#56B4E9",
"#56B4E9",
"white")
ts.plot = ggplot(mydata, aes(x = time, y = dataID, fill = value))
ts.plot = ts.plot + geom_tile(stat="identity", width=1, height=.9)
ts.plot = ts.plot + scale_fill_manual(drop = FALSE,
name = "categories",
breaks = desiredBreaks,
values = desiredColours)
time.labels = c(0, rep("",4), 5,rep("",4), 10, rep("",4), 15,rep("",4), 20,
rep("",4), 25,rep("",4), 30,rep("",4), 35,rep("",4), 40, rep("",4), 45)
time.breaks = seq(from=0,to = 45,1)
ts.plot = ts.plot + scale_x_continuous(limits=c(-1, 45), expand = c(0,1), breaks = time.breaks, labels = time.labels)
ts.plot = ts.plot + labs(title = "main title",
x = "\ntime (s)",
y = "")
ts.plot = ts.plot + theme(plot.title = element_text(size = rel(2)),
axis.text.x = element_text(size = 24, colour = "black"),
axis.text.y = element_text(size = 24, colour="black"),
axis.title.x = element_text(size = 24),
legend.text = element_text(size = 24),
legend.direction = "vertical",
legend.position = "right",
legend.key=element_rect(size=1, colour = "black"),
legend.key.size = unit(1, "lines"),
legend.title = element_text(size = 24),
axis.ticks.y = element_line(size=2),
panel.grid.minor = element_blank())
ts.plot = ts.plot + guides(fill=guide_legend(ncol=1), title.position="top" )
ts.plot
2 个答案:
答案 0 :(得分：4)
您也可以尝试使用方面：
mydata$group = gsub("session.", "", as.character(mydata$dataID))
mydata$group = gsub("\\..", "", mydata$group)
mydata$group = paste0("Session ", mydata$group)
mydata$group = factor(mydata$group)
mydata$dataID = gsub("\\.[1|2|3]", "", as.character(mydata$dataID))
mydata$dataID = gsub("session.", "", as.character(mydata$dataID))
ggplot(mydata, aes(x = time, y = dataID, fill = value)) +
geom_tile(stat="identity", width=1, height=.9) +
facet_grid(group~.)
答案 1 :(得分：3)
试试这个：
labels <- levels(mydata$dataID)
# the numbers in the first vector here define the positions/distances of the tiles:
mydata$aux <- rep(c(1,2,4,5,7,8), times = table(mydata$dataID))
ts.plot = ggplot(mydata, aes(x = time, y = aux, fill = value))
ts.plot = ts.plot + geom_tile(stat="identity", width=1, height=.9) + scale_y_discrete(breaks = c(1,2,4,5,7,8), labels = labels, limits = c(1,2,4,5,7,8))
ts.plot
相关问题
最新问题
- 我写了这段代码，但我无法理解我的错误
- 我无法从一个代码实例的列表中删除 None 值，但我可以在另一个实例中。为什么它适用于一个细分市场而不适用于另一个细分市场？
- 是否有可能使 loadstring 不可能等于打印？卢阿
- java中的random.expovariate()
- Appscript 通过会议在 Google 日历中发送电子邮件和创建活动
- 为什么我的 Onclick 箭头功能在 React 中不起作用？
- 在此代码中是否有使用“this”的替代方法？
- 在 SQL Server 和 PostgreSQL 上查询，我如何从第一个表获得第二个表的可视化
- 每千个数字得到
- 更新了城市边界 KML 文件的来源？