在自定义图中绘制点边界

编程问答 2022-05-23

问题描述

我有一个这样的数据集：

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)

我的情节是这样的：

p <- ggplot(mydata,aes(x=Year,y=reorder(Name,desc(Name)),size = Value)) +
  geom_point(aes(colour = Value,alpha = I(as.numeric(Value > 0)))) 
p <- p +  scale_colour_viridis_c(option = "D",direction = -1,limits = c(1,25)) +
scale_size_area(guide = "none") +
  ylab("Name") + 
  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))

我想通过两种方式改进它，但我不知道如何改进。

  1. 我想在点周围添加黑色边框。我知道我应该使用 pch>20 并指定 colour，但是因为我的颜色映射到数据集的一个特征（在这种情况下它们依赖于 value），我不知道究竟如何做到这一点。请注意，未绘制 value = 0 点。简单的策略，例如在我的点下绘制更大的黑点，对我来说似乎是不切实际的。
  2. 我想更改刻度的间隔（例如，不是每 5 间隔一次，而是每 2.5 间隔一次），但这是一个连续的刻度，我不知道该怎么做

我对 ggplo2 不是很熟悉，因此任何帮助将不胜感激！

解决方法

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

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

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

bubble-chartggplot2rrscatter-plot