Question

我刚刚遇到这样的图形，其中使用了两种颜色的geom_point（我相信它是由ggplot2制作的）。同样，我希望一种颜色的点的大小从1到5，而另一种颜色的颜色的点系列在10到50的范围内。但是，我不知道如何在其中添加两个不同范围的点一幅图。

在基本步骤中，我有：

a <- c(1,2,3,4,5)
b <- c(10,20,30,40,50)
Species <- factor(c("Species1","Species2","Species3","Species4","Species5"))
bubba <- data.frame(Sample1=a,Sample2=b,Species=Species)
bubba$Species=factor(bubba$Species, levels=bubba$Species)
xm=melt(bubba,id.vars = "Species", variable.name="Samples", value.name = "Size")
str(xm)
ggplot(xm,aes(x= Samples,y= fct_rev(Species)))+geom_point(aes(size=Size))+scale_size(range = range(xm$Size))+theme_bw()

有什么线索可以让我研究一下吗？谢谢！

Answer 1

这里是一个污点。我现在没有时间弄清楚这个传说。请注意，1和10的大小相同，但颜色不同，3和40一样。

# Create data frame
a <- c(1, 2, 3, 4, 5)
b <- c(10, 20, 30, 40, 50)
Species <- factor(c("Species1", "Species2", "Species3", "Species4", "Species5"))
bubba <- data.frame(Sample1 = a, Sample2 = b, Species = Species)

# Restructure data
xm <- reshape2::melt(bubba, id.vars = "Species", variable.name = "Samples", value.name = "Size")

# Calculate bubble size
bubble_size <- function(val){
  ifelse(val > 3, (1/15) * val + (1/3), val)
}

# Calculate bubble colour
bubble_colour <- function(val){
  ifelse(val > 3, "A", "B")
}

# Calculate bubble size and colour
xm %<>% 
  mutate(bub_size = bubble_size(Size),
         bub_col = bubble_colour(Size))

# Plot data
ggplot(xm, aes(x = Samples, y = fct_rev(Species))) +
  geom_point(aes(size = bub_size, fill = bub_col), shape = 21, colour = "black") +
  theme(panel.grid.major = element_line(colour = alpha("gray", 0.5), linetype = "dashed"),
        text = element_text(family = "serif"),
        legend.position = "none") + 
  scale_size(range = c(1, 20)) +
  scale_fill_manual(values = c("brown", "pink")) +
  ylab("Species")

Answer 2

我有一种方法可以解决90％的问题，但是我不确定如何完成任务。为了获得单个图例的尺寸，我使用了一种转换将输入尺寸转换为显示尺寸。这使图例外观与显示一致。我还没有想到的是如何对fill应用类似的转换，以便将两者都可以集成到同一个图例中。

这里是转换，在这种情况下，转换会将所有内容缩小10或更多：

library(scales)
shrink_10s_trans = trans_new("shrink_10s",
          transform = function(y){
            yt = if_else(y >= 10, y*0.1, y)
            return(yt)
          },
          inverse = function(yt){
            return(yt) # Not 1-to-1 function, picking one possibility
          }
)

然后，我们可以对大小使用此变换来选择性地仅缩小10个或更大的点。除了将fill编码与size编码集成在一起之外，这对于图例来说效果很好。

ggplot(xm,aes(x= Samples,y= fct_rev(Species), fill = Size < 10))+
  geom_point(aes(size=Size), shape = 21)+
  scale_size_area(trans = shrink_10s_trans, max_size = 10,
                  breaks = c(1,2,3,10,20,30,40),
                  labels = c(1,2,3,10,20,30,40)) +
  scale_fill_manual(values = c(rgb(136,93,100, maxColorValue = 255),
                               rgb(236,160,172, maxColorValue = 255))) +
  theme_bw()

Answer 3

a <- c(1, 2, 3, 4, 5)
b <- c(10, 20, 30, 40, 50)

Species <- factor(c("Species1", "Species2", "Species3", "Species4", "Species5"))

bubba <- data.frame(Sample1 = a, Sample2 = b, Species = Species)
bubba$Species <- factor(bubba$Species, levels = bubba$Species)
xm <- reshape2::melt(bubba, id.vars = "Species", variable.name = "Samples", value.name = "Size")

ggplot(xm, aes(x = Samples, y = fct_rev(Species))) +
  geom_point(aes(size = Size, color = Size)) +
  scale_color_continuous(breaks = c(1,2,3,10,20,30), guide = guide_legend()) +
  scale_size(range = range(xm$Size), breaks = c(1,2,3,10,20,30)) +
  theme_bw()

Answer 4

我认为您正在R中寻找气泡图

https://www.r-graph-gallery.com/bubble-chart/

也就是说，您可能要分别构建图形的左右两侧，然后进行组合。

如何在ggplot气泡图中添加两个不同大小的点大小？

4 个答案: