0

我在 R 中创建了 3 个数据变量，每个变量 1 中包含以下信息：坐标

x   y 
0.1 0.1

变量 2：mz

100.0 
100.1 
100.2 
100.3 
....
....
999.9

变量 3：强度

4.533154e-01  
2.997068e-01  
4.542300e-01  
2.905961e-01  
4.636095e-01
.....
.....

现在我想将此信息导出为文本文件。这样我就有以下格式

 x   y 
0.1 0.1 
100.0   2.905961e-01 
100.1   4.533154e-01  
100.2   2.997068e-01 
100.3   4.542300e-01 
....
....
999.9   2.905961e-01

我在 R 中为此编写了以下代码：

spectralData<-cbind(mz, intensity, deparse.level = 0)
foo<-c('%2.1f', '%2.8f')
cbar<-sapply(1:2,function(j) sprintf(foo[j],spectralData[,j]))
write(t(cbar),'/Desktop/cbar.txt',ncolumns=2)

data<-rbind(coordinate,spectralData,deparse.level = 0)
write.table(data, "/Desktop/test.txt", row.names = FALSE)

我收到了文本文件，但它有两个问题。首先，我将行号作为附加列。我应该如何避免这种情况？其次，mz 和强度列的数字精度都发生了变化。如何在小数点后获得相同的精度？这是导出的数据的样子

"x" "y"
"1" 0.100000001490116 0.100000001490116
"2" 100 -1.77635683940025e-15
"3" 100.099998474121 0.0266907754084524
"4" 100.199996948242 0.0533815508169102
"5" 100.300003051758 3.5527136788005e-15
"6" 100.400001525879 0.135286505970676
"7" 100.5 0.0286329399926419
4

2 回答 2

2

如果您想要每列的特定精度（我相信您的问题的一部分），一种方法是首先通过sprintf语句运行数据框以创建字符串数组。然后用于write将数据写入文件 - 引号将不会通过。这是一个例子。

fbar<-sin((1:10)/10)
fbar<-matrix(fbar,5)
#fbar
#           [,1]      [,2]
#[1,] 0.09983342 0.5646425
#[2,] 0.19866933 0.6442177
#[3,] 0.29552021 0.7173561
#[4,] 0.38941834 0.7833269
#[5,] 0.47942554 0.8414710
foo<-c('%2.8f', '%2.3f')
cbar<-sapply(1:2,function(j) sprintf(foo[j],fbar[,j]) )
write(t(cbar),'cbar.txt',ncolumns=2)
#cbar
#0.09983342 0.565
#0.19866933 0.644
#0.29552021 0.717
#0.38941834 0.783
#0.47942554 0.841
于 2014-05-19T12:25:08.213 回答
2

为了避免行号使用这个 -

write.table(data, "/Desktop/test.txt",row.names = FALSE)
于 2014-05-19T11:51:49.020 回答