R 语言 二进制文件

• 

  R 语言 二进制文件

  二进制文件是仅包含以位和字节（0和1）形式存储的信息的文件。它们不是人类可读的，因为其中的字节会转换为包含许多其他不可打印字符的字符和符号。尝试使用任何文本编辑器读取二进制文件都会显示Ø和ð等字符。二进制文件必须由特定程序读取才能使用。例如，Microsoft Word程序的二进制文件只能由Word程序读取为人类可读的形式。这表明，除了人类可读的文本之外，还有许多其他信息，例如字符格式和页码等，它们也与字母数字字符一起存储。最后，二进制文件是字节的连续序列。我们在文本文件中看到的换行符是将第一行连接到下一行的字符。

  有时，其他程序生成的数据需要由R作为二进制文件进行处理。还需要R来创建可以与其他程序共享的二进制文件。

  R具有两个函数WriteBin（）和readBin（）来创建和读取二进制文件。

  句法

   
  writeBin(object, con)
  readBin(con, what, n )
  

  复制

  以下是所用参数的描述-

  • con - 是用于读取或写入二进制文件的连接对象。
  • object - 是要写入的二进制文件。
  • what - 代表要读取的字节的字符，整数等模式是什么？
  • n - 是要从二进制文件读取的字节数。

  我们考虑R内置数据“mtcars”。首先，我们从中创建一个csv文件，并将其转换为二进制文件，并将其存储为OS文件。接下来，我们阅读在R中创建的该二进制文件。
• 

  编写二进制文件

  我们将数据帧“mtcars”读取为csv文件，然后将其作为二进制文件写入OS。

   
  # 将“mtcars”数据帧读取为csv文件，并仅存储列
     "cyl", "am" and "gear".
  write.table(mtcars, file = "mtcars.csv",row.names = FALSE, na = "", 
     col.names = TRUE, sep = ",")
  
  # 将csv文件中的5条记录存储为新数据帧。
  new.mtcars <- read.table("mtcars.csv",sep = ",",header = TRUE,nrows = 5)
  
  # 创建一个连接对象以使用模式“ wb”写入二进制文件。
  write.filename = file("/web/com/binmtcars.dat", "wb")
  
  # 将数据帧的列名写入连接对象。
  writeBin(colnames(new.mtcars), write.filename)
  
  # Write the records in each of the column to the file.
  writeBin(c(new.mtcars$cyl,new.mtcars$am,new.mtcars$gear), write.filename)
  
  # Close the file for writing so that it can be read by other program.
  close(write.filename)
  

  复制
• 

  读取二进制文件

  上面创建的二进制文件将所有数据存储为连续字节。因此，我们将通过选择适当的列名称值和列值来阅读它。

   
  # 创建一个连接对象，以使用“ rb”以二进制模式读取文件。
  read.filename <- file("/web/com/binmtcars.dat", "rb")
  
  # 首先阅读列名。 n = 3，因为我们有3列。
  column.names <- readBin(read.filename, character(),  n = 3)
  
  # 接下来读取列值。 n = 18，因为我们有3个列名和15个值。
  read.filename <- file("/web/com/binmtcars.dat", "rb")
  bindata <- readBin(read.filename, integer(),  n = 18)
  
  # Print the data.
  print(bindata)
  
  # 读取代表“cyl”的第4个字节到第8个字节的值。
  cyldata = bindata[4:8]
  print(cyldata)
  
  # 从代表“am”的第9个字节到第13个字节中读取值。
  amdata = bindata[9:13]
  print(amdata)
  
  # 读取代表“gear”的第9个字节至第13个字节的值。
  geardata = bindata[14:18]
  print(geardata)
  
  # 将所有读取的值合并到dat帧。
  finaldata = cbind(cyldata, amdata, geardata)
  colnames(finaldata) = column.names
  print(finaldata)
  

  复制

  当我们执行上述代码时，它会产生以下结果和图表-

   
   [1]    7108963 1728081249    7496037          6          6          4
   [7]          6          8          1          1          1          0
  [13]          0          4          4          4          3          3
  
  [1] 6 6 4 6 8
  
  [1] 1 1 1 0 0
  
  [1] 4 4 4 3 3
  
       cyl am gear
  [1,]   6  1    4
  [2,]   6  1    4
  [3,]   4  1    4
  [4,]   6  0    3
  [5,]   8  0    3
  

  复制

  如我们所见，我们通过读取R中的二进制文件来获取原始数据。