Question

我又一次轻微的挣扎，我似乎无法弄清楚自己。我需要创建一个月份包裹的图形面。但是当我这样做时，我得到this。如您所见，月份按字母顺序排列，而不是按数字顺序排列。我不完全确定如何解决这个问题。我将附上图表本身和月份列的代码。

map.dat <- map_data(map(database= "world", ylim=c(15,90), xlim=c(-180, -40), fill = TRUE))
ggplot(map.dat) +
  geom_polygon(aes(x=long, y=lat, group=group, fill=NULL)) +
  geom_path(data = subset(basindf2, year >= 1980 & 2010 >= year), aes(x = latitude, y = longitude, col = wind, group = factor(id))) +
  scale_colour_gradientn(colours = brewer.pal(9, 'Reds')[c(2,7,8,9)]) +
  xlab('') + scale_x_continuous(breaks = NULL) +
  ylab('') + scale_y_continuous(breaks = NULL) +
  ggtitle('Storm Trajectory (1980-2010)') +
  theme_bw() + theme(plot.title = element_text(size = 20, face="bold"), panel.border = element_blank(), panel.grid.major = element_blank(), panel.grid.minor = element_blank()) +
  facet_wrap(~month)

月份栏清洁：

monthnames <- c('January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December')
monthraw <- as.numeric(str_extract(str_extract(rawdfNA$V7, '-..-'), '\\d\\d'))
month <- monthnames[monthraw]

因此，我为月份名创建了一个特定列，从原始数据集中提取月份（monthsraw），然后通过按月份编号选择名称来获得月份。

Facet Wrap by Month（数字而不是Alpha）

0 个答案: