将图例移动到ggplot2的底部

Question

我创建了以下热图。如果您注意到群组的图例位于右侧并且垂直放置。

如何将图例移动到底部，以便为X轴变量月M0到M55提供更多空间...另外，您会注意到X轴元素重叠，因此不清楚。

图表的输出：

cohort.clients<-df1
cohort.clients$cohort<-as.character(cohort.clients$cohort)
#we need to melt data
cohort.chart.cl <- melt(cohort.clients, id.vars = 'cohort')
colnames(cohort.chart.cl) <- c('cohort', 'month', 'clients')

#define palette
reds <- colorRampPalette(c('light green',"dark green","yellow"))

#plot data
p <- ggplot(cohort.chart.cl, aes(x=month, y=clients, group=cohort))
p + geom_area(aes(fill = cohort)) +
  scale_fill_manual(values = reds(nrow(cohort.clients))) +
  ggtitle('Customer Cohort')

Answer 1

尝试类似：

ggplot(cohort.chart.cl, aes(x=month, y=clients, group=cohort))
    geom_area(aes(fill = cohort)) +
    scale_fill_manual(values = reds(nrow(cohort.clients))) +
    ggtitle('Customer Cohort') + 
    theme(axis.text.x = element_text(angle = 45, hjust = 1),
        legend.direction = "horizontal", legend.position = "bottom"))

值得注意的是，您的调色板基本上是相同的颜色。如果你使cohort$month成为一个因子，那么ggplot默认会自动为你提供一个信息更丰富的调色板。话虽如此，有了> 50个类别，你已经远远超出了可区分颜色的范围，并且可能还会考虑将这几个月分类（进入年度季度？）并返回到像现在这样的频谱。