{"id":364,"date":"2012-11-14T22:37:34","date_gmt":"2012-11-14T15:37:34","guid":{"rendered":"http:\/\/nvntung.wordpress.com\/2012\/11\/14\/xuat-du-lieu-ra-file-csv\/"},"modified":"2014-03-24T16:23:14","modified_gmt":"2014-03-24T09:23:14","slug":"xuat-du-lieu-ra-file-csv-trong-r","status":"publish","type":"post","link":"https:\/\/www.itersdesktop.com\/vi\/2012\/11\/14\/xuat-du-lieu-ra-file-csv-trong-r\/","title":{"rendered":"Xu\u1ea5t d\u1eef li\u1ec7u ra file csv trong R"},"content":{"rendered":"

Sau nhi\u1ec1u l\u1ea7n t\u00ednh to\u00e1n cho c\u00e1c file d\u1eef li\u1ec7u kh\u00e1c nhau, m\u1ed7i l\u1ea7n th\u1ef1c hi\u1ec7n thao t\u00e1c, t\u00f4i l\u1ea1i thay \u0111\u1ed5i t\u00ean file v\u00e0 l\u1eb7p l\u1ea1i c\u00e1c b\u01b0\u1edbc t\u01b0\u01a1ng t\u1ef1. \u0110\u00e0nh r\u1eb1ng t\u00f4i \u0111\u00e3 g\u00f3i g\u1ecdn c\u00e1c b\u01b0\u1edbc v\u00e0o m\u1ed9t file l\u1ec7nh .R nh\u01b0ng \u0111i\u1ec1u n\u00e0y c\u0169ng kh\u00e1 m\u1ea5t th\u1eddi gian n\u1ebfu nh\u01b0 k\u1ebft qu\u1ea3 ph\u1ea3i s\u1eeda \u0111i s\u1eeda l\u1ea1i nhi\u1ec1u l\u1ea7n m\u00e0 ch\u01b0a \u0111\u01b0\u1ee3c duy\u1ec7t (v\u00ec t\u00f4i ph\u1ea3i tr\u00ecnh k\u1ebft qu\u1ea3 cho supervisor v\u00e0 th\u1ea3o lu\u1eadn \u0111\u1ec3 t\u00ecm ra gi\u1ea3i ph\u00e1p). V\u00ec th\u1ebf, t\u00f4i m\u00e0y m\u00f2 t\u00ecm c\u00e1ch \u0111\u1ec3 xu\u1ea5t c\u00e1c gi\u00e1 tr\u1ecb m\u1ed7i l\u1ea7n t\u00ednh to\u00e1n cho m\u1ed9t file d\u1eef li\u1ec7u. V\u00e0 ch\u1ec9 c\u1ea7n m\u1ed9t v\u00f2ng l\u1eb7p \u0111\u1ec3 duy\u1ec7t h\u1ebft t\u1ea5t c\u1ea3 c\u00e1c file c\u1ea7n t\u00ednh to\u00e1n \u0111\u1ebfn.<\/p>\n

T\u00f4i v\u1eabn bi\u1ebft r\u1eb1ng R cung c\u1ea5p c\u00e1ch h\u00e0m \u0111\u1ec3 \u0111\u1ecdc v\u00e0 xu\u1ea5t d\u1eef li\u1ec7u ra nhi\u1ec1u \u0111\u1ecbnh d\u1ea1ng kh\u00e1c nhau. Nh\u01b0ng m\u00e0y m\u00f2 m\u1ed9t h\u1ed3i v\u1edbi ph\u01b0\u01a1ng th\u1ee9c write.csv v\u00e0 write, t\u00f4i v\u1eabn ch\u01b0a th\u00e0nh c\u00f4ng. Sau m\u1ed9t h\u1ed3i t\u00ecm hi\u1ec3u, t\u00f4i \u0111\u00e3 n\u1eafm \u0111\u01b0\u1ee3c nguy\u00ean t\u1eafc v\u00e0 ghi l\u1ea1i \u1edf \u0111\u00e2y.<\/p>\n

B\u00e0i to\u00e1n nh\u01b0 sau:<\/p>\n

T\u00ednh to\u00e1n c\u00e1c thu\u1ed9c t\u00ednh average degree (ad), diameter (dia), local clustering coefficient (lcf) v\u00e0 global clustering coefficient (gcf) cho m\u1ed7i m\u1ea1ng muscle, liver, yeast, fpcBMC, aracell, v\u00e0 aracell2.<\/p>\n

Nh\u01b0 v\u1eady, \u1edf \u0111\u00e2y ch\u00fang ta c\u1ea7n th\u1ef1c hi\u1ec7n 6 l\u1ea7n, m\u1ed7i l\u1ea7n nh\u01b0 th\u1ebf ph\u1ea3i ghi l\u1ea1i k\u1ebft qu\u1ea3 c\u1ee7a 4 bi\u1ebfn ad, dia, lcf v\u00e0 gcf. Sau 6 l\u1ea7n th\u1ef1c hi\u1ec7n, k\u1ebft qu\u1ea3 cu\u1ed1i c\u00f9ng l\u00e0 m\u1ed9t b\u1ea3ng t\u1ed5ng h\u1ee3p 4 thu\u1ed9c t\u00ednh c\u1ee7a 6 m\u1ea1ng.<\/p>\n

Code:<\/p>\n

df<-NULL
\nfor(r in 1:6)<\/p>\n

# t\u00ednh to\u00e1n k\u1ebft qu\u1ea3 v\u00e0 l\u01b0u v\u00e0o 4 bi\u1ebfn
\nrbind(df, data.frame(ad=r,dia=r,lcf=0,gcf=0)) ->df<\/p>\n

print(df)
\nwrite.table(df,file=”Myfile.csv”,sep=”,”,row.names=F)<\/p><\/blockquote>\n

B\u1eb1ng c\u00e1ch ch\u1ea1y \u0111o\u1ea1n m\u00e3 tr\u00ean, t\u00f4i \u0111\u00e3 gi\u1ea3i quy\u1ebft c\u00f4ng vi\u1ec7c nhanh ch\u00f3ng v\u00e0 c\u00f3 th\u1ec3 th\u1ef1c hi\u1ec7n cho nhi\u1ec1u m\u1ea1ng kh\u00e1c.<\/p>\n","protected":false},"excerpt":{"rendered":"

Sau nhi\u1ec1u l\u1ea7n t\u00ednh to\u00e1n cho c\u00e1c file d\u1eef li\u1ec7u kh\u00e1c nhau, m\u1ed7i l\u1ea7n th\u1ef1c hi\u1ec7n thao t\u00e1c, t\u00f4i l\u1ea1i thay \u0111\u1ed5i t\u00ean file v\u00e0 l\u1eb7p l\u1ea1i c\u00e1c b\u01b0\u1edbc t\u01b0\u01a1ng… <\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[17],"tags":[59,445,95,108],"class_list":["post-364","post","type-post","status-publish","format-standard","hentry","category-r-language","tag-data-frame","tag-export-data","tag-r","tag-write"],"_links":{"self":[{"href":"https:\/\/www.itersdesktop.com\/vi\/wp-json\/wp\/v2\/posts\/364","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.itersdesktop.com\/vi\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.itersdesktop.com\/vi\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.itersdesktop.com\/vi\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.itersdesktop.com\/vi\/wp-json\/wp\/v2\/comments?post=364"}],"version-history":[{"count":1,"href":"https:\/\/www.itersdesktop.com\/vi\/wp-json\/wp\/v2\/posts\/364\/revisions"}],"predecessor-version":[{"id":1451,"href":"https:\/\/www.itersdesktop.com\/vi\/wp-json\/wp\/v2\/posts\/364\/revisions\/1451"}],"wp:attachment":[{"href":"https:\/\/www.itersdesktop.com\/vi\/wp-json\/wp\/v2\/media?parent=364"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.itersdesktop.com\/vi\/wp-json\/wp\/v2\/categories?post=364"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.itersdesktop.com\/vi\/wp-json\/wp\/v2\/tags?post=364"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}