রাইনেট টেবিল যখন অদ্ভুত নাম রয়েছে তখন হেডারে অযাচিত নেতৃস্থানীয় খালি কলামটি লিখেছে

Question 1

এই উদাহরণটি পরীক্ষা করুন:

> a = matrix(1:9, nrow = 3, ncol = 3, dimnames = list(LETTERS[1:3], LETTERS[1:3]))
> a
  A B C
A 1 4 7
B 2 5 8
C 3 6 9

টেবিলটি সঠিকভাবে প্রদর্শিত হয়। ফাইল করার জন্য এটি লেখার দুটি ভিন্ন উপায় আছে ...

write.csv(a, 'a.csv') যা প্রত্যাশা অনুযায়ী দেয়:

"","A","B","C"
"A",1,4,7
"B",2,5,8
"C",3,6,9

এবং write.table(a, 'a.txt')যা স্ক্রু আপ

"A" "B" "C"
"A" 1 4 7
"B" 2 5 8
"C" 3 6 9

প্রকৃতপক্ষে, একটি খালি ট্যাব অনুপস্থিত .... যা ডাউন স্ট্রিমের জিনিসগুলির জন্য বাটের ব্যথা। এটি কি বাগ বা কোনও বৈশিষ্ট্য? এখানে কি কাজ আছে? (ব্যতীত write.table(cbind(rownames(a), a), 'a.txt', row.names=FALSE)

চিয়ার্স, ইয়ানিক

Question 2

উদ্ধৃতি ?write.table, বিভাগ CSV ফাইল :

ডিফল্টরূপে সারি নামের কলামের জন্য কোনও কলামের নাম নেই। যদি col.names = NAএবং row.names = TRUEএকটি ফাঁকা কলামের নাম যুক্ত করা হয়, তবে এটি স্প্রেডশিটগুলি পড়ার জন্য সিএসভি ফাইলগুলির জন্য ব্যবহৃত কনভেনশন।

সুতরাং আপনি অবশ্যই করবেন

write.table(a, 'a.txt', col.names=NA)

এবং আপনি পেতে

"" "A" "B" "C"
"A" 1 4 7
"B" 2 5 8
"C" 3 6 9

Question 3

@ মারেকের খুব সহায়ক জবাবের জন্য একটি সামান্য সংশোধন করা হবে রোনামস কলামে একটি শিরোনাম যুক্ত হবে: অস্থায়ীভাবে ডেটা.ফ্রেমে প্রথম কলাম হিসাবে রনওমগুলি যুক্ত করুন এবং এটি লিখুন, আসল রৌনমগুলি উপেক্ষা করে।

> a = matrix(1:9, nrow = 3, ncol = 3, dimnames = list(LETTERS[1:3], LETTERS[1:3]))
> write.table(data.frame("H"=rownames(a),a),"a.txt", row.names=FALSE)

এবং আপনি পেতে

"H" "A" "B" "C"
"A" 1 4 7
"B" 2 5 8
"C" 3 6 9

Question 4

যে কেউ কাজ করার জন্য tidyverse (dplyr, ইত্যাদি), rownames_to_column()থেকে ফাংশন tibble প্যাকেজ সহজে একটি কলাম, যেমন করতে row.names রূপান্তর করতে ব্যবহার করা যেতে পারে:

library('tibble')
a = as.data.frame(matrix(1:9, nrow=3, ncol=3, 
                  dimnames=list(LETTERS[1:3], LETTERS[1:3])))

a %>% rownames_to_column('my_id')

  my_id A B C
1     A 1 4 7
2     B 2 5 8
3     C 3 6 9

সঙ্গে এই মিশ্রন row.names=FALSEবিকল্পটি write.table()সব কলাম হেডারের নামের সাথে আউটপুটে ফলাফল নেই।

Question 5

যারা ম্যাট্রিক্সের সাথে ম্যাট্রিক্স সংরক্ষণ করার সময় একই সমস্যাটি অনুভব করেন write.table()এবং সারি.নামস কলামটি রাখতে চান তাদের পক্ষে আসলে একটি অত্যন্ত সহজ সমাধান রয়েছে:

 write.table(matrix,file="file.csv",quote=F,sep=";", row.names=T
             col.names=c("row_name_col;val1_col","val2_col"))

এটি করে আপনি মূলত write.tableসারি.নামস কলামের জন্য শিরোনাম লেবেল তৈরি করে ফাংশনটি ট্রিক করছেন। ফলাফলের .csv ফাইলটি দেখতে এমন হবে:

row_name_col;val1_col;val2_col
row1;1;4 
row2;2;5 
row3;3;6

Question 6

আমি @ মেল থেকে একটি সাধারণ ফাংশন সংশোধন করেছি, যা সংযোগগুলি ব্যবহার করে নমনীয়তা যুক্ত করে adds ফাংশনটি এখানে:

my.write <- function(x, file, header, f = write.csv, ...){
# create and open the file connection
datafile <- file(file, open = 'wt')
# close on exit 
on.exit(close(datafile))
# if a header is defined, write it to the file (@CarlWitthoft's suggestion)
if(!missing(header)) {
writeLines(header,con=datafile, sep='\t')
writeLines('', con=datafile, sep='\n')
}
# write the file using the defined function and required addition arguments  
f(x, datafile,...)
}

আপনি 'Writ.table', 'write.csv', 'Writ.delim' ইত্যাদি হিসাবে ফাংশনটি নির্দিষ্ট করতে পারেন

চিয়ার্স!