当前位置： 文江博客话题详情

将列表添加为一列列表到数据范围列表

发布于 2025-02-07 15:50:38 字数 2205 浏览 1 评论 0原文

我有一个dataframes t_b_name的列表和列表t的列表。现在，我想在保存列表格式时将t的每个列表添加到t_b_name的列中。因此，t_b_name将在每个列表中有一个附加的列，例如value。我该怎么做？这是输入。

t_b_name <- 
list(structure(list(ticker = c("PGN", "NRUC", "FON-CapCorp", 
"CUM", "WY"), shortname = c("Progress Engy Inc", "Natl Rural Utils Coop Fin Corp", 
"Sprint Cap Corp", "Cummins Inc", "Weyerhaeuser Co"), redcode = c("7B7589", 
"69AB75", "8D7266", "2F4123", "9F837C"), sector = c("Utilities", 
"Financials", "Telecommunications Services", "Industrials", "Basic Materials"
), region = c("N.Amer", "N.Amer", "N.Amer", "N.Amer", "N.Amer"
)), row.names = c(55529L, 54997L, 44861L, 40620L, 63060L), class = "data.frame"), 
    structure(list(ticker = c("GLW", "DPL", "ETN", "CBE", "R"
    ), shortname = c("Corning Inc", "DPL Inc", "Eaton Corp", 
    "Cooper Inds Ltd", "Ryder Sys Inc"), redcode = c("23AC85", 
    "2F65BC", "29F85D", "GI659A", "7FB89D"), sector = c("Technology", 
    "Utilities", "Industrials", "Industrials", "Industrials"), 
        region = c("N.Amer", "N.Amer", "N.Amer", "N.Amer", "N.Amer"
        )), row.names = c(20935L, 41188L, 44529L, 39663L, 55918L
    ), class = "data.frame"), structure(list(ticker = c("PHHCO", 
    "CIN", "MCCC-MedcomLLC", "FON-CapCorp", "AXL-Inc"), shortname = c("PHH Corp", 
    "CINergy Corp", "Mediacom LLC", "Sprint Cap Corp", "Amern Axle & Mfg Inc"
    ), redcode = c("6FC652", "1I96BB", "UZDA8D", "8D7266", "UU2679"
    ), sector = c("Financials", "Utilities", "Consumer Services", 
    "Telecommunications Services", "Consumer Goods"), region = c("N.Amer", 
    "N.Amer", "N.Amer", "N.Amer", "N.Amer")), row.names = c(55564L, 
    22422L, 51792L, 44861L, 38727L), class = "data.frame"))

t <- list(c(X171 = -4.84310809694633, X161 = -3.36603783246705, X112 = -2.72493266607287, 
X87 = -2.58575358943995, X210 = -2.01054909486918), c(X20 = -2.30989551860346, 
X98 = -2.19943312429299, X104 = -1.61663388964235, X72 = -1.31631234805403, 
X176 = -1.24859298915501), c(X172 = -2.67718752034399, X28 = -2.27605041741808, 
X151 = -2.25609160045945, X112 = -2.04810033395225, X57 = -1.61378307188531
))
原文

I have a list of dataframes t_b_name and a list of list t. Now I want to add each list of t as a column to t_b_name while conserving the list format. So the t_b_name would have an additional column in each list, named, let's say, value. How can I do this? Here's the input.

t_b_name <- 
list(structure(list(ticker = c("PGN", "NRUC", "FON-CapCorp", 
"CUM", "WY"), shortname = c("Progress Engy Inc", "Natl Rural Utils Coop Fin Corp", 
"Sprint Cap Corp", "Cummins Inc", "Weyerhaeuser Co"), redcode = c("7B7589", 
"69AB75", "8D7266", "2F4123", "9F837C"), sector = c("Utilities", 
"Financials", "Telecommunications Services", "Industrials", "Basic Materials"
), region = c("N.Amer", "N.Amer", "N.Amer", "N.Amer", "N.Amer"
)), row.names = c(55529L, 54997L, 44861L, 40620L, 63060L), class = "data.frame"), 
    structure(list(ticker = c("GLW", "DPL", "ETN", "CBE", "R"
    ), shortname = c("Corning Inc", "DPL Inc", "Eaton Corp", 
    "Cooper Inds Ltd", "Ryder Sys Inc"), redcode = c("23AC85", 
    "2F65BC", "29F85D", "GI659A", "7FB89D"), sector = c("Technology", 
    "Utilities", "Industrials", "Industrials", "Industrials"), 
        region = c("N.Amer", "N.Amer", "N.Amer", "N.Amer", "N.Amer"
        )), row.names = c(20935L, 41188L, 44529L, 39663L, 55918L
    ), class = "data.frame"), structure(list(ticker = c("PHHCO", 
    "CIN", "MCCC-MedcomLLC", "FON-CapCorp", "AXL-Inc"), shortname = c("PHH Corp", 
    "CINergy Corp", "Mediacom LLC", "Sprint Cap Corp", "Amern Axle & Mfg Inc"
    ), redcode = c("6FC652", "1I96BB", "UZDA8D", "8D7266", "UU2679"
    ), sector = c("Financials", "Utilities", "Consumer Services", 
    "Telecommunications Services", "Consumer Goods"), region = c("N.Amer", 
    "N.Amer", "N.Amer", "N.Amer", "N.Amer")), row.names = c(55564L, 
    22422L, 51792L, 44861L, 38727L), class = "data.frame"))

t <- list(c(X171 = -4.84310809694633, X161 = -3.36603783246705, X112 = -2.72493266607287, 
X87 = -2.58575358943995, X210 = -2.01054909486918), c(X20 = -2.30989551860346, 
X98 = -2.19943312429299, X104 = -1.61663388964235, X72 = -1.31631234805403, 
X176 = -1.24859298915501), c(X172 = -2.67718752034399, X28 = -2.27605041741808, 
X151 = -2.25609160045945, X112 = -2.04810033395225, X57 = -1.61378307188531
))

如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论， 你可以免费 注册 一个本站的账号。

评论（2）

笑忘罢 2025-02-14 15:50:38

您可以使用map（） + cbind（或map（） + data.frame.frame）

Map(cbind, t_b_name, value = t)

：输出

mapply(cbind, t_b_name, value = t, SIMPLIFY = FALSE)
​
[[1]]
           ticker                      shortname redcode                      sector region     value
55529         PGN              Progress Engy Inc  7B7589                   Utilities N.Amer -4.843108
54997        NRUC Natl Rural Utils Coop Fin Corp  69AB75                  Financials N.Amer -3.366038
44861 FON-CapCorp                Sprint Cap Corp  8D7266 Telecommunications Services N.Amer -2.724933
40620         CUM                    Cummins Inc  2F4123                 Industrials N.Amer -2.585754
63060          WY                Weyerhaeuser Co  9F837C             Basic Materials N.Amer -2.010549

[[2]]
      ticker       shortname redcode      sector region     value
20935    GLW     Corning Inc  23AC85  Technology N.Amer -2.309896
41188    DPL         DPL Inc  2F65BC   Utilities N.Amer -2.199433
44529    ETN      Eaton Corp  29F85D Industrials N.Amer -1.616634
39663    CBE Cooper Inds Ltd  GI659A Industrials N.Amer -1.316312
55918      R   Ryder Sys Inc  7FB89D Industrials N.Amer -1.248593

[[3]]
              ticker            shortname redcode                      sector region     value
55564          PHHCO             PHH Corp  6FC652                  Financials N.Amer -2.677188
22422            CIN         CINergy Corp  1I96BB                   Utilities N.Amer -2.276050
51792 MCCC-MedcomLLC         Mediacom LLC  UZDA8D           Consumer Services N.Amer -2.256092
44861    FON-CapCorp      Sprint Cap Corp  8D7266 Telecommunications Services N.Amer -2.048100
38727        AXL-Inc Amern Axle & Mfg Inc  UU2679              Consumer Goods N.Amer -1.613783

You could use Map() + cbind (or Map() + data.frame):

Map(cbind, t_b_name, value = t)

which is equivalent to

mapply(cbind, t_b_name, value = t, SIMPLIFY = FALSE)
Output
[[1]]
           ticker                      shortname redcode                      sector region     value
55529         PGN              Progress Engy Inc  7B7589                   Utilities N.Amer -4.843108
54997        NRUC Natl Rural Utils Coop Fin Corp  69AB75                  Financials N.Amer -3.366038
44861 FON-CapCorp                Sprint Cap Corp  8D7266 Telecommunications Services N.Amer -2.724933
40620         CUM                    Cummins Inc  2F4123                 Industrials N.Amer -2.585754
63060          WY                Weyerhaeuser Co  9F837C             Basic Materials N.Amer -2.010549

[[2]]
      ticker       shortname redcode      sector region     value
20935    GLW     Corning Inc  23AC85  Technology N.Amer -2.309896
41188    DPL         DPL Inc  2F65BC   Utilities N.Amer -2.199433
44529    ETN      Eaton Corp  29F85D Industrials N.Amer -1.616634
39663    CBE Cooper Inds Ltd  GI659A Industrials N.Amer -1.316312
55918      R   Ryder Sys Inc  7FB89D Industrials N.Amer -1.248593

[[3]]
              ticker            shortname redcode                      sector region     value
55564          PHHCO             PHH Corp  6FC652                  Financials N.Amer -2.677188
22422            CIN         CINergy Corp  1I96BB                   Utilities N.Amer -2.276050
51792 MCCC-MedcomLLC         Mediacom LLC  UZDA8D           Consumer Services N.Amer -2.256092
44861    FON-CapCorp      Sprint Cap Corp  8D7266 Telecommunications Services N.Amer -2.048100
38727        AXL-Inc Amern Axle & Mfg Inc  UU2679              Consumer Goods N.Amer -1.613783
回复 原文
云之铃。 2025-02-14 15:50:38

您可以尝试

mapply(function(x,value) {cbind(x,value)}, t_b_name, t, SIMPLIFY = F)

[[1]]
           ticker                      shortname redcode                      sector
55529         PGN              Progress Engy Inc  7B7589                   Utilities
54997        NRUC Natl Rural Utils Coop Fin Corp  69AB75                  Financials
44861 FON-CapCorp                Sprint Cap Corp  8D7266 Telecommunications Services
40620         CUM                    Cummins Inc  2F4123                 Industrials
63060          WY                Weyerhaeuser Co  9F837C             Basic Materials
      region     value
55529 N.Amer -4.843108
54997 N.Amer -3.366038
44861 N.Amer -2.724933
40620 N.Amer -2.585754
63060 N.Amer -2.010549

[[2]]
      ticker       shortname redcode      sector region     value
20935    GLW     Corning Inc  23AC85  Technology N.Amer -2.309896
41188    DPL         DPL Inc  2F65BC   Utilities N.Amer -2.199433
44529    ETN      Eaton Corp  29F85D Industrials N.Amer -1.616634
39663    CBE Cooper Inds Ltd  GI659A Industrials N.Amer -1.316312
55918      R   Ryder Sys Inc  7FB89D Industrials N.Amer -1.248593

[[3]]
              ticker            shortname redcode                      sector region
55564          PHHCO             PHH Corp  6FC652                  Financials N.Amer
22422            CIN         CINergy Corp  1I96BB                   Utilities N.Amer
51792 MCCC-MedcomLLC         Mediacom LLC  UZDA8D           Consumer Services N.Amer
44861    FON-CapCorp      Sprint Cap Corp  8D7266 Telecommunications Services N.Amer
38727        AXL-Inc Amern Axle & Mfg Inc  UU2679              Consumer Goods N.Amer
          value
55564 -2.677188
22422 -2.276050
51792 -2.256092
44861 -2.048100
38727 -1.613783

You may try

mapply(function(x,value) {cbind(x,value)}, t_b_name, t, SIMPLIFY = F)

[[1]]
           ticker                      shortname redcode                      sector
55529         PGN              Progress Engy Inc  7B7589                   Utilities
54997        NRUC Natl Rural Utils Coop Fin Corp  69AB75                  Financials
44861 FON-CapCorp                Sprint Cap Corp  8D7266 Telecommunications Services
40620         CUM                    Cummins Inc  2F4123                 Industrials
63060          WY                Weyerhaeuser Co  9F837C             Basic Materials
      region     value
55529 N.Amer -4.843108
54997 N.Amer -3.366038
44861 N.Amer -2.724933
40620 N.Amer -2.585754
63060 N.Amer -2.010549

[[2]]
      ticker       shortname redcode      sector region     value
20935    GLW     Corning Inc  23AC85  Technology N.Amer -2.309896
41188    DPL         DPL Inc  2F65BC   Utilities N.Amer -2.199433
44529    ETN      Eaton Corp  29F85D Industrials N.Amer -1.616634
39663    CBE Cooper Inds Ltd  GI659A Industrials N.Amer -1.316312
55918      R   Ryder Sys Inc  7FB89D Industrials N.Amer -1.248593

[[3]]
              ticker            shortname redcode                      sector region
55564          PHHCO             PHH Corp  6FC652                  Financials N.Amer
22422            CIN         CINergy Corp  1I96BB                   Utilities N.Amer
51792 MCCC-MedcomLLC         Mediacom LLC  UZDA8D           Consumer Services N.Amer
44861    FON-CapCorp      Sprint Cap Corp  8D7266 Telecommunications Services N.Amer
38727        AXL-Inc Amern Axle & Mfg Inc  UU2679              Consumer Goods N.Amer
          value
55564 -2.677188
22422 -2.276050
51792 -2.256092
44861 -2.048100
38727 -1.613783
回复 原文
~没有更多了~

关于作者

污味仙女

暂无简介

文章
评论
26 人气
发私信

相关话题

更多

热门标签

操作系统 程序设计 IT运维 Linux系统管理 JavaScript 服务器应用 solaris C/C++ PHP Shell BSD Vue.js aix Oracle Python HTML 系统管理 HTML5 CSS 前端
更多

推荐作者

櫻之舞

文章 0 评论 0

弥枳

文章 0 评论 0

m2429

文章 0 评论 0

寻找一个思念的角度

文章 0 评论 0

野却迷人

文章 0 评论 0

我怀念的。

文章 0 评论 0

更多

友情链接

文江博客
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站，即表示您同意使用 Cookies 和您的相关数据。
    原文