ggplot彩条标签日期格式

问题描述

是否可以将guide_colourbar上的数字标签格式化为日期格式，例如%b %Y？因此，在17400 17700 18000 18300图例上没有Closing Date，而是%b %Y等效项。

示例图

Area = c(1705,902,1496,1257,763)
ClosePrice = c(2292500,977520,1990680,1720840,855330)
HasTerrace = c(FALSE,FALSE,TRUE,TRUE)
CloseDate = as.Date(c('2017-03-17','2017-02-28','2018-05-09','2020-03-01','2017-01-09'))
data <- data.frame(Area,ClosePrice,HasTerrace,CloseDate)

data %>%
  ggplot(aes(x=Area,y=ClosePrice,shape=HasTerrace)) +
  geom_point(aes(colour=CloseDate),size=3,alpha=0.8) +
  scale_color_viridis() +
  theme_minimal() +
  scale_x_continuous(expression(Indoor~Area~(ft^2)),labels=label_comma()) +
  scale_y_continuous('Closing Price ($m)',labels=label_number(accuracy=0.01,scale=10^-6)) +
  theme(legend.position='bottom',legend.Box='vertical') +
  guides(shape = guide_legend(title='Has a Terrace'),colour = guide_colourbar(title='Closing Date',barwidth=10,labels=label_date(format='%b %Y')))

解决方法

这是一个解决方案。 guide_colorbar()函数不接受labels参数，因此将其忽略。您需要将标签添加到scale_color_viridis。但是，除非您还包含trans = "date"，否则都会产生错误。

data %>%
  ggplot(aes(x=Area,y=ClosePrice,shape=HasTerrace)) +
  geom_point(aes(colour=CloseDate),size=3,alpha=0.8) +
  scale_color_viridis(name='Closing Date',trans = "date",labels = label_date(format = "%b %Y") )+
  theme_minimal() +
  scale_x_continuous(expression(Indoor~Area~(ft^2)),labels=label_comma()) +
  scale_y_continuous('Closing Price ($m)',labels=label_number(accuracy=0.01,scale=10^-6)) +
  theme(legend.position='bottom',legend.box='vertical') +
  guides(shape = guide_legend(title='Has a Terrace'),colour = guide_colourbar(barwidth=10))

date-formatting ggplot2 r r