我创建了一个简单的循环,使用形状文件制作了不同植物物种的分布图。数据集包含以下变量: 物种 (带有作者的全名),纬度,经度(收集位置)以及属别,物种1,author1。>
当我保存地图时,会根据 种类 列将正确的标题添加到每个地图中
ggtitle(paste(strwrap(i, width = 60), collapse = "\n" ))
但是应该使用特定的样式:斜体的属和种,使用正常字体的作者。
如何在循环中格式化图标题?
for (i in unique(data$species)) {
data_map <- ggplot() +
geom_polygon(data = shp, aes(x = long, y = lat, group = group),
colour = "black", fill = NA) +
coord_map(xlim = c(56.57, 56.72),ylim = c(-10.32, -10.5))+
geom_point(data = data[which(data$species==i),],
aes(x = long,
y = lat),
alpha = 0.6,
size = 4, colour="Red") +
theme_classic() +
ylab(expression("Latitude ("*degree*")" )) +
xlab(expression("Longitude ("*degree*")" )) +
ggtitle(paste(strwrap(i, width = 60), collapse = "\n" ))
ggsave(data_map, file=paste0("data_", i,".png"), width = 14, height = 10,
units = "cm")
}