統計解析R たぶんpart3くらい (587ﾚｽ)
統計解析R たぶんpart3くらい http://mevius.5ch.net/test/read.cgi/tech/1340339592/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
自ID
ﾚｽ栞
あぼーん
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
433: デフォルトの名無しさん [] 2022/03/13(日) 16:14:58.16 ID:yMboFGZP >>432 1列目がすべて同じ値でデータを結合させるキーとして使う必要がなければ、こんな感じ。 最後に1列目をバインドかジョインさせれば、概ね目的が達成できるのではないかと。 require(tidyverse) # サンプルデータの作成 for (i in 1:10) { data.frame( a = seq(from = 1, to = 100), b = rnorm(100) ) %>% readr::write_excel_csv(file = paste0("./sample_data/sample_", i, ".csv")) } # サンプルデータの結合 list.files("./sample_data", full.names = TRUE) %>% purrr::map_dfc(.f = function(x){readr::read_csv(x) %>% dplyr::select(2)}) 列名でデータが識別出来るようにしたければ、もうひと工夫必要だけど。 http://mevius.5ch.net/test/read.cgi/tech/1340339592/433
434: デフォルトの名無しさん [] 2022/03/13(日) 16:23:27.75 ID:yMboFGZP ファイル名を列の識別に使うとこんな感じ # サンプルデータの読み込みと結合 list.files("./sample_data", full.names = TRUE) %>% purrr::map_df(.f = function(x){readr::read_csv(x) %>% dplyr::mutate(file = basename(x))}) %>% tidyr::pivot_wider(names_from = file, values_from = b) http://mevius.5ch.net/test/read.cgi/tech/1340339592/434
436: デフォルトの名無しさん [] 2022/03/13(日) 16:44:28.45 ID:yMboFGZP >>434の方は、1列目をキーにleft_joinするのと同じ結果になるので、こちらの方が処理としては汎用性が高いかも。 # サンプルデータの作成 for (i in 0:4) { data.frame( a = seq(from = 1, to = 100), b = rnorm(100) ) %>% readr::write_excel_csv(file = paste0("./sample_data/sample_", i, ".csv")) } # サンプルデータの作成（aの値の範囲を少し変えてある） for (i in 5:9) { data.frame( a = seq(from = 51, to = 150), b = rnorm(100) ) %>% readr::write_excel_csv(file = paste0("./sample_data/sample_", i, ".csv")) } # サンプルデータの読み込みと結合（aが一致しない場合は欠損値NAとなる） list.files("./sample_data", full.names = TRUE) %>% purrr::map_df(.f = function(x){readr::read_csv(x) %>% dplyr::mutate(file = basename(x))}) %>% tidyr::pivot_wider(names_from = file, values_from = b) http://mevius.5ch.net/test/read.cgi/tech/1340339592/436
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.039s