Печать пустой ggplot с легендой

Я пытаюсь напечатать пустой ggplot, но все еще включаю легенду/масштаб, и у меня возникают проблемы.

Вот соответствующий раздел кода:

p <- ggplot(data=df, aes(x=factor(year_id), y=location_name)) + 

  geom_point(aes(size=count.sum), na.rm=F) +
  #geom_blank() +
  theme_bw() +
  theme(axis.text.x=element_text(angle=50, hjust=1)) +
  labs(x="Year", y="") +
  scale_size(name="Site-years of data", range=c(min(breaks),max(breaks)), breaks=breaks) + 
  ggtitle(paste0(cause_name, ", Data Availability")) +
  facet_wrap(~type) 

plots[[i]] <- p

Разрывы-это только вектор 1,2 и количество столбцов.sum is all NA.
Я хочу распечатать диаграмму, в которой нет данных (нет точек), но есть легенда с маленькой точкой, представляющей 1, и большой точкой, представляющей 2.

Как это прямо сейчас, я получаю ошибку «дискретное значение, поставляемое в непрерывный масштаб».

Если я использую geom_blank вместо geom_point, диаграмма успешно создается и пуста, но нет легенды,

Как получить пустую диаграмму и легенду?

Спасибо

1 ответ

  1. вы можете увеличить масштаб вне диапазона данных, ggplot(data.frame(x=1:10), aes(x,x,size=x)) + geom_point() + coord_cartesian(xlim=c(20,30))