您可以在R中使用sink()函数将数据驱动到外部连接。

大家好，今天我们将研究R中sink()函数的应用。
我们将尝试建立多种格式的连接，例如文本和csv文件类型。

使用sink()函数，可以打印数据，也可以将数据或者R输出导出为文本或者CSV文件类型。

让我们看看它是如何工作的！

R中的sink()函数的语法

Sink()：接收器函数用于将R中获得的输出驱动到外部连接。

sink(file = NULL, type = c("output", "message"),split = FALSE)

其中：

• File =可编辑的连接或者文件类型。

• 附加=用于将数据附加到文件以避免覆盖的逻辑功能。

• 拆分=输出将被转移到新的连接或者链接。

1.设置工作目录

借助sink()函数，您可以轻松地将输出作为连接打印到文本文件中。
我们可以通过设置工作目录来启动此过程。

要检查当前工作目录：

#returns the current working directory
getwd()

"C:/Users/Dell/Desktop/rfiles"

精细。
我们现在有了工作目录。
您还可以使用以下命令更改工作目录：

#sets the new working directory 
setwd("The directory path here")

将路径粘贴到setwd()函数中以设置新的工作目录。
之后，不要忘记使用" getwd()"命令确认更改，如上所示。

2.将数据打印到文本文件中

希望您现在已经准备好工作路径。
现在，我们将创建一个文件连接并将一些数据打印到其中。

让我们看看它是如何工作的。

#sinks the data into connection as text file
sink("my_first_sink.txt")

#prints numbers from 1 to 20
for (i in 1:20)
print(i)
sink()

现在您可以看到我们的R数据如何被整齐地打印到文本文件中。
太好了吧？

3.将数据导出到文本文件

在上一节中，我们已将数据或者输出打印到文本文件中。
在本节中，我们将导出默认情况下R中可用的整个数据集。

让我们看看它是如何工作的。

#exports the data as text file
sink('export_dataframe.txt')
airquality
sink()

您可以看到，空气质量数据集的数据已作为外部连接驱动到文本文件中。

这样可以轻松地将R中的数据驱动到连接。
您还可以导出为csv文件，如下所示。

4.将数据框导出到CSV文件

在本节中，我们将使用R中的sink()函数将数据驱动或者导出到CSV文件中。

让我们看看它是如何工作的。

#export the data as csv file
sink('export_dataframe_1.csv')
iris
sink()

好吧，这是一个CSV文件，其中包括从R控制台导出的数据。
R中的sink()函数提供了将数据驱动到外部连接(例如文件)的最简单方法。

将数据摘要导出到连接

到现在为止还挺好。
现在，让我们尝试一起应用以上各节所学或者了解的知识。

问题语句很简单。

=>读取您选择的数据集，并使用函数summary()获得数据摘要。
完成后，将结果作为连接驱动到文本文件中。

开始狂欢吧！！！

1.让我们阅读数据

#reads the data
df<-datasets::airquality
df
View(df)

问题语句的第一步在这里。
您可以在上图中看到空气质量数据集。

2.数据的summary()

使用功能summary()的数据摘要如下所示。

#returns the key insights of data
summary(airquality)

Ozone           Solar.R           Wind             Temp           Month      
 Min.   :  1.00   Min.   :  7.0   Min.   : 1.700   Min.   :56.00   Min.   :5.000  
 1st Qu.: 18.00   1st Qu.:115.8   1st Qu.: 7.400   1st Qu.:72.00   1st Qu.:6.000  
 Median : 31.50   Median :205.0   Median : 9.700   Median :79.00   Median :7.000  
 Mean   : 42.13   Mean   :185.9   Mean   : 9.958   Mean   :77.88   Mean   :6.993  
 3rd Qu.: 63.25   3rd Qu.:258.8   3rd Qu.:11.500   3rd Qu.:85.00   3rd Qu.:8.000  
 Max.   :168.00   Max.   :334.0   Max.   :20.700   Max.   :97.00   Max.   :9.000  
 NA's   :37       NA's   :7                                                       
    Day      
 Min.   : 1.0  
 1st Qu.: 8.0  
 Median :16.0  
 Mean   :15.8  
 3rd Qu.:23.0  
 Max.   :31.0  

这是数据的摘要，显示了最小值和最大值，四分位数，中位数，均值和更多洞察力。

3.将输出驱动到连接

现在，您需要做的就是将其导出到文本文件中并使其作为外部连接。

#drive the output data to txt file
sink('problem-solution.txt')
summary(airquality)
sink()

4.终止连接

您已正确完成所有步骤，并成功将数据作为外部连接驱动到文本文件中。

现在该结束连接了。

#terminates the connection 
unlink('problem-solution.txt')

上面的命令将删除文件连接。

总结所有步骤，

• 在R控制台中读取数据。

• 将summary()函数应用于数据。

• 获取有关数据的关键见解。

• 使用R中的sink()函数将结果驱动到文本文件。