- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
关于这个主题的类似问题都使用了 spread() 和 gather() ,它们是退休的 Tidyverse 函数。假设我有一个这样的tibble:
people 1 2 3. 4 5
person1 27000 30000 40000 50000 60000
person2 27000 30000 40000 50000 60000
person3 27000 30000 40000 50000 60000
person4 27000 30000 40000 50000 60000
我想这样转置这个
People Person1 Person2 Person3 Person4 Person5
1. 270000 270000 270000. 270000. 270000
2. 30000. 30000. 30000 30000. 30000
3
4
5. 60000. 60000. 60000 60000 60000
(没有填写第三和第四列只是为了节省我自己的时间,但他们应该已经填写了。
最佳答案
使用 data.table::transpose
更容易
library(data.table)
data.table::transpose(setDT(df1), make.names = 'people')[, People := .I][]
tidyverse
, 转置可以分两步完成, 1), 用
pivot_longer
整形为长格式, 2) 使用
pivot_wider
使用不同的列将形状重新变宽
library(dplyr)
library(tidyr)
df1 %>%
pivot_longer(cols = -people, names_to = 'People') %>%
pivot_wider(names_from = people, values_from = value)
# A tibble: 5 x 5
# People person1 person2 person3 person4
# <chr> <int> <int> <int> <int>
#1 1 27000 27000 27000 27000
#2 2 30000 30000 30000 30000
#3 3 40000 40000 40000 40000
#4 4 50000 50000 50000 50000
#5 5 60000 60000 60000 60000
数据
df1 <- structure(list(people = c("person1", "person2", "person3", "person4"
), `1` = c(27000L, 27000L, 27000L, 27000L), `2` = c(30000L, 30000L,
30000L, 30000L), `3` = c(40000L, 40000L, 40000L, 40000L), `4` = c(50000L,
50000L, 50000L, 50000L), `5` = c(60000L, 60000L, 60000L, 60000L
)), class = "data.frame", row.names = c(NA, -4L))
关于r - 使用 Pivot_Longer() 和 Pivot_Wider (Tidyverse) 调换 Tibble,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/63345682/
我正在处理一个包含 528 列和 2,643,246 行的数据框。其中八个是字符变量,其余是整数。总共有 11.35 GiB 的数据,我的可用 RAM 为 164 GiB。 我现在想在所述数据框上运行
我再次努力使用 pivot_longer 将宽 df 转换为长 df 数据框是针对不同效果大小和样本大小进行功效分析的结果,这就是原始 df 的样子: es_issue_owner es_inde
我有一个关于 tidyr::pivot_longer() 的问题。 假设我从一个假想的数据框开始。想象一下,人们被问到关于两个流派的两个问题。 SQ1_2 将是关于第一种类型的第二个问题。 set.s
这个问题在这里已经有了答案: How to use Pivot_longer to reshape from wide-type data to long-type data with multip
我正在使用 tidyr 中的 pivot_longer 将数据帧从宽转换为长。我希望使用所有列并在列中维护行名。较早的melt 函数在此调用中完美运行 w1 % pivot_longer() Erro
我有以下数据框: library(tidyverse) dat % group_by(Scenario) %>% mutate_at(vars(-group_cols()), .funs =
我有一个如下所示的数据集。 # A tibble: 1 x 4 hhm1q001 hhm2q001 hhm1q002 hhm2q002 1 blue re
我有一些看起来很乱的数据,其中多列有多个逗号分隔值: df % select(-ends_with("dur")) %>% pivot_longer(cols = ends_with("aoi
尝试使用 pivot_longer。我不知道如何使用“names_sep”或“names_pattern”来解决这个问题。 dat % mutate(limit=ifelse(limit==
这个问题在这里已经有了答案: How to use Pivot_longer to reshape from wide-type data to long-type data with multip
这个问题在这里已经有了答案: How to use Pivot_longer to reshape from wide-type data to long-type data with multip
我需要将数据框转换为更长的格式。例如,我的数据框会像 df %tidyr::pivot_longer(c("x1","x2","y1","y2"),
我有一个具有这些名称的数据框: df % select(!pooled) %>% mutate(se=!is.na(se)) # A tibble: 14 x 7 state count
上下文 我想将df(宽格式)更改为df_expected(长格式)但失败了。 我知道我需要使用 pivot_longer,但是我需要转换多个列。 > df # A tibble: 2 × 5
这个问题在这里已经有了答案: How to reshape Panel / Longitudinal survey data from wide to long format using pivot
我想知道为什么我的 pivot_longer()下面的调用返回 value 下的嵌套输出柱子? foo % mutate(x = rnorm(n(), mx, 1), y =
我有一个 df 的形式: df 1 1 02 0 1 2 1 03 1 2 3 1 04 0 3 4
我正在尝试使用 R 中的 pivot_longer() 转换表格。但分隔不是通过任何常见符号(例如“_”或“.”)进行的。而是列名称的结尾方式(“B”或“T”)。我尝试使用正则表达式,但不太成功。 下
我有一个带有一系列成对列的“宽”data.frame。我的目标是使用pivot_longer 取消旋转它。 对于所有列中带有前缀的成对列有很多帮助。但在我的情况下,只有一半的对有前缀,我不知道如何定义
简单的 pivot_longer 问题。鉴于: library(tidyverse) df 10 4 2 exit_date 1
我是一名优秀的程序员,十分优秀!