Я создал простой цикл создания карт распределения для разных видов растений, используя файл формы. Набор данных включает следующие переменные: вид (полное имя с автором), широта, долгота (где он был собран), а также отдельно род, вид1, автор1.
Когда я сохраняю карты, к каждой карте добавляются правильные заголовки на основе столбца разновидностей с использованием
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")
}