自定义气泡图

问题描述

我正在尝试绘制气泡图。我的数据是：

Year<-rep(2001:2005,each = 5)
name<-c("John","Ellen","Mark","Randy","Luisa")
Name<-c(rep(name,5))
Value<-sample(seq(0,25,by=1),25)
mydata<-data.frame(Year,Name,Value)

到目前为止，我已经到了这一点：

ggplot(mydata,aes(x=Year,y=Name,size = Value)) +
  geom_point() +
  theme(axis.line = element_blank(),axis.text.x=element_text(size=11,margin=margin(b=10),colour="black"),axis.text.y=element_text(size=13,margin=margin(l=10),colour="black",face="italic"),axis.ticks = element_blank(),axis.title=element_text(size=18,face="bold"),panel.grid.major = element_blank(),panel.grid.minor = element_blank(),panel.background = element_blank(),legend.text = element_text(size=14),legend.title = element_text(size=18))

我需要进行很多修改，但我不明白该怎么做（我对 ggplot2 不是很熟悉）。首先，我想使用 viridis 比例，但 scale_color_viridis 和 scale_fill_viridis 都不起作用（我也尝试设置 discrete=T 参数）。

其次，我想避免绘制 0 值（即在绘制 0 值时有一个空格），但既不使用 na.omit（例如作为 ggplot(na.omit(mydata),size = Value)) 或作为ggplot(mydata,size = na.omit(Value)))) 或从 Value 对象工作中删除 0。

第三，我希望图例是连续的：Value 的绘制值在 1 到 25 的范围内（因为我想删除零）但默认图例是离散的5分破发。

我希望情节或多或少像这样（气泡大小取决于 Value 的值）：

有什么建议吗？很抱歉有很多问题，但我在理解 ggplot 的工作原理方面遇到了一些真正的困难。谢谢！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

bubble-chart ggplot2 r r