Base R 和 ggplot2 中的透明散点图

在本文中，我们将看到如何在 R 编程语言中制作透明散点图。

在这里，我们将在图中使用alpha 参数。它用于修改颜色透明度，默认情况下 alpha 值=1，如果我们使 alpha 值更接近于零，它将使对象更透明，另一方面，更接近于 1 的 alpha 值将导致对象不透明。

方法 1：使用 Base R 编程

在这种制作透明散点图的方法中，用户需要在 R 的工作控制台中安装并导入 scales 包，这里的这个包负责调整给定数据点的 alpha。此外，用户只需使用此函数调用带有附加 alpha 参数的绘图函数，并根据要求相应地指定 alpha 值，以便在基本 R 编程语言中制作透明散点图。

要安装和导入 scales 包，用户需要遵循以下语法：

install.packages("scales")                                      
library("scales")  

示例：在此示例中，我们将绘制一个给定的数据，并将 alpha 参数的值设置为 0.2，以在 R 编程语言中绘制的散点图中显示透明效果。

没有任何透明效果的图如下所示：

R

library("scales") 
  
gfg <- data.frame(x = c(1, 2.2, 2, 2, 3, 3,
                        4.2, 4.1, 5.2, 5.1),  
                   y = c(2, 2, 2.5, 2.1, 3.4,
                         4.1, 4, 4, 5, 5),
                group = as.factor(1:2))
  
plot(gfg$x, gfg$y, pch = 18, cex = 6,
     col = gfg$group)

输出：

使用 alpha 创建透明图：

电阻

library("scales") 
  
gfg <- data.frame(x = c(1, 2.2, 2, 2, 3, 3,
                        4.2, 4.1, 5.2, 5.1),  
                   y = c(2, 2, 2.5, 2.1, 3.4,
                         4.1, 4, 4, 5, 5),
                group = as.factor(1:2))
  
plot(gfg$x,gfg$y, pch = 18, cex = 6,
     col = alpha(gfg$group, 0.2))

输出：

方法二：使用ggplot2包

使用geom_point()函数的alpha参数绘制透明散点图，在这种制作透明散点图的方法中，用户需要在R的工作控制台中安装并导入ggplot2包，这里的包负责绘制ggplot2给定数据点的散点图。此外，用户需要使用此函数调用带有附加 alpha 参数的 ggplot2 包的 geom_point()函数，并根据要求相应地指定 alpha 值，以便在 gglot2 R 编程语言中制作透明散点图。

要安装和导入 scales 包，用户需要遵循以下语法：

install.packages("ggplot2")                                      
library("ggplot2") 

示例：在此示例中，我们将绘制一个给定的数据，并将 alpha 参数的值设置为 0.2，以在 R 编程语言的 ggplot 包的绘制散点图中显示透明效果。

没有任何透明效果的图如下所示：

电阻

library("ggplot2") 
  
gfg <- data.frame(x = c(1, 2.2, 2, 2, 3, 3,
                        4.2, 4.1, 5.2, 5.1),  
                   y = c(2, 2, 2.5, 2.1, 3.4,
                         4.1, 4, 4, 5, 5),
                group = as.factor(1:2))
  
ggplot(gfg, aes(x, y, col = group)) + 
geom_point(pch = 18,size = 12)

输出：

使用 alpha 创建透明图：

电阻

library("ggplot2") 
  
gfg <- data.frame(x = c(1, 2.2, 2, 2, 3, 3, 4.2,
                        4.1, 5.2, 5.1),  
                   y = c(2, 2, 2.5, 2.1, 3.4, 4.1,
                         4, 4, 5, 5),
                group = as.factor(1:2))
ggplot(gfg, aes(x, y, col = group)) + 
geom_point(pch = 18,size = 12, alpha = 0.2)

输出：