个人中心
文章发布
退出
作者热门文章
- html - 出于某种原因，IE8 对我的 Sass 文件中继承的 html5 CSS 不友好？
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景？
24
4
我有 dataframe_A，其中有一列，其中每一行都包含一个数据框。
这是我正在谈论的数据框的输出:
structure(list(spend = c("840.99", "1145.39", "1043.88", "1169.15",
"1249.75", "1197.57"), actions = list(structure(list(action_type = c("like",
"link_click", "post", "post_reaction", "page_engagement", "post_engagement"
), value = c("18", "205", "2", "28", "253", "235")), .Names =
c("action_type",
"value"), class = "data.frame", row.names = c(NA, 6L)), structure(list(
action_type = c("like", "link_click", "post", "post_reaction",
"page_engagement", "post_engagement"), value = c("26", "268",
"3", "33", "330", "304")), .Names = c("action_type", "value"
), class = "data.frame", row.names = c(NA, 6L)), structure(list(
action_type = c("like", "link_click", "post", "post_reaction",
"page_engagement", "post_engagement"), value = c("16", "214",
"2", "28", "260", "244")), .Names = c("action_type", "value"
), class = "data.frame", row.names = c(NA, 6L)), structure(list(
action_type = c("comment", "like", "link_click", "post",
"post_reaction", "page_engagement", "post_engagement"), value = c("2",
"14", "255", "2", "44", "317", "303")), .Names = c("action_type",
"value"), class = "data.frame", row.names = c(NA, 7L)), structure(list(
action_type = c("comment", "like", "link_click", "post",
"post_reaction", "page_engagement", "post_engagement"), value = c("1",
"15", "240", "1", "23", "280", "265")), .Names = c("action_type",
"value"), class = "data.frame", row.names = c(NA, 7L)), structure(list(
action_type = c("like", "link_click", "post", "post_reaction",
"page_engagement", "post_engagement"), value = c("16", "252",
"3", "32", "303", "287")), .Names = c("action_type", "value"
), class = "data.frame", row.names = c(NA, 6L))), date_start = c("2017-10-31",
"2017-11-01", "2017-11-02", "2017-11-03", "2017-11-04", "2017-11-05"
)), .Names = c("spend", "actions", "date_start"), class = c("data.table",
"data.frame"), row.names = c(NA, -6L), .internal.selfref = <pointer:
0x0000000000310788>)
输出看起来像这样:
spend actions date_start
1: 840.99 <data.frame> 2017-10-31
2: 1145.39 <data.frame> 2017-11-01
3: 1043.88 <data.frame> 2017-11-02
4: 1169.15 <data.frame> 2017-11-03
5: 1249.75 <data.frame> 2017-11-04
6: 1197.57 <data.frame> 2017-11-05
如果我只看操作列，它看起来像这样:
df$actions
[[1]]
action_type value
1 like 18
2 link_click 205
3 post 2
4 post_reaction 28
5 page_engagement 253
6 post_engagement 235
[[2]]
action_type value
1 like 26
2 link_click 268
3 post 3
4 post_reaction 33
5 page_engagement 330
6 post_engagement 304
[[3]]
action_type value
1 like 16
2 link_click 214
3 post 2
4 post_reaction 28
5 page_engagement 260
6 post_engagement 244
[[4]]
action_type value
1 comment 2
2 like 14
3 link_click 255
4 post 2
5 post_reaction 44
6 page_engagement 317
7 post_engagement 303
[[5]]
action_type value
1 comment 1
2 like 15
3 link_click 240
4 post 1
5 post_reaction 23
6 page_engagement 280
7 post_engagement 265
[[6]]
action_type value
1 like 16
2 link_click 252
3 post 3
4 post_reaction 32
5 page_engagement 303
6 post_engagement 287
您可以看到每个数据框对应于原始数据框中的一行。我如何提取这些数据框并使行名称成为将附加到原始数据框的新列。我希望我的最终结果是这样的(我做这个的时候格式很奇怪所以我不能写最后 3 列但是那些也应该被填充):
spend actions date_start comment like link_click post post_reaction page_engagement post_engagement
1: 840.99 <data.frame> 2017-10-31 0 18 205 2
2: 1145.39 <data.frame> 2017-11-01 0 26 268 3
3: 1043.88 <data.frame> 2017-11-02 0 16 214 2
4: 1169.15 <data.frame> 2017-11-03 2 14 255 2
5: 1249.75 <data.frame> 2017-11-04 1 15 240 1
6: 1197.57 <data.frame> 2017-11-05 0 16 252 3
不确定这是否是正确的路线，但我一直在思考这些问题并将结果 rbinding 并将其绑定(bind)到原始数据框:
t(df$actions[[1]])
任何帮助都会很棒，谢谢!
最佳答案
也许这种方法:
library(tidyverse)
z1 %>%
as.tibble() %>%
unnest() %>%
spread(action_type, value) #convert to wide format
#output
spend date_start comment like link_click page_engagement post post_engagement post_reaction
* <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
1 1043.88 2017-11-02 NA 16 214 260 2 244 28
2 1145.39 2017-11-01 NA 26 268 330 3 304 33
3 1169.15 2017-11-03 2 14 255 317 2 303 44
4 1197.57 2017-11-05 NA 16 252 303 3 287 32
5 1249.75 2017-11-04 1 15 240 280 1 265 23
6 840.99 2017-10-31 NA 18 205 253 2 235 28
数据:
> dput(z1)
structure(list(spend = c("840.99", "1145.39", "1043.88", "1169.15",
"1249.75", "1197.57"), actions = list(structure(list(action_type = c("like",
"link_click", "post", "post_reaction", "page_engagement", "post_engagement"
), value = c("18", "205", "2", "28", "253", "235")), .Names = c("action_type",
"value"), class = "data.frame", row.names = c(NA, 6L)), structure(list(
action_type = c("like", "link_click", "post", "post_reaction",
"page_engagement", "post_engagement"), value = c("26", "268",
"3", "33", "330", "304")), .Names = c("action_type", "value"
), class = "data.frame", row.names = c(NA, 6L)), structure(list(
action_type = c("like", "link_click", "post", "post_reaction",
"page_engagement", "post_engagement"), value = c("16", "214",
"2", "28", "260", "244")), .Names = c("action_type", "value"
), class = "data.frame", row.names = c(NA, 6L)), structure(list(
action_type = c("comment", "like", "link_click", "post",
"post_reaction", "page_engagement", "post_engagement"), value = c("2",
"14", "255", "2", "44", "317", "303")), .Names = c("action_type",
"value"), class = "data.frame", row.names = c(NA, 7L)), structure(list(
action_type = c("comment", "like", "link_click", "post",
"post_reaction", "page_engagement", "post_engagement"), value = c("1",
"15", "240", "1", "23", "280", "265")), .Names = c("action_type",
"value"), class = "data.frame", row.names = c(NA, 7L)), structure(list(
action_type = c("like", "link_click", "post", "post_reaction",
"page_engagement", "post_engagement"), value = c("16", "252",
"3", "32", "303", "287")), .Names = c("action_type", "value"
), class = "data.frame", row.names = c(NA, 6L))), date_start = c("2017-10-31",
"2017-11-01", "2017-11-02", "2017-11-03", "2017-11-04", "2017-11-05"
)), .Names = c("spend", "actions", "date_start"), class = c("data.table",
"data.frame"), row.names = c(NA, -6L))
关于r - 数据框列中的数据框，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/48331808/
24
4
0
我正在 csv 上使用 hadoop 来分析一些数据。我使用sql/mysql(不确定)来分析数据，现在陷入了僵局。 我花了好几个小时在谷歌上搜索，却没有找到任何相关的东西。我需要一个查询，在该查询中
我正在为 Bootstrap 网格布局的“简单”任务而苦苦挣扎。我希望在大视口(viewport)上有 4 列，然后在中型设备上有 2 列，最后在较小的设备上只有 1 列。 当我测试我的代码片段时，似
对于这个令人困惑的标题，我深表歉意，我想不出这个问题的正确措辞。相反，我只会给你背景信息和目标: 这是在一个表中，一个人可能有也可能没有多行数据，这些行可能包含相同的 activity_id 值，也可
具有 3 列的数据库表 - A int , B int , C int 我的问题是: 如何使用 Sequelize 结果找到 A > B + C const countTasks = await Ta
我在通过以下功能编写此查询时遇到问题: 首先按第 2 列 DESC 排序，然后从“不同的第 1 列”中选择 只有 Column1 是 DISTINCT 此查询没有帮助，因为它首先从第 1 列中进行选择
使用 Bootstrap 非常有趣和有帮助，目前我在创建以下需求时遇到问题。 “使用 bootstrap 在桌面上有 4 列，在平板电脑上有 2 列，在移动设备上有 1 列”谁能告诉我正确的结构 最佳
我是 R 新手，正在问一个非常基本的问题。当然，我在尝试从所提供的示例中获取指导的同时做了功课here和 here ，但无法在我的案例中实现这个想法，即可能是由于我的问题中的比较维度更大。 我的实
通常我会使用 R 并执行 merge.by，但这个文件似乎太大了，部门中的任何一台计算机都无法处理它! (任何从事遗传学工作的人的附加信息)本质上，插补似乎删除了 snp ID 的 rs 数字，我只剩
我有一个 df , delta1 delta2 0 -1 2 0 -1 0 0 0 我想知道如何分配 delt
您好，我想知道是否可以执行以下操作。显然，我已经尝试在 phpMyAdmin 中运行它，但出现错误。也许还有另一种方式来编写此查询。 SELECT * FROM eat_eat_restaurants
我有 2 个列表(标题和数据值)。我想要将数据值列 1 匹配并替换为头文件列 1，以获得与 dataValue 列 1 和标题值列 2 匹配的值 头文件 TotalLoad,M0001001 Hois
我有两个不同长度的文件，file2 是一个很大的引用文件，我从中提取文件 1 的数据。 我有一行 awk，我通常会对其进行调整以在我的文件中进行查找和替换，但它总是在同一列中进行查找和替换。 所以对于
假设我有两个表，如下所示。 create table contract( c_ID number(1) primary key, c_name varchar2(50) not
我有一个带有 varchar 列的 H2 表，其检查约束定义如下: CONSTRAINT my_constraint CHECK (varchar_field <> '') 以下插入语句失败，但当我删
这是最少量的代码，可以清楚地说明我的问题: One Two Three 前 2 个 div 应该是 2 个左列。第三个应该占据页面的其余部分。最后，我将添加选项来隐藏和
在 Azure 中的 Log Analytics 中，我为 VM Heartbeat 选择一个预定义查询，我在编辑器中运行查询正常，但当我去创建警报时，我不断收到警报“查询未返回 TimeGenera
在 Azure 中的 Log Analytics 中，我为 VM Heartbeat 选择一个预定义查询，我在编辑器中运行查询正常，但当我去创建警报时，我不断收到警报“查询未返回 TimeGenera
今天我开始使用 JexcelApi 并遇到了这个:当您尝试从特定位置获取元素时，不是像您通常期望的那样使用sheet.getCell(row,col)，而是使用sheet.getCell(col,ro
我有一个包含 28 列的数据库。第一列是代码，第二列是名称，其余是值。 public void displayData() { con.Open(); MySqlDataAdapter
我很沮丧:每当我缩小这个网页时，一切都变得一团糟。我如何将网页居中，以便我可以缩小并且元素不会被错误定位。 (它应该是 2 列，但所有内容都合并为 1)我试过 但由于某种原因，这不起作用。 www.o
我是一名优秀的程序员,十分优秀！