這是對上一個問題的跟進。將函式讀作文本并用于繪圖
映射的函式的輸出...
data %>%
bind_cols()
map(.x = models,. f = text_model) %>%。
set_names(models) %>%
bind_rows(.id = "model")
)
...生成一個資料框，每個函式的結果都寫在一個單獨的列中（列標題中包括函式）。
然而，最好是將每個函式的輸出附加在一起，這樣所有的結果都包含在同一列中，并有一個單獨的列來跟蹤哪個函式（"model001"、"model002"、... "model500"）生成的結果。
如何調整前一個問題（將函式讀作文本并用于繪圖）中的代碼，以便以這種方式寫入結果？
編輯：有人建議將將函式讀取為文本并用于繪圖作為答案，但這個帖子是那個問題的后續，詢問如何將輸出寫入單列（而不是每個函式都有一個不同的列）。
uj5u.com熱心網友回復：
考慮到另一個答案，我們可以對資料進行透視
data %>%
bind_cols()
map(.x = models,. f = text_model) %>%。
set_names（models_names） %>%
bind_rows(.id = "model")
) %>%
pivot_longer(cols =model1: model2,names_to = "model"）
# A tibble: 200 x 6
A B C D模型值
<dbl> < dbl> <dbl> <dbl> < chr> <dbl>/span>
1 0.833 0. 538 0.647 1.65 model1 22.9
2 0.833 0． 538 0.647 1.65 model2 57.9
3 2.07 1.20 -0。 748 -2.04 model1 35.3.
4 2.07 1.20 -0。 748 -2.04 model2 70.3
5 0.880 -0． 199 1.08 1.04 model1 29.2.
6 0.880 -0． 199 1.08 1.04 model2 64.2
7 0.252 0.400 1. 45 -0.0645 model1 15.6
8 0.252 0.400 1． 45 -0.0645 model2 50.6
9 0.746 0． 0943 -1.00 1.44 models1 20.4
10 0.746 0． 0943 -1.00 1.44 model2 55.4
# ... with 190 more rows
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/306872.html
標籤：
上一篇：從github私有的repo中安裝軟體包，不需要個人訪問令牌
下一篇：按組統計符合某些標準的觀察結果R