十三、数据的的输入与输出（3）

数据的输出

writeClipboard（）函数

writeClipboard（）函数可以将数据输出至剪贴板。

例如，将R的内置数据集iris输出到剪贴板，在进入Excel中点击"粘贴"。

head(iris)        #查看数据集
  Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1          5.1         3.5          1.4         0.2  setosa
2          4.9         3.0          1.4         0.2  setosa
3          4.7         3.2          1.3         0.2  setosa
4          4.6         3.1          1.5         0.2  setosa
5          5.0         3.6          1.4         0.2  setosa
6          5.4         3.9          1.7         0.4  setosa

由于writeClipboard（）函数输出的是字符串向量，不能直接将数据框输出的剪贴板。所以可以每次输出iris数据集的一列数据。
首先输出花萼长度的数据。

writeClipboard(as.character(iris$Sepal.Length))      #首先输出花萼长度的数据
                                                     #使用as.character()转化为字符串向量

 运行程序后，打开Excel粘贴数据，以下为前10个数据。

 类似的操作，将剩余的数据粘贴到Excel中。

writeClipboard(as.character(iris$Sepal.Width))    #输出花萼宽度的数据，粘贴到Excel中
writeClipboard(as.character(iris$Petal.Length))   #输出花瓣长度的数据，粘贴到Excel中
writeClipboard(as.character(iris$Petal.Width))    #输出花瓣宽度的数据，粘贴到Excel中
writeClipboard(as.character(iris$Species))        #输出花瓣种类的数据，粘贴到Excel中

 结果如下所示，输出结果展示前10个数据。

将列名粘贴到Excel中。

writeClipboard(as.character(names(iris)))    #输出列名，粘贴到Excel

最后进行调整，在第1行插入新的一行，将列名转置粘贴到第一行。