R 二进制文件

writeBin(object,con)

# 将“mtcars”数据框作为 csv 文件读取，并将仅存储“cyl”、“am”和“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)  
new.mtcars  
  
# 创建连接对象以使用模式“wb”写入二进制文件。 
write.filename = file("/Users/learnfk/R/binary.bin", "wb")  
  
# 将数据框的列名写入连接对象。 
writeBin(colnames(new.mtcars), write.filename)  
  
# 将每一列中的记录写入文件。
writeBin(c(new.mtcars$cyl,new.mtcars$am,new.mtcars$gear), write.filename)  
  
# 关闭文件进行写入，以便其他程序可以读取它。 
close(write.filename)  

readBin(con,what,n)

# 创建一个连接对象以使用“rb”以二进制模式读取文件。 
read.filename <- file("/Users/learnfk/R/binary.bin", "rb")  
  
# 读取列名。 n = 3 因为我们有 3 列。 
column.names <- readBin(read.filename, character(),  n = 3)  
  
# 读取列值。 n = 18 因为我们有 3 个列名和 15 个值。 
read.filename <- file("/Users/learnfk/R/binary.bin", "rb")  
bin_data <- readBin(read.filename, integer(),  n = 18)  
  
# 打印数据。
print(bin_data)  
  
# 读取从第 4 个字节到第 8 个字节的值，代表“cyl”。 
cyl_data = bin_data[4:8]  
print(cyl_data)  
  
# 读取值从第 9 个字节到第 13 个字节，代表“am”。
am_data = bin_data[9:13]  
print(am_data)  
  
# 从代表“gear”的第 9 个字节到第 13 个字节读取值。
gear_data = bin_data[14:18]  
print(gear_data)  
  
# 将所有读取值组合到一个数据帧
final_data = cbind(cyl_data, am_data, gear_data)  
colnames(final_data) = column.names  
print(final_data)